文件、目录，文本文件等多种操作类

<%
    Dim MyFileFolder
    Set MyFileFolder = New FileFolderCls
    'Response.Write MyFileFolder.MoveAFile("f:1234561.exe","f:1234562.txt")
    'Response.Write MyFileFolder.MoveAFolder("f:456","f:ditg456")
    'Response.Write MyFileFolder.ShowFileSystemType("i:")
    'Response.Write MyFileFolder.CopyAFile("f:1234562.txt","f:1234563.txt")
    '!!!!
    'Response.Write MyFileFolder.CopyAFolder("f:123","f:789")
    'Response.Write MyFileFolder.ShowFolderList("f:ditg")
    'Response.Write MyFileFolder.ShowFileList("f:123123")
    'Response.Write MyFileFolder.DeleteAFile("f:1234562.txt")
    'Response.Write MyFileFolder.DeleteAFolder("f:456")
    'Response.Write MyFileFolder.CreateFolderDemo("f:147")
    'Response.Write MyFileFolder.GetFileSize("f:1234563.txt")
    'Response.Write MyFileFolder.GetFolderSize("f:123123.txt")
    'Response.Write MyFileFolder.ShowFileAccessInfo("f:123123.txt",1)&"<br>"
    'Response.Write MyFileFolder.ShowFileAccessInfo("f:123123.txt",2)&"<br>"
    'Response.Write MyFileFolder.ShowFileAccessInfo("f:123123.txt",3)&"<br>"
    'Response.Write MyFileFolder.ShowFileAccessInfo("f:123123.txt",4)&"<br>"
    'Response.Write MyFileFolder.ShowFileAccessInfo("f:123123.txt",5)&"<br>"
    'Response.Write MyFileFolder.ShowFileAccessInfo("f:123123.txt",6)&"<br>"
    'Response.Write MyFileFolder.ShowFileAccessInfo("f:123123.txt",7)&"<br>"
    'Response.Write MyFileFolder.ShowFileAccessInfo("f:123123.txt",8)&"<br>"
   
    'Response.Write MyFileFolder.ShowFolderAccessInfo("f:123",1)&"<br>"
    'Response.Write MyFileFolder.ShowFolderAccessInfo("f:123",2)&"<br>"

补充：asp教程,高级应用