Files, directories, text files and other operations

一个使用fso的class，前面的文章也有提到。这里有比较多的一些实例。

<%

DimMyFileFolder

SetMyFileFolder=NewFileFolderCls

''Response.WriteMyFileFolder.MoveAFile("f:/123/4561.exe","f:/123/4562.txt")

''Response.WriteMyFileFolder.MoveAFolder("f:/456","f:/ditg/456")

''Response.WriteMyFileFolder.ShowFileSystemType("i:/")

''Response.WriteMyFileFolder.CopyAFile("f:/123/4562.txt","f:/123/4563.txt")

''!!!!

''Response.WriteMyFileFolder.CopyAFolder("f:/123/","f:/789/")

''Response.WriteMyFileFolder.ShowFolderList("f:/ditg")

''Response.WriteMyFileFolder.ShowFileList("f:/123/123")

''Response.WriteMyFileFolder.DeleteAFile("f:/123/4562.txt")

''Response.WriteMyFileFolder.DeleteAFolder("f:/456/")

''Response.WriteMyFileFolder.CreateFolderDemo("f:/147/")

''Response.WriteMyFileFolder.GetFileSize("f:/123/4563.txt")

''Response.WriteMyFileFolder.GetFolderSize("f:/123/123.txt")

''Response.WriteMyFileFolder.ShowFileAccessInfo("f:/123/123.txt",1)&"<br>"

''Response.WriteMyFileFolder.ShowFileAccessInfo("f:/123/123.txt",2)&"<br>"

''Response.WriteMyFileFolder.ShowFileAccessInfo("f:/123/123.txt",3)&"<br>"

''Response.WriteMyFileFolder.ShowFileAccessInfo("f:/123/123.txt",4)&"<br>"

''Response.WriteMyFileFolder.ShowFileAccessInfo("f:/123/123.txt",5)&"<br>"

''Response.WriteMyFileFolder.ShowFileAccessInfo("f:/123/123.txt",6)&"<br>"

''Response.WriteMyFileFolder.ShowFileAccessInfo("f:/123/123.txt",7)&"<br>"

''Response.WriteMyFileFolder.ShowFileAccessInfo("f:/123/123.txt",8)&"<br>"

''Response.WriteMyFileFolder.ShowFolderAccessInfo("f:/123/",1)&"<br>"

''Response.WriteMyFileFolder.ShowFolderAccessInfo("f:/123/",2)&"<br>"

''Response.WriteMyFileFolder.ShowFolderAccessInfo("f:/123/",3)&"<br>"

''Response.WriteMyFileFolder.ShowFolderAccessInfo("f:/123/",4)&"<br>"

''Response.WriteMyFileFolder.ShowFolderAccessInfo("f:/123/",5)&"<br>"

''Response.WriteMyFileFolder.ShowFolderAccessInfo("f:/123/",6)&"<br>"

''Response.WriteMyFileFolder.ShowFolderAccessInfo("f:/123/",7)&"<br>"

''Response.WriteMyFileFolder.ShowFolderAccessInfo("f:/123/",8)&"<br>"

''Response.WriteMyFileFolder.WriteTxtFile("f:/123/cexo.txt","",1)&"<br>"

''Response.WriteMyFileFolder.WriteTxtFile("f:/123/cexo.txt","cexowxfdw",1)&"<br>"

''Response.WriteMyFileFolder.WriteTxtFile("f:/123/cexo.txt",Chr(13)&Chr(10)

&"cexowxfdw",2)&"<br>"

''Response.WriteMyFileFolder.ReadTxtFile("f:/123/cexo.txt")&"<br>"

Response.WriteMyFileFolder.DisplayLevelDepth("F:/ditg/ditg/bumen/images")&"<br>"

ClassFileFolderCls

Publicfso

PrivateSubClass_Initialize()

Setfso=CreateObject("Scripting.FileSystemObject")