7,762
社区成员
发帖
与我相关
我的任务
分享
Private Sub Command1_Click()
Dim fld As folder
Dim Fso As New FileSystemObject
For Each fld In Fso.getfolder("\\192.168.0.52\共享文件夹").subfolders
Debug.Print fld.Path
Next
End Sub
Private Sub Command1_Click()
Dim fld As folder
Dim Fso As New FileSystemObject
For Each fld In Fso.getfolder("\\192.168.0.52\共享文件夹").subfolders
MsgBox fld.Path
Next
End Sub