{"id":732,"date":"2007-10-20T21:35:17","date_gmt":"2007-10-20T13:35:17","guid":{"rendered":"http:\/\/blog.myhz.com\/blog\/2010\/05\/06\/asp%e4%b8%ad%e5%b8%b8%e7%94%a8%e7%9a%8422%e4%b8%aafso%e6%96%87%e4%bb%b6%e6%93%8d%e4%bd%9c%e5%87%bd%e6%95%b0\/"},"modified":"2010-05-07T11:17:28","modified_gmt":"2010-05-07T03:17:28","slug":"asp%e4%b8%ad%e5%b8%b8%e7%94%a8%e7%9a%8422%e4%b8%aafso%e6%96%87%e4%bb%b6%e6%93%8d%e4%bd%9c%e5%87%bd%e6%95%b0","status":"publish","type":"post","link":"https:\/\/ivan.xin\/?p=732","title":{"rendered":"ASP\u4e2d\u5e38\u7528\u768422\u4e2aFSO\u6587\u4ef6\u64cd\u4f5c\u51fd\u6570"},"content":{"rendered":"<p>Ivan \u53d1\u8868\u4e8e 2007-10-20 21:35:00<\/p>\n<p>1.\u6587\u4ef6\u64cd\u4f5c\uff0c\u53d6\u6587\u4ef6\u5927\u5c0f<\/p>\n<p>Function GetFileSize(FileName)<br \/>\n\u2019\/\/\u529f\u80fd\uff1a\u53d6\u6587\u4ef6\u5927\u5c0f<br \/>\n\u2019\/\/\u5f62\u53c2\uff1a\u6587\u4ef6\u540d<br \/>\n\u2019\/\/\u8fd4\u56de\u503c\uff1a\u6210\u529f\u4e3a\u6587\u4ef6\u5927\u5c0f\uff0c\u5931\u8d25\u4e3a-1<br \/>\n\u2019\/\/<br \/>\nDim f<br \/>\nIf ReportFileStatus(FileName) = 1 Then<br \/>\nSet f = fso.Getfile(FileName)<br \/>\nGetFileSize = f.Size<br \/>\nElse<br \/>\nGetFileSize = -1<br \/>\nEnd if<br \/>\nEnd Function<br \/>\n2.\u4f7f\u7528FSO\u5220\u9664\u6307\u5b9a\u6587\u4ef6<br \/>\nFunction deleteAFile(filespec)<br \/>\n\u2019\/\/\u529f\u80fd\uff1a\u6587\u4ef6\u5220\u9664<br \/>\n\u2019\/\/\u5f62\u53c2\uff1a\u6587\u4ef6\u540d<br \/>\n\u2019\/\/\u8fd4\u56de\u503c\uff1a\u6210\u529f\u4e3a1\uff0c\u5931\u8d25\u4e3a-1<br \/>\n\u2019\/\/<br \/>\nIf ReportFileStatus(filespec) = 1 Then<br \/>\nfso.deleteFile(filespec)<br \/>\ndeleteAFile = 1<br \/>\nElse<br \/>\ndeleteAFile = -1<br \/>\nEnd if<br \/>\nEnd Function<br \/>\n3.FSO\u663e\u793a\u6307\u5b9a\u76ee\u5f55\u4e0b\u7684\u6240\u6709\u6587\u4ef6<\/p>\n<p>Function ShowFileList(folderspec)<br \/>\n\u2019\/\/\u529f\u80fd\uff1a\u76ee\u5f55\u5b58\u5728\u65f6\u663e\u793a\u6b64\u76ee\u5f55\u4e0b\u7684\u6240\u6709\u6587\u4ef6<br \/>\n\u2019\/\/\u5f62\u53c2\uff1a\u76ee\u5f55\u540d<br \/>\n\u2019\/\/\u8fd4\u56de\u503c\uff1a\u6210\u529f\u4e3a\u6587\u4ef6\u5217\u8868\uff0c\u5931\u8d25\u4e3a-1<br \/>\n\u2019\/\/<br \/>\nDim f, f1, fc, s<br \/>\nIf ReportFolderStatus(folderspec) = 1 Then<br \/>\nSet f = fso.GetFolder(folderspec)<br \/>\nSet fc = f.Files<br \/>\nFor Each f1 in fc<br \/>\ns = s &amp; f1.name<br \/>\ns = s &amp; \"|\"<br \/>\nNext<br \/>\nShowFileList = s<br \/>\nElse<br \/>\nShowFileList = -1<br \/>\nEnd if<br \/>\nEnd Function<br \/>\n4.\u4f7f\u7528fso\u590d\u5236\u6307\u5b9a\u6587\u4ef6<br \/>\nFunction CopyAFile(SourceFile,DestinationFile)<br \/>\n\u2019\/\/\u529f\u80fd\uff1a\u6e90\u6587\u4ef6\u5b58\u5728\u65f6\uff0c\u624d\u80fd\u5bf9\u6587\u4ef6\u8fdb\u884c\u590d\u5236\uff0c\u76ee\u7684\u6587\u4ef6\u65e0\u5f71\u54cd<br \/>\n\u2019\/\/\u5f62\u53c2\uff1a\u6e90\u6587\u4ef6\uff0c\u76ee\u7684\u6587\u4ef6<br \/>\n\u2019\/\/\u8fd4\u56de\u503c\uff1a\u6210\u529f\u4e3a1\uff0c\u5931\u8d25\u4e3a-1<br \/>\n\u2019\/\/<br \/>\nDim MyFile<br \/>\nIf ReportFileStatus(SourceFile) = 1 Then<br \/>\nSet MyFile = fso.GetFile(SourceFile)<br \/>\nMyFile.Copy (DestinationFile)<br \/>\nCopyAFile = 1<br \/>\nElse<br \/>\nCopyAFile = -1<br \/>\nEnd if<br \/>\nEnd Function<br \/>\n5.\u6e90\u6587\u4ef6\u5b58\u5728\u65f6\u76ee\u7684\u6587\u4ef6\u4e0d\u5b58\u5728\u65f6\u624d\u80fd\u5bf9\u6587\u4ef6\u8fdb\u884c\u79fb\u52a8<br \/>\n\u2019Response.Write MoveAFile(\"f:\\123\\4561.exe\",\"f:\\123\\4562.txt\")<br \/>\nFunction MoveAFile(SourceFile,DestinationFile)<br \/>\n\u2019\/\/\u5f62\u53c2\uff1a\u6e90\u6587\u4ef6\uff0c\u76ee\u7684\u6587\u4ef6<br \/>\n\u2019\/\/\u8fd4\u56de\u503c\uff1a\u6210\u529f\u4e3a1\uff0c\u5931\u8d25\u4e3a-1<br \/>\n\u2019\/\/<br \/>\nIf ReportFileStatus(SourceFile)=1 And<br \/>\nReportFileStatus(DestinationFileORPath) =-1 Then<br \/>\nfso.MoveFile SourceFile,DestinationFileORPath<br \/>\nMoveAFile = 1<br \/>\nElse<br \/>\nMoveAFile = -1<br \/>\nEnd if<br \/>\nEnd Function<br \/>\n6.FSO\u5224\u65ad\u6307\u5b9a\u6587\u4ef6\u662f\u5426\u5b58\u5728\uff1f<br \/>\nFunction ReportFileStatus(FileName)<br \/>\n\u2019\/\/\u529f\u80fd\uff1a\u5224\u65ad\u6587\u4ef6\u662f\u5426\u5b58\u5728<br \/>\n\u2019\/\/\u5f62\u53c2\uff1a\u6587\u4ef6\u540d<br \/>\n\u2019\/\/\u8fd4\u56de\u503c\uff1a\u6210\u529f\u4e3a1\uff0c\u5931\u8d25\u4e3a-1<br \/>\n\u2019\/\/<br \/>\nDim msg<br \/>\nmsg = -1<br \/>\nIf (fso.FileExists(FileName)) Then<br \/>\nmsg = 1<br \/>\nElse<br \/>\nmsg = -1<br \/>\nEnd If<br \/>\nReportFileStatus = msg<br \/>\nEnd Function<br \/>\n7.FSO\u8bfb\u53d6\u6587\u4ef6\u521b\u5efa\u65e5\u671f<\/p>\n<p>Function ShowDatecreated(filespec)<br \/>\n\u2019\/\/\u529f\u80fd\uff1a\u6587\u4ef6\u521b\u5efa\u65e5\u671f<br \/>\n\u2019\/\/\u5f62\u53c2\uff1a\u6587\u4ef6\u540d<br \/>\n\u2019\/\/\u8fd4\u56de\u503c\uff1a\u6210\u529f\uff1a\u6587\u4ef6\u521b\u5efa\u65e5\u671f\uff0c\u5931\u8d25\uff1a-1<br \/>\n\u2019\/\/<br \/>\nDim f<br \/>\nIf ReportFileStatus(filespec) = 1 Then<br \/>\nSet f = fso.GetFile(filespec)<br \/>\nShowDatecreated = f.Datecreated<br \/>\nElse<br \/>\nShowDatecreated = -1<br \/>\nEnd if<br \/>\nEnd Function<\/p>\n<p>8.FSO\u663e\u793a\u6587\u4ef6\u8bfb\u5199\u6743\u9650\u5c5e\u6027<\/p>\n<p>Function GetAttributes(FileName)<br \/>\n\u2019\/\/\u529f\u80fd\uff1a\u663e\u793a\u6587\u4ef6\u5c5e\u6027<br \/>\n\u2019\/\/\u5f62\u53c2\uff1a\u6587\u4ef6\u540d<br \/>\n\u2019\/\/\u8fd4\u56de\u503c\uff1a\u6210\u529f\uff1a\u6587\u4ef6\u5c5e\u6027\uff0c\u5931\u8d25\uff1a-1<br \/>\n\u2019\/\/<br \/>\nDim f,Str<br \/>\nIf ReportFileStatus(FileName) = 1 Then<br \/>\nSet f = fso.GetFile(FileName)<br \/>\nselect Case f.attributes<br \/>\nCase 0 Str=\"\u666e\u901a\u6587\u4ef6\u3002\u6ca1\u6709\u8bbe\u7f6e\u4efb\u4f55\u5c5e\u6027\u3002 \"<br \/>\nCase 1 Str=\"\u53ea\u8bfb\u6587\u4ef6\u3002\u53ef\u8bfb\u5199\u3002 \"<br \/>\nCase 2 Str=\"\u9690\u85cf\u6587\u4ef6\u3002\u53ef\u8bfb\u5199\u3002 \"<br \/>\nCase 4 Str=\"\u7cfb\u7edf\u6587\u4ef6\u3002\u53ef\u8bfb\u5199\u3002 \"<br \/>\nCase 16 Str=\"\u6587\u4ef6\u5939\u6216\u76ee\u5f55\u3002\u53ea\u8bfb\u3002 \"<br \/>\nCase 32 Str=\"\u4e0a\u6b21\u5907\u4efd\u540e\u5df2\u66f4\u6539\u7684\u6587\u4ef6\u3002\u53ef\u8bfb\u5199\u3002 \"<br \/>\nCase 1024 Str=\"\u94fe\u63a5\u6216\u5feb\u6377\u65b9\u5f0f\u3002\u53ea\u8bfb\u3002 \"<br \/>\nCase 2048 Str=\" \u538b\u7f29\u6587\u4ef6\u3002\u53ea\u8bfb\u3002\"<br \/>\nEnd select<br \/>\nGetAttributes = Str<br \/>\nElse<br \/>\nGetAttributes = -1<br \/>\nEnd if<br \/>\nEnd Function<\/p>\n<p>9.FSO\u663e\u793a\u6307\u5b9a\u6587\u4ef6\u6700\u540e\u4e00\u6b21\u8bbf\u95ee\/\u6700\u540e\u4e00\u6b21\u4fee\u6539\u65f6\u95f4<br \/>\n\u2019Response.Write ShowFileAccessInfo(\"\u6587\u4ef6\u8def\u5f84\")<br \/>\nFunction ShowFileAccessInfo(FileName,InfoType)<br \/>\n\u2019\/\/\u529f\u80fd\uff1a\u663e\u793a\u6587\u4ef6\u521b\u5efa\u65f6\u4fe1\u606f<br \/>\n\u2019\/\/\u5f62\u53c2\uff1a\u6587\u4ef6\u540d,\u4fe1\u606f\u7c7b\u522b<br \/>\n\u2019\/\/ 1 -----\u521b\u5efa\u65f6\u95f4<br \/>\n\u2019\/\/ 2 -----\u4e0a\u6b21\u8bbf\u95ee\u65f6\u95f4<br \/>\n\u2019\/\/ 3 -----\u4e0a\u6b21\u4fee\u6539\u65f6\u95f4<br \/>\n\u2019\/\/ 4 -----\u6587\u4ef6\u8def\u5f84<br \/>\n\u2019\/\/ 5 -----\u6587\u4ef6\u540d\u79f0<br \/>\n\u2019\/\/ 6 -----\u6587\u4ef6\u7c7b\u578b<br \/>\n\u2019\/\/ 7 -----\u6587\u4ef6\u5927\u5c0f<br \/>\n\u2019\/\/ 8 -----\u7236\u76ee\u5f55<br \/>\n\u2019\/\/ 9 -----\u6839\u76ee\u5f55<br \/>\n\u2019\/\/\u8fd4\u56de\u503c\uff1a\u6210\u529f\u4e3a\u6587\u4ef6\u521b\u5efa\u65f6\u4fe1\u606f\uff0c\u5931\u8d25\uff1a-1<br \/>\n\u2019\/\/<br \/>\nDim f, s<br \/>\nIf ReportFileStatus(FileName) = 1 then<br \/>\nSet f = fso.GetFile(FileName)<br \/>\nselect Case InfoType<br \/>\nCase 1 s = f.Datecreated \u2019\/\/ 1 -----\u521b\u5efa\u65f6\u95f4<br \/>\nCase 2 s = f.DateLastAccessed \u2019\/\/ 2 -----\u4e0a\u6b21\u8bbf\u95ee\u65f6\u95f4<br \/>\nCase 3 s = f.DateLastModified \u2019\/\/ 3 -----\u4e0a\u6b21\u4fee\u6539\u65f6\u95f4<br \/>\nCase 4 s = f.Path \u2019\/\/ 4-----\u6587\u4ef6\u8def\u5f84<br \/>\nCase 5 s = f.Name \u2019\/\/ 5 -----\u6587\u4ef6\u540d\u79f0<br \/>\nCase 6 s = f.Type \u2019\/\/ 6-----\u6587\u4ef6\u7c7b\u578b<br \/>\nCase 7 s = f.Size \u2019\/\/ 7-----\u6587\u4ef6\u5927\u5c0f<br \/>\nCase 8 s = f.ParentFolder \u2019\/\/ 8 -----\u7236\u76ee\u5f55<br \/>\nCase 9 s = f.RootFolder \u2019\/\/ 8 -----\u6839\u76ee\u5f55<br \/>\nEnd select<br \/>\nShowFileAccessInfo = s<br \/>\nELse<br \/>\nShowFileAccessInfo = -1<br \/>\nEnd if<br \/>\nEnd Function<br \/>\n10.FSO\u5199\u6307\u5b9a\u5185\u5bb9\u5230\u6587\u672c\u6587\u4ef6<\/p>\n<p>Function WriteTxtFile(FileName,TextStr,WriteORAppendType)<br \/>\nConst ForReading = 1, ForWriting = 2 , ForAppending = 8<br \/>\nDim f, m<br \/>\nselect Case WriteORAppendType<br \/>\nCase 1: \u2019\u6587\u4ef6\u8fdb\u884c\u5199\u64cd\u4f5c<br \/>\nSet f = fso.OpenTextFile(FileName, ForWriting, True)<br \/>\nf.Write TextStr<br \/>\nf.Close<br \/>\nIf ReportFileStatus(FileName) = 1 then<br \/>\nWriteTxtFile = 1<br \/>\nElse<br \/>\nWriteTxtFile = -1<br \/>\nEnd if<br \/>\nCase 2: \u2019\u6587\u4ef6\u672b\u5c3e\u8fdb\u884c\u5199\u64cd\u4f5c<br \/>\nIf ReportFileStatus(FileName) = 1 then<br \/>\nSet f = fso.OpenTextFile(FileName, ForAppending)<br \/>\nf.Write TextStr<br \/>\nf.Close<br \/>\nWriteTxtFile = 1<br \/>\nElse<br \/>\nWriteTxtFile = -1<br \/>\nEnd if<br \/>\nEnd select<br \/>\nEnd Function<br \/>\n11.\u5229\u7528FSO\u8bfb\u53d6\u6587\u672c\u6587\u4ef6\u5185\u5bb9<\/p>\n<p>Function ReadTxtFile(FileName)<br \/>\nConst ForReading = 1, ForWriting = 2<br \/>\nDim f, m<br \/>\nIf ReportFileStatus(FileName) = 1 then<br \/>\nSet f = fso.OpenTextFile(FileName, ForReading)<br \/>\nm = f.ReadLine<br \/>\n\u2019m = f.ReadAll<br \/>\n\u2019f.SkipLine<br \/>\nReadTxtFile = m<br \/>\nf.Close<br \/>\nElse<br \/>\nReadTxtFile = -1<br \/>\nEnd if<br \/>\nEnd Function<\/p>\n<p>12.FSO\u8fd4\u56de\u6587\u4ef6\u5939\u76ee\u5f55\u7a7a\u95f4\u5927\u5c0f<br \/>\nFunction GetFolderSize(FolderName)<br \/>\n\u2019\/\/\u529f\u80fd\uff1a\u53d6\u76ee\u5f55\u5927\u5c0f<br \/>\n\u2019\/\/\u5f62\u53c2\uff1a\u76ee\u5f55\u540d<br \/>\n\u2019\/\/\u8fd4\u56de\u503c\uff1a\u6210\u529f\u4e3a\u76ee\u5f55\u5927\u5c0f\uff0c\u5931\u8d25\u4e3a-1<br \/>\n\u2019\/\/<br \/>\nDim f<br \/>\nIf ReportFolderStatus(FolderName) = 1 Then<br \/>\nSet f = fso.GetFolder(FolderName)<br \/>\nGetFolderSize = f.Size<br \/>\nElse<br \/>\nGetFolderSize = -1<br \/>\nEnd if<br \/>\nEnd Function<br \/>\n13.\u4f7f\u7528FSO\u521b\u5efa\u6587\u4ef6\u5939<br \/>\nFunction createFolderDemo(FolderName)<br \/>\n\u2019\/\/\u529f\u80fd\uff1a\u521b\u5efa\u7684\u6587\u4ef6\u5939<br \/>\n\u2019\/\/\u5f62\u53c2\uff1a\u76ee\u5f55\u540d<br \/>\n\u2019\/\/\u8fd4\u56de\u503c\uff1a\u6210\u529f\u4e3a1\uff0c\u5931\u8d25\u4e3a-1<br \/>\n\u2019\/\/<br \/>\nDim f<br \/>\nIf ReportFolderStatus(Folderspec) = 1 Then<br \/>\ncreateFolderDemo = -1<br \/>\nElse<br \/>\nSet f = fso.createFolder(FolderName)<br \/>\ncreateFolderDemo = 1<br \/>\nEnd if<br \/>\nEnd Function<br \/>\n14.FSO\u5220\u9664\u6307\u5b9a\u6587\u4ef6\u5939\u76ee\u5f55<\/p>\n<p>Function deleteAFolder(Folderspec)<br \/>\n\u2019\/\/\u529f\u80fd\uff1a\u76ee\u5f55\u5220\u9664<br \/>\n\u2019\/\/\u5f62\u53c2\uff1a\u76ee\u5f55\u540d<br \/>\n\u2019\/\/\u8fd4\u56de\u503c\uff1a\u6210\u529f\u4e3a1\uff0c\u5931\u8d25\u4e3a-1<br \/>\n\u2019\/\/<br \/>\nResponse.write Folderspec<br \/>\nIf ReportFolderStatus(Folderspec) = 1 Then<br \/>\nfso.deleteFolder (Folderspec)<br \/>\ndeleteAFolder = 1<br \/>\nElse<br \/>\ndeleteAFolder = -1<br \/>\nEnd if<br \/>\nEnd Function<br \/>\n15.FSO\u663e\u793a\u6307\u5b9a\u76ee\u5f55\u7684\u6587\u4ef6\u5939\u76ee\u5f55\u5217\u8868<br \/>\nFunction ShowFolderList(folderspec)<br \/>\n\u2019\/\/\u529f\u80fd\uff1a\u76ee\u5f55\u5b58\u5728\u65f6\u663e\u793a\u6b64\u76ee\u5f55\u4e0b\u7684\u6240\u6709\u5b50\u76ee\u5f55<br \/>\n\u2019\/\/\u5f62\u53c2\uff1a\u76ee\u5f55\u540d<br \/>\n\u2019\/\/\u8fd4\u56de\u503c\uff1a\u6210\u529f\u4e3a\u5b50\u76ee\u5f55\u5217\u8868\uff0c\u5931\u8d25\u4e3a-1<br \/>\n\u2019\/\/<br \/>\nDim f, f1, fc, s<br \/>\nIf ReportFolderStatus(folderspec) = 1 Then<br \/>\nSet f = fso.GetFolder(folderspec)<br \/>\nSet fc = f.SubFolders<br \/>\nFor Each f1 in fc<br \/>\ns = s &amp; f1.name<br \/>\ns = s &amp; \"|\"<br \/>\nNext<br \/>\nShowFolderList = s<br \/>\nElse<br \/>\nShowFolderList = -1<br \/>\nEnd if<br \/>\nEnd Function<br \/>\n16.FSO\u590d\u5236\u6307\u5b9a\u6587\u4ef6\u5939\u76ee\u5f55<br \/>\nFunction CopyAFolder(SourceFolder,DestinationFolder)<br \/>\n\u2019\/\/\u529f\u80fd\uff1a\u6e90\u76ee\u5f55\u5b58\u5728\u65f6\uff0c\u624d\u80fd\u5bf9\u76ee\u5f55\u8fdb\u884c\u590d\u5236\uff0c\u76ee\u7684\u76ee\u5f55\u65e0\u5f71\u54cd<br \/>\n\u2019\/\/\u5f62\u53c2\uff1a\u6e90\u76ee\u5f55\uff0c\u76ee\u7684\u76ee\u5f55<br \/>\n\u2019\/\/\u8fd4\u56de\u503c\uff1a\u6210\u529f\u4e3a1\uff0c\u5931\u8d25\u4e3a-1<br \/>\n\u2019\/\/<br \/>\nDim MyFolder<br \/>\nIf ReportFolderStatus(SourceFolder) = 1 and ReportFolderStatus(DestinationFolder) = -1 Then<br \/>\nSet MyFolder = fso.GetFolder(SourceFolder)<br \/>\nfso.CopyFolder SourceFolder,DestinationFolder<br \/>\nCopyAFolder = 1<br \/>\nElse<br \/>\nCopyAFolder = -1<br \/>\nEnd if<br \/>\nEnd Function<br \/>\n17.\u79fb\u52a8\u6307\u5b9a\u6587\u4ef6\u5939\u76ee\u5f55<\/p>\n<p>Function MoveAFolder(SourcePath,DestinationPath)<br \/>\n\u2019\/\/\u529f\u80fd\uff1a\u6e90\u76ee\u5f55\u5b58\u5728\u65f6\u76ee\u7684\u76ee\u5f55\u4e0d\u5b58\u5728\u65f6\u624d\u80fd\u5bf9\u76ee\u5f55\u8fdb\u884c\u79fb\u52a8<br \/>\n\u2019\/\/\u5f62\u53c2\uff1a\u6e90\u76ee\u5f55\uff0c\u76ee\u7684\u76ee\u5f55<br \/>\n\u2019\/\/\u8fd4\u56de\u503c\uff1a\u6210\u529f\u4e3a1\uff0c\u5931\u8d25\u4e3a-1<br \/>\n\u2019\/\/<br \/>\nIf ReportFolderStatus(SourcePath)=1 And ReportFolderStatus(DestinationPath)=0 Then<br \/>\nfso.MoveFolder SourcePath, DestinationPath<br \/>\nMoveAFolder = 1<br \/>\nElse<br \/>\nMoveAFolder = -1<br \/>\nEnd if<br \/>\nEnd Function<br \/>\n18.\u5224\u65ad\u67d0\u76ee\u5f55\u662f\u5426\u5b58\u5728<\/p>\n<p>\u2019Response.Write ReportFolderStatus(\"G:\\soft\\delphi\\my_pro\\\")<br \/>\nFunction ReportFolderStatus(fldr)<br \/>\n\u2019\/\/\u529f\u80fd\uff1a\u5224\u65ad\u76ee\u5f55\u662f\u5426\u5b58\u5728<br \/>\n\u2019\/\/\u5f62\u53c2\uff1a\u76ee\u5f55<br \/>\n\u2019\/\/\u8fd4\u56de\u503c\uff1a\u6210\u529f\u4e3a1\uff0c\u5931\u8d25\u4e3a-1<br \/>\n\u2019\/\/<br \/>\nDim msg<br \/>\nmsg = -1<br \/>\nIf (fso.FolderExists(fldr)) Then<br \/>\nmsg = 1<br \/>\nElse<br \/>\nmsg = -1<br \/>\nEnd If<br \/>\nReportFolderStatus = msg<br \/>\nEnd Function<br \/>\n19.\u663e\u793a\u76ee\u5f55\u521b\u5efa\u65f6\u4fe1\u606f<\/p>\n<p>Function ShowFolderAccessInfo(FolderName,InfoType)<br \/>\n\u2019\/\/\u529f\u80fd\uff1a\u663e\u793a\u76ee\u5f55\u521b\u5efa\u65f6\u4fe1\u606f<br \/>\n\u2019\/\/\u5f62\u53c2\uff1a\u76ee\u5f55\u540d,\u4fe1\u606f\u7c7b\u522b<br \/>\n\u2019\/\/ 1 -----\u521b\u5efa\u65f6\u95f4<br \/>\n\u2019\/\/ 2 -----\u4e0a\u6b21\u8bbf\u95ee\u65f6\u95f4<br \/>\n\u2019\/\/ 3 -----\u4e0a\u6b21\u4fee\u6539\u65f6\u95f4<br \/>\n\u2019\/\/ 4 -----\u76ee\u5f55\u8def\u5f84<br \/>\n\u2019\/\/ 5 -----\u76ee\u5f55\u540d\u79f0<br \/>\n\u2019\/\/ 6 -----\u76ee\u5f55\u7c7b\u578b<br \/>\n\u2019\/\/ 7 -----\u76ee\u5f55\u5927\u5c0f<br \/>\n\u2019\/\/ 8 -----\u7236\u76ee\u5f55<br \/>\n\u2019\/\/ 9 -----\u6839\u76ee\u5f55<br \/>\n\u2019\/\/\u8fd4\u56de\u503c\uff1a\u6210\u529f\u4e3a\u76ee\u5f55\u521b\u5efa\u65f6\u4fe1\u606f\uff0c\u5931\u8d25\uff1a-1<br \/>\n\u2019\/\/<br \/>\nDim f, s<br \/>\nIf ReportFolderStatus(FolderName) = 1 then<br \/>\nSet f = fso.GetFolder(FolderName)<br \/>\nselect Case InfoType<br \/>\nCase 1 s = f.Datecreated \u2019\/\/ 1 -----\u521b\u5efa\u65f6\u95f4<br \/>\nCase 2 s = f.DateLastAccessed \u2019\/\/ 2 -----\u4e0a\u6b21\u8bbf\u95ee<br \/>\n\u65f6\u95f4<br \/>\nCase 3 s = f.DateLastModified \u2019\/\/ 3 -----\u4e0a\u6b21\u4fee\u6539\u65f6\u95f4<br \/>\nCase 4 s = f.Path \u2019\/\/ 4-----\u6587\u4ef6\u8def\u5f84<br \/>\nCase 5 s = f.Name \u2019\/\/ 5-----\u6587\u4ef6\u540d\u79f0<br \/>\nCase 6 s = f.Type \u2019\/\/ 6-----\u6587\u4ef6\u7c7b\u578b<br \/>\nCase 7 s = f.Size \u2019\/\/ 7-----\u6587\u4ef6\u5927\u5c0f<br \/>\nCase 8 s = f.ParentFolder \u2019\/\/ 8 -----\u7236\u76ee\u5f55<br \/>\nCase 9 s = f.RootFolder \u2019\/\/ 9 -----\u6839\u76ee\u5f55<br \/>\nEnd select<br \/>\nShowFolderAccessInfo = s<br \/>\nELse<br \/>\nShowFolderAccessInfo = -1<br \/>\nEnd if<br \/>\nEnd Function<br \/>\n20.\u8fd4\u56de\u6587\u4ef6\u5939\u5d4c\u5957\u6570<br \/>\nFunction DisplayLevelDepth(pathspec)<br \/>\nDim f, n ,Path<br \/>\nSet f = fso.GetFolder(pathspec)<br \/>\nIf f.IsRootFolder Then<br \/>\nDisplayLevelDepth =\"\u6307\u5b9a\u7684\u6587\u4ef6\u5939\u662f\u6839\u6587\u4ef6\u5939\u3002\"&amp;RootFolder<br \/>\nElse<br \/>\nDo Until f.IsRootFolder<br \/>\nPath = Path &amp; f.Name &amp;\"&lt;br&gt;\"<br \/>\nSet f = f.ParentFolder<br \/>\nn = n + 1<br \/>\nLoop<br \/>\nDisplayLevelDepth =\"\u6307\u5b9a\u7684\u6587\u4ef6\u5939\u662f\u5d4c\u5957\u7ea7\u4e3a \" &amp; n &amp; \"\u7684\u6587\u4ef6\u5939\u3002&lt;br \/&gt;\"&amp;Path<br \/>\nEnd If<br \/>\nEnd Function<br \/>\n21.\u5224\u65ad\u6307\u5b9a\u78c1\u76d8\u9a71\u52a8\u5668\u662f\u5426\u5b58\u5728\uff1f<\/p>\n<p>\u2019Response.Write ReportDriveStatus(\"C:\\\")<br \/>\nFunction ReportDriveStatus(drv)<br \/>\n\u2019\/\/\u529f\u80fd\uff1a\u5224\u65ad\u78c1\u76d8\u662f\u5426\u5b58\u5728<br \/>\n\u2019\/\/\u5f62\u53c2\uff1a\u78c1\u76d8<br \/>\n\u2019\/\/\u8fd4\u56de\u503c\uff1a\u6210\u529f\u4e3a1\uff0c\u5931\u8d25\u4e3a-1<br \/>\n\u2019\/\/<br \/>\nDim msg<br \/>\nmsg = -1<br \/>\nIf fso.DriveExists(drv) Then<br \/>\nmsg = 1<br \/>\nElse<br \/>\nmsg = -1<br \/>\nEnd If<br \/>\nReportDriveStatus = msg<br \/>\nEnd Function<\/p>\n<p>22.FSO\u8fd4\u56de\u6307\u5b9a\u78c1\u76d8\u53ef\u7528\u7684\u7c7b\u578b\u5305\u62ec FAT\u3001NTFS \u548c CDFS\u3002<\/p>\n<p>\u2019Response.Write ShowFileSystemType(\"C:\\\")<br \/>\nFunction ShowFileSystemType(drvspec)<br \/>\n\u2019\/\/\u529f\u80fd\uff1a\u78c1\u76d8\u7c7b\u578b<br \/>\n\u2019\/\/\u5f62\u53c2\uff1a\u78c1\u76d8\u540d<br \/>\n\u2019\/\/\u8fd4\u56de\u503c\uff1a\u6210\u529f\u4e3a\u7c7b\u578b\uff1aFAT\u3001NTFS \u548c CDFS\uff0c\u5931\u8d25\uff1a-1<br \/>\n\u2019\/\/<br \/>\nDim d<br \/>\nIf ReportDriveStatus(drvspec) = 1 Then<br \/>\nSet d = fso. GetDrive(drvspec)<br \/>\nShowFileSystemType = d.FileSystem<br \/>\nELse<br \/>\nShowFileSystemType = -1<br \/>\nEnd if<br \/>\nEnd Function<\/p>\n","protected":false},"excerpt":{"rendered":"<p>Ivan \u53d1\u8868\u4e8e 2007-10-20 21:35:00 1.\u6587\u4ef6\u64cd\u4f5c\uff0c\u53d6\u6587\u4ef6\u5927\u5c0f Function GetF...<\/p>\n","protected":false},"author":3,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[9],"tags":[],"class_list":["post-732","post","type-post","status-publish","format-standard","hentry","category-9"],"_links":{"self":[{"href":"https:\/\/ivan.xin\/index.php?rest_route=\/wp\/v2\/posts\/732","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/ivan.xin\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/ivan.xin\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/ivan.xin\/index.php?rest_route=\/wp\/v2\/users\/3"}],"replies":[{"embeddable":true,"href":"https:\/\/ivan.xin\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=732"}],"version-history":[{"count":0,"href":"https:\/\/ivan.xin\/index.php?rest_route=\/wp\/v2\/posts\/732\/revisions"}],"wp:attachment":[{"href":"https:\/\/ivan.xin\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=732"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/ivan.xin\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=732"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/ivan.xin\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=732"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}