<p>FSO系列之六**示例代码之详细代码2</p> <p>&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;<br /> &#39;<br /> &#39; GenerateAllFolderInformation<br /> &#39;<br /> &#39; 目的：<br /> &#39;<br /> &#39; 生成一个字符串，来描述一个文件夹和所有文件及子文件夹的当前状态。<br /> &#39;<br /> &#39; 示范下面的内容<br /> &#39;<br /> &#39; - Folder.Path<br /> &#39; - Folder.SubFolders<br /> &#39; - Folders.Count<br /> &#39;<br /> &#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</p> <p>Function GenerateAllFolderInformation(Folder)</p> <p> Dim S<br /> Dim SubFolders<br /> Dim SubFolder<br /> Dim Files<br /> Dim File</p> <p> S = &quot;Folder:&quot; &amp; TabStop &amp; Folder.Path &amp; NewLine &amp; NewLine</p> <p> Set Files = Folder.Files</p> <p> If 1 = Files.Count Then<br /> S = S &amp; &quot;There is 1 file&quot; &amp; NewLine<br /> Else<br /> S = S &amp; &quot;There are &quot; &amp; Files.Count &amp; &quot; files&quot; &amp; NewLine<br /> End If</p> <p> If Files.Count &lt;&gt; 0 Then</p> <p> For Each File In Files<br /> S = S &amp; GenerateFileInformation(File)<br /> Next</p> <p> End If</p> <p> Set SubFolders = Folder.SubFolders</p> <p> If 1 = SubFolders.Count Then<br /> S = S &amp; NewLine &amp; &quot;There is 1 sub folder&quot; &amp; NewLine &amp; NewLine<br /> Else<br /> S = S &amp; NewLine &amp; &quot;There are &quot; &amp; SubFolders.Count &amp; &quot; sub folders&quot; &amp; NewLine &amp; NewLine<br /> End If</p> <p> If SubFolders.Count &lt;&gt; 0 Then</p> <p> For Each SubFolder In SubFolders<br /> S = S &amp; GenerateFolderInformation(SubFolder)<br /> Next</p> <p> S = S &amp; NewLine</p> <p> For Each SubFolder In SubFolders<br /> S = S &amp; GenerateAllFolderInformation(SubFolder)<br /> Next</p> <p> End If</p> <p> GenerateAllFolderInformation = S</p> <p>End Function</p> <p>&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;<br /> &#39;<br /> &#39; GenerateTestInformation<br /> &#39;<br /> &#39; 目的：<br /> &#39;<br /> &#39; 生成一个字符串，来描述 C:Test 文件夹和所有文件及子文件夹的当前状态。<br /> &#39;<br /> &#39; 示范下面的内容<br /> &#39;<br /> &#39; - FileSystemObject.DriveExists<br /> &#39; - FileSystemObject.FolderExists<br /> &#39; - FileSystemObject.GetFolder<br /> &#39;<br /> &#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</p> <p>Function GenerateTestInformation(FSO)</p> <p> Dim TestFolder<br /> Dim S</p> <p> If Not FSO.DriveExists(TestDrive) Then Exit Function<br /> If Not FSO.FolderExists(TestFilePath) Then Exit Function</p> <p> Set TestFolder = FSO.GetFolder(TestFilePath)</p> <p> GenerateTestInformation = GenerateAllFolderInformation(TestFolder)</p> <p>End Function</p> <p><br /> &#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;<br /> &#39;<br /> &#39; DeleteTestDirectory<br /> &#39;<br /> &#39; 目的：<br /> &#39;<br /> &#39; 清理 test 目录。<br /> &#39;<br /> &#39; 示范下面的内容<br /> &#39;<br /> &#39; - FileSystemObject.GetFolder<br /> &#39; - FileSystemObject.DeleteFile<br /> &#39; - FileSystemObject.DeleteFolder<br /> &#39; - Folder.Delete<br /> &#39; - File.Delete<br /> &#39;<br /> &#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</p> <p>Sub DeleteTestDirectory(FSO)</p> <p> Dim TestFolder<br /> Dim SubFolder<br /> Dim File<br /> <br /> &#39; 有两种方法可用来删除文件：</p> <p> FSO.DeleteFile(TestFilePath &amp; &quot;BeatlesOctopusGarden.txt&quot;)</p> <p> Set File = FSO.GetFile(TestFilePath &amp; &quot;BeatlesBathroomWindow.txt&quot;)<br /> File.Delete &amp;</p>