FSO函数大全(ASP读,写,删除,复制,移动文件或目录,获取属性等)

FSO 函数大全(ASP 读 ,写 ,删除,复制,移动文件或目录,获取属性等).txt 大人物的悲哀在于他们需要不停地做出选择；而小人物的悲哀在于他们从来没有选择的机会。男人因沧桑而成熟，女人因成熟而沧桑。男人有了烟，有了酒，也就有了故事；女人有了钱，有了资色，也就有了悲剧。FSO 函数大全(ASP 读 ,写 ,删除,复制,移动文件或目录,获取属性等).txt 生活是过出来的，不是想出来的。放得下的是曾经，放不下的是记忆。无论我在哪里，我离你都只有一转身的距离。FSO 函数大全(ASP 读，写，删除，复制，移动文件或目录，获取属性等) <% Class Cls_FSO Public objFSO Private Sub Class_Initialize() Set objFSO = Server.CreateObject("Scripting.FileSystemObject") End Sub Private Sub class_terminate() Set objFSO = Nothing End Sub '=======文件操作======== '取文件大小 Public Function GetFileSize(FileName) Dim f If ReportFileStatus(FileName) = 1 Then Set f = objFSO.Getfile(FileName) GetFileSize = f.Size Else GetFileSize = -1 End if End Function '文件删除 Public Function deleteAFile(FileSpec) If ReportFileStatus(FileSpec) = 1 Then objFSO.deleteFile(FileSpec) deleteAFile = 1 Else deleteAFile = -1 End if End Function '显示文件列表 Public Function ShowFileList(FolderSpec) Dim f, f1, fc, s If ReportFolderStatus(FolderSpec) = 1 Then Set f = objFSO.GetFolder(FolderSpec) Set fc = f.Files For Each f1 in fc s = s & f1.name s = s & "|" Next ShowFileList = s Else ShowFileList = -1 End if End Function '文件复制 Public Function CopyAFile(SourceFile, DestinationFile) Dim MyFile If ReportFileStatus(SourceFile) = 1 Then Set MyFile = objFSO.GetFile(SourceFile) MyFile.Copy (DestinationFile) CopyAFile = 1 Else CopyAFile = -1 End if End Function '文件移动 Public Function MoveAFile(SourceFile,DestinationFile) If ReportFileStatus(SourceFile) = 1 And ReportFileStatus(DestinationFileORPath) = -1 Then objFSO.MoveFile SourceFile,DestinationFileORPath MoveAFile = 1 Else MoveA...