学步园

Option Explicit<br /> MsgBox "F盘的文件及文件夹"<br /> ThroughFiles<br /> THroughFolder<br /> Sub ThroughFiles<br /> Dim fso,AllFiles,EachFile<br /> Set fso=CreateObject("Scripting.FileSystemObject")<br /> Set AllFiles=fso.GetFolder("F:/")<br /> For Each EachFile In AllFiles.Files<br /> MsgBox "File : " & """" & EachFile.Name & """"<br /> Next<br /> End Sub<br /> Sub THroughFolder<br /> Dim fso,AllFolders,EachFolder<br /> Set fso=CreateObject("Scripting.FileSystemObject")<br /> Set AllFolders=fso.GetFolder("F:/")<br /> For Each EachFolder In AllFolders.SubFolders<br /> MsgBox "Folder : " & """" & EachFolder.Name & """"<br /> Next<br /> End Sub<br />  

这是我这两个星期学期VBS的研究成果之一，呵呵，其实只是把书上讲的属性、方法简单的用了一下，希望对那些学习VBS的人也会有帮助把