VB中fso的getfolder()j拒绝权限

2024-11-17 13:25:51

推荐回答（3个）

回答1：

xp,win7都测试过没问题,如果你运行有问题，查看C盘右键--属性--安全--当前用户是否有限权限读写该目录

Private Sub Form_Load()
Dim fs As New filesystemobject '加个new
Dim fd As folder
Set fd = fs.GetFolder("c:\")
Me.Caption = fd.Name & fd.Path
End Sub

回答2：

dim fs as filesystemobject
dim fd as folder
set fs=new filesystemobject
set fd =fs.getfolder(“c:\”)
这样看看行不行

回答3：

可能是因为你要返回的是一个根文件夹