当前位置：网学 > 编程文档 > ASP > 正文

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

作者：用户投稿来源：网络发布时间： 13/06/17

文章导读：在新的一年中，各位网友都进入紧张的学习或是工作阶段。网学的各位小编整理了ASP-文件、目录，文本文件等多种操作类的相关内容供大家参考，祝大家在新的一年里工作和学习顺利！

一个使用fso的class，前面的文章也有提到。这里有比较多的一些实例。
<%
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 2 3 4 5 下一页

点击进入论坛和大家一起交流设计,分享设计素材,结交设计朋友

上一篇资讯： ASP中一个用VBScript写的随机数类

下一篇资讯： Object对象的一些的隐藏函数介绍