vbs文件夾屬性

A. VBS讀文件夾問題

''保存為vbs放在（網路游戲)文件夾里

Dim aFiles,aFolders.Fso
On Error Resume Next
Set Fso = CreateObject("Scripting.FileSystemObject")
objFolder = CreateObject("WScript.Shell").CurrentDirectory
ShowFolders Fso.GetFolder(objFolder)
MsgBox "檢查完畢"
Function ShowFolders(Folder)
For Each Subfolder in Folder.SubFolders
'WScript.Echo Subfolder.Path
If Not (Fso.FileExists(Subfolder.Path & "1.txt")) Then
MsgBox Subfolder.Path & " 文件夾里無1.txt"
End If
ShowFolders Subfolder
Next
End Function

補充回答:代碼里Subfolder.Path就是文件夾名
MsgBox Subfolder.Path & " 文件夾里無1.txt"
改成
MsgBox Subfolder.Path