您现在正在浏览：站长之家 >> 设计编程 >> 详细内容

FileSystemObject 示例代码

时间:2007-12-27 来源:不详作者:林子

' - FileSystemObject.DriveExists ' - FileSystemObject.FolderExists ' - FileSystemObject.GetFolder '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Function GenerateTestInformation(FSO) Dim TestFolder Dim S If Not FSO.DriveExists(TestDrive) Then Exit Function If Not FSO.FolderExists(TestFilePath) Then Exit Function Set TestFolder = FSO.GetFolder(TestFilePath) GenerateTestInformation = GenerateAllFolderInformation(TestFolder) End Function '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' DeleteTestDirectory ' 目的： ' 清理 test 目录。 ' 示范下面的内容 ' - FileSystemObject.GetFolder ' - FileSystemObject.DeleteFile ' - FileSystemObject.DeleteFolder ' - Folder.Delete ' - File.Delete '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub DeleteTestDirectory(FSO) Dim TestFolder Dim SubFolder Dim File 本文来自织梦


' 有两种方法可用来删除文件：



FSO.DeleteFile(TestFilePath & "\Beatles\OctopusGarden.txt")



Set File = FSO.GetFile(TestFilePath & "\Beatles\BathroomWindow.txt")

File.Delete



' 有两种方法可用来删除文件夹：

FSO.DeleteFolder(TestFilePath & "\Beatles")

FSO.DeleteFile(TestFilePath & "eadMe.txt")

Set TestFolder = FSO.GetFolder(TestFilePath)

TestFolder.Delete



End Sub



''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

' CreateLyrics

' 目的： 

' 在文件夹中创建两个文本文件。

' 示范下面的内容

'  - FileSystemObject.CreateTextFile

'  - TextStream.WriteLine

'  - TextStream.Write

'  - TextStream.WriteBlankLines

'  - TextStream.Close

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''



Sub CreateLyrics(Folder)



Dim TextStream 织梦内容管理系统


Set TextStream = Folder.CreateTextFile("OctopusGarden.txt") 本文来自织梦


TextStream.Write("Octopus' Garden ") ' 请注重，该语句不添加换行到文件中。

TextStream.WriteLine("(by Ringo Starr)")

TextStream.WriteBlankLines(1)

TextStream.WriteLine("I'd like to be under the sea in an octopus' garden in the shade,")

TextStream.WriteLine("He'd let us in, knows where we've been -- in his octopus' garden in the shade.")

TextStream.WriteBlankLines(2)



标签云:代码 TabStop NewLine If Dim End