FileSystemObject 示例代码

Dim TestFolder Dim SubFolders Dim SubFolder Dim TextStream ' 排除(a)驱动器不存在，或(b)要创建的目录已经存在的情况。 If Not FSO.DriveExists(TestDrive) Then BuildTestDirectory = False Exit Function End If If FSO.FolderExists(TestFilePath) Then BuildTestDirectory = False Exit Function End If Set TestFolder = FSO.CreateFolder(TestFilePath) Set TextStream = FSO.CreateTextFile(TestFilePath & "eadMe.txt") TextStream.WriteLine("My song lyrics collection") TextStream.Close Set SubFolders = TestFolder.SubFolders Set SubFolder = SubFolders.Add("Beatles") CreateLyrics SubFolder BuildTestDirectory = True End Function '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' 主程序 ' 首先，它创建一个 test 目录，以及一些子文件夹和文件。 ' 然后，它转储有关可用磁盘驱动器和 test 目录的某些信息， ' 最后，清除 test 目录及其所有内容。 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub Main Dim FSO ' 设立全局变量。 TabStop = Chr(9) NewLine = Chr(10)

织梦内容管理系统

Set FSO = CreateObject("Scripting.FileSystemObject")



If Not BuildTestDirectory(FSO) Then 

Print "Test directory already exists or cannot be created.  Cannot continue."

Exit Sub

End If



Print GenerateDriveInformation(FSO) & NewLine & NewLine

Print GenerateTestInformation(FSO) & NewLine & NewLine

Print GetLyrics(FSO) & NewLine & NewLine

DeleteTestDirectory(FSO)



End Sub dedecms.com