FSO系列之六**示例代码之详细代码2

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' generateallfolderinformation'' 手段： '' 天生一个字符串，来刻画一个文献夹和一切文献及子文献夹的暂时状况。'' 演示底下的实质'' - folder.path' - folder.subfolders' - folders.count' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''function generateallfolderinformation(folder)dim sdim subfoldersdim subfolderdim filesdim files = "folder:" & tabstop & folder.path & newline & newlineset files = folder.filesif 1 = files.count thens = s & "there is 1 file" & newlineelses = s & "there are " & files.count & " files" & newlineend ifif files.count <> 0 thenfor each file in filess = s & generatefileinformation(file)nextend ifset subfolders = folder.subfoldersif 1 = subfolders.count thens = s & newline & "there is 1 sub folder" & newline & newlineelses = s & newline & "there are " & subfolders.count & " sub folders" & newline & newlineend ifif subfolders.count <> 0 thenfor each subfolder in subfolderss = s & generatefolderinformation(subfolder)nexts = s & newlinefor each subfolder in subfolderss = s & generateallfolderinformation(subfolder)nextend ifgenerateallfolderinformation = send function'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' generatetestinformation'' 手段： '' 天生一个字符串，来刻画 c:\test 文献夹和一切文献及子文献夹的暂时状况。'' 演示底下的实质'' - filesystemobject.driveexists' - filesystemobject.folderexists' - filesystemobject.getfolder'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''function generatetestinformation(fso)dim testfolderdim sif not fso.driveexists(testdrive) then exit functionif not fso.folderexists(testfilepath) then exit functionset 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 testfolderdim subfolderdim file' 有两种本领可用来简略文献：fso.deletefile(testfilepath & "\beatles\octopusgarden.txt")set file = fso.getfile(testfilepath & "\beatles\bathroomwindow.txt")file.delete' 有两种本领可用来简略文献夹：fso.deletefolder(testfilepath & "\beatles")fso.deletefile(testfilepath & "\readme.txt")set testfolder = fso.getfolder(testfilepath)testfolder.deleteend sub'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' createlyrics'' 手段： '' 在文献夹中创造两个文本文献。''' 演示底下的实质'' - filesystemobject.createtextfile' - textstream.writeline' - textstream.write' - textstream.writeblanklines' - textstream.close'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''sub createlyrics(folder)dim textstreamset 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)textstream.closeset textstream = folder.createtextfile("bathroomwindow.txt")textstream.writeline("she came in through the bathroom window (by lennon/mccartney)")textstream.writeline("")textstream.writeline("she came in through the bathroom window protected by a silver spoon")textstream.writeline("but now she sucks her thumb and wanders by the banks of her own lagoon")textstream.writeblanklines(2)textstream.closeend sub'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' getlyrics'' 手段： '' 表露 lyrics 文献的实质。''' 演示底下的实质'' - filesystemobject.opentextfile' - filesystemobject.getfile' - textstream.readall' - textstream.close' - file.openastextstream' - textstream.atendofstream' - textstream.readline'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''function getlyrics(fso)dim textstreamdim sdim file' 有多种本领可用来翻开一个文本文献，和多种本领来从文献读取数据。' 这边用了两种本领来翻开文献和读取文献：set textstream = fso.opentextfile(testfilepath & "\beatles\octopusgarden.txt", openfileforreading)s = textstream.readall & newline & newlinetextstream.closeset file = fso.getfile(testfilepath & "\beatles\bathroomwindow.txt")set textstream = file.openastextstream(openfileforreading)do while not textstream.atendofstreams = s & textstream.readline & newlinelooptextstream.closegetlyrics = send function'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' buildtestdirectory'' 手段： '' 创造一个目次分层构造来演示 filesystemobject。'' 以如许的步骤来创造分层构造：'' c:\test' c:\test\readme.txt' c:\test\beatles' c:\test\beatles\octopusgarden.txt' c:\test\beatles\bathroomwindow.txt''' 演示底下的实质'' - filesystemobject.driveexists' - filesystemobject.folderexists' - filesystemobject.createfolder' - filesystemobject.createtextfile' - folders.add' - folder.createtextfile' - textstream.writeline' - textstream.close'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''function buildtestdirectory(fso)dim testfolderdim subfoldersdim subfolderdim textstream' 废除(a)启动器不生存，或(b)要创造的目次仍旧生存的情景。if not fso.driveexists(testdrive) thenbuildtestdirectory = falseexit functionend ifif fso.folderexists(testfilepath) thenbuildtestdirectory = falseexit functionend ifset testfolder = fso.createfolder(testfilepath)set textstream = fso.createtextfile(testfilepath & "\readme.txt")textstream.writeline("my song lyrics collection")textstream.closeset subfolders = testfolder.subfoldersset subfolder = subfolders.add("beatles")createlyrics subfolderbuildtestdirectory = trueend function'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 主步调'' 开始，它创造一个 test 目次，以及少许子文献夹和文献。 ' 而后，它转储相关可用磁盘启动器和 test 目次的某些消息，' 结果，废除 test 目次及其一切实质。'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''sub maindim 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 subend ifprint generatedriveinformation(fso) & newline & newlineprint generatetestinformation(fso) & newline & newlineprint getlyrics(fso) & newline & newlinedeletetestdirectory(fso)end sub