文件、目录，文本文件等多种操作类-ASP教程-爱易网页

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

日期：2014-01-18　浏览次数：21119 次

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

'Response.Write MyFileFolder.ShowFolderAccessInfo("f:\123\",1)&" "
'Response.Write MyFileFolder.ShowFolderAccessInfo("f:\123\",2)&" "
'Response.Write MyFileFolder.ShowFolderAccessInfo("f:\123\",3)&" "
'Response.Write MyFileFolder.ShowFolderAccessInfo("f:\123\",4)&" "
'Response.Write MyFileFolder.ShowFolderAccessInfo("f:\123\",5)&" "
'Response.Write MyFileFolder.ShowFolderAccessInfo("f:\123\",6)&" "
'Response.Write MyFileFolder.ShowFolderAccessInfo("f:\123\",7)&" "
'Response.Write MyFileFolder.ShowFolderAccessInfo("f:\123\",8)&" "

'Response.Write MyFileFolder.WriteTxtFile("f:\123\cexo.txt","",1)&" "
'Response.Write MyFileFolder.WriteTxtFile("f:\123\cexo.txt","cexowxfdw",1)&" "
'Response.Write MyFileFolder.WriteTxtFile("f:\123\cexo.txt",Chr(13)&Chr(10)

&"cexowxfdw",2)&" "
'Response.Write MyFileFolder.ReadTxtFile("f:\123\cexo.txt")&" "
Response.Write MyFileFolder.DisplayLevelDepth("F:\ditg\ditg\bumen\images")&" "

Class FileFolderCls
Public fso

Private Sub Class_Initialize()
 Set fso = CreateObject("Scripting.FileSystemObject")
End Sub

Private Sub Class_Terminate()
 Set fso = Nothing
End Sub

'//==================================文件操作==================================

'取文件大小
Function GetFileSize(FileName)
'//功能：取文件大小
'//形参：文件名
'//返回值：成功为文件大小，失败为-1
'//
 Dim f
 &nbs

免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。

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

相关资料更多>

推荐阅读更多>