我正在尝试使用 FileSystemObject 打开一个文件,但是当我尝试运行它时,系统什么也不做。不显示调试,没有运行时错误,不编译。它只是保持原样。我还检查了参考资料中的“MS Scripting Runtime”。下面是我为此使用的代码:
Sub fsoobject()
Dim fso As New FileSystemObject, f As Folder, sf As Folder, myFile As File
Set f = fso.GetFolder("C:\Users\jpmehta\Desktop")
For Each sf In f.SubFolders
For Each mySubFolder In myFolder.SubFolders
For Each myFile In mySubFolder.Files
If myFile.Name Like "Done" Then
MsgBox myFile.Name
Exit For
End If
Next
MsgBox "Else"
Next
Next
End Sub
Sub fsoobject()
Dim fso As New FileSystemObject
dim f As Folder
dim sf As Folder
dim mySubFolder as folder
dim myFile As File
Set f = fso.GetFolder("C:\Users\jpmehta\Desktop")
dim found as boolean 'flag if found
For Each sf In f.SubFolders
For Each mySubFolder In myFolder.SubFolders
For Each myFile In mySubFolder.Files
If myFile.Name Like "Done*.*" Then
MsgBox mysubfolder.path & "\" & myFile.Name
found = true 'we found it
Exit For 'so stop
End If
Next myFile
if found then exit for 'cascade exit
Next MySubFolder
if found then exit for 'and again
next sf
End Sub
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句