asp之FSO大全

<%
Function ShowDriveInfo(strFolder)’显示磁盘信息
‘strRootFolder=”/”
‘strDrivInfo=ShowDriveInfo(strRootFolder)
‘Response.Write(strDrivInfo)
Dim strTestFolder,objFSO,objDrive,strDriveInfo
Set objFSO=Server.CreateObject(“Scripting.FileSystemObject”)
strTestFolder=Server.Mappath(strFolder)
Set objDrive=objFSO.GetDrive(objFSO.GetDriveName(strTestFolder))
strDriveInfo=”Web服务器根目录:”&objDrive.VolumeName&”<br>”
strDriveInfo=strDriveInfo&”磁盘代号:”&objDrive.DriveLetter&”<br>”
strDriveInfo=strDriveInfo&”磁盘序列号:”&objDrive.SerialNumber&”<br>”
strDriveInfo=strDriveInfo&”磁盘类型:”&objDrive.Drivetype&”<br>”
strDriveInfo=strDriveInfo&”文件系统:”&objDrive.FileSystem&”<br>”
strDriveInfo=strDriveInfo&”总容量:”&FormatNumber(objDrive.TotalSize/1024,0)&”KB<br>”
strDriveInfo=strDriveInfo&”可用空间:”&FormatNumber(objDrive.FreeSpace/1024,0)&”KB<br>”
ShowDriveInfo=strDriveInfo
set objDrive=nothing
set objFSO=nothing
end Function
Function ShowFolderList(strFolder)’显示Web服务器根目录和相关信息
Dim strTestFolder,objFSO,objRootFolder,objFolder,strFolderList
Set objFSO=Server.CreateObject(“Scripting.FileSystemObject”)
strTestFolder=Server.MapPath(strFolder)
Set objRootFolder=objFSO.Getfolder(strTestFolder)
For Each objFolder in objRootFolder.SubFolders
strFolderList=strFolderList&objFolder.name
strFolderList=strFolderList&”<br>”
Next
ShowFolderList=strFolderList
Set objRootFolder=Nothing
Set objFSO=Nothing
end Function
Function ShowFolderInfo(strFolder)’显示文件夹信息
Dim strTestFolder,objFSO,objFolder,strFolderInfo
Set objFSO=Server.CreateObject(“Scripting.FileSystemObject”)
strTestFolder=Server.MapPath(strFolder)
Set objFolder=ObjFSO.GetFolder(StrTestFolder)
strFolderInfo=”Web服务器目录:”&UCase(strTestFolder)&”<br>”
strFolderInfo=strFolderInfo&”名称:”&objFolder.Name&”<br>”
strFolderInfo=strFolderInfo&”属性:”&objFolder.Attributes&”<br>”
strFolderInfo=strFolderInfo&”创建时间:”&objFolder.DateCreated&”<br>”
strFolderInfo=strFolderInfo&”访问时间:”&objFolder.DateLastAccessed&”<br>”
strFolderInfo=strFolderInfo&”修改时间:”&objFolder.DateLastModified&”<br>”
strFolderInfo=strFolderInfo&”大小:”&FormatNumber(objFolder.Size/1024,0)&”KB<br>”
ShowFolderInfo=strFolderInfo
Set objFolder=Nothing
Set objFSO=Nothing
End Function
Function CreateFolder(strFolder)’创建文件夹(返回值0,创建失败;1:创建成功)
Dim strTestFolder,objFSO
strTestFolder=Server.MapPath(CStr(strFolder))
Set objFSO=Server.CreateObject(“Scripting.FileSystemObject”)
If objFSO.FolderExists(strtestFolder) Then
CreateFolder=0
Else
objFSO.CreateFolder(strTestFolder)
CreateFolder=1
End if
Set objFSO=Nothing
End Function
Function CheckFolderExists(strFolder)’检查文件夹是否存在(返回值0,不存在;1:存在)
Dim strTestFolder,objFSO
strTestFolder=Server.MapPath(CStr(strFolder))
Set objFSO=Server.CreateObject(“Scripting.FileSystemObject”)
If objFSO.FolderExists(strTestFolder) Then
CheckFolderExists=1
Else
CheckFolderExists=0
End if
Set objFSO=Nothing
End Function
Function DeleteFolder(strFolder)’删除文件夹(返回值0,删除失败;1:删除成功)
Dim strTestFolder,objFSO
strTestFolder=Server.MapPath(CStr(strFolder))
Set objFSO=Server.CreateObject(“Scripting.FileSystemObject”)
If objFSO.FolderExists(strtestFolder) Then
objFSO.DeleteFolder(strTestFolder)
DeleteFolder=1
Else
DeleteFolder=0
End if
Set objFSO=Nothing
End Function
Function MoveFolder(strFolder,strFolder1)’移动文件夹(返回值0,移动失败;1:移动成功)
Dim strTestFolder,strTestFolder1,objFSO
strTestFolder=Server.MapPath(CStr(strFolder))
strTestFolder1=Server.MapPath(CStr(strFolder1))
Set objFSO=Server.CreateObject(“Scripting.FileSystemObject”)
If objFSO.FolderExists(strTestFolder) Then
If objFSO.FolderExists(strTestFolder1) Then
MoveFolder=0
Else
objFSO.MoveFolder strTestFolder,strTestFolder1
MoveFolder=1
End if
Else
MoveFolder=0
End if
Set objFSO=Nothing
End Function
Function CopyFolder(strFolder,strFolder1)’复制文件夹(返回值0,复制失败;1:复制成功)
Dim strTestFolder,strTestFolder1,objFSO
strTestFolder=Server.MapPath(CStr(strFolder))
strTestFolder1=Server.MapPath(CStr(strFolder1))
Set objFSO=Server.CreateObject(“Scripting.FileSystemObject”)
If objFSO.FolderExists(strTestFolder) Then
If objFSO.FolderExists(strTestFolder1) Then
CopyFolder=0
Else
objFSO.CopyFolder strTestFolder,strTestFolder1
CopyFolder=1
End if
Else
CopyFolder=0
End if
Set objFSO=Nothing
End Function
Function ShowFileList(strFolder)’显示Web服务器目录的文件
Dim strTestFolder,objFSO,objFolder,objFile,strFileList
Set objFSO=Server.CreateObject(“Scripting.FileSystemObject”)
strTestFolder=Server.MapPath(strFolder)
Set objFolder=objFSO.GetFolder(strTestFolder)
For Each objFile in objFolder.Files
strFileList=strFileList&objFile.name
strFileList=strFileList&”<br>”
Next
ShowFileList=strFileList
Set objFolder=Nothing
Set objFSO=Nothing
End Function
Function ShowFileInfo(strFile)’显示文件信息
Dim objFSO,objFile,strFileInfo
Set objFSO=Server.CreateObject(“Scripting.FileSystemObject”)
strFile=Server.MapPath(strFile)
Set objFile=objFSO.GetFile(strFile)
strFileInfo=”文件名:”&objFile.Name&”<br>”
strFileInfo=strFileInfo&”类型:”&objFile.Type&”<br>”
strFileInfo=strFileInfo&”位置:”&objFile.Path&”<br>”
strFileInfo=strFileInfo&”属性:”&objFile.Attributes&”<br>”
strFileInfo=strFileInfo&”创建时间:”&objFile.DateCreated&”<br>”
strFileInfo=strFileInfo&”访问时间:”&objFile.DateLastAccessed&”<br>”
strFileInfo=strFileInfo&”修改时间:”&objFile.DateLastModified&”<br>”
strFileInfo=strFileInfo&”大小:”&FormatNumber(objFile.Size/1024,0)&”KB<br>”
ShowFileInfo=strFileInfo
Set objFile=Nothing
Set objFSO=Nothing
End Function
Function CreateFile(strFile)’创建文件(返回值0,创建失败;1:创建成功)
Dim strTestFile,objFSO,objStream
strTestFile=Server.MapPath(strFile)
Set objFSO=Server.CreateObject(“Scripting.FileSystemObject”)
If objFSO.FileExists(strTestFile) Then
CreateFile=0
Else
Set objStream=objFSO.CreateTextFile(strTestFile,True)
CreateFile=1
Set objStream=Nothing
End if
Set objFSO=Nothing
End Function
Function CheckFileExists(strFile)’检查文件是否存在(返回值0,不存在;1:存在)
Dim strTestFile,objFSO
strTestFile=Server.MapPath(strFile)
Set objFSO=Server.CreateObject(“Scripting.FileSystemObject”)
If objFSO.FileExists(strTestFile) Then
CheckFileExists=1
Else
CheckFileExists=0
End if
Set objFSO=Nothing
End Function
Function DeleteFile(strFile)’删除文件(返回值0,删除失败;1:删除成功)
Dim strTestFile,objFSO,objFile
strTestFile=Server.MapPath(strFile)
Set objFSO=Server.CreateObject(“Scripting.FileSystemObject”)
If objFSO.FileExists(strTestFile) Then
Set objFile=objFSO.GetFile(strTestFile)
objFile.Delete
DeleteFile=1
Set objFile=Nothing
Else
DeleteFile=0
End if
Set objFSO=Nothing
End Function
Function MoveFile(strFile,strPath)’移动文件(返回值0,移动失败;1:移动成功)
Dim strTestFile,strTestPath,objFSO,objFile
strTestPath=Server.MapPath(strPath)
strTestFile=Server.MapPath(strFile)
Set objFSO=Server.CreateObject(“Scripting.FileSystemObject”)
If objFSO.FileExists(strTestFile) Then
Set objFile=objFSO.GetFile(strTestFile)
objFile.Move(strTestPath&”/”&objFile.Name)
MoveFile=1
Set objFile=Nothing
Else
MoveFile=0
End if
Set objFSO=Nothing
End Function
Function CopyFile(strFile,strPath)’复制文件(返回值0,复制失败;1:复制成功)
Dim strTestFile,strTestPath,objFSO,objFile
strTestPath=Server.MapPath(strPath)
strTestFile=Server.MapPath(strFile)
Set objFSO=Server.CreateObject(“Scripting.FileSystemObject”)
If objFSO.FileExists(strTestFile) Then
Set objFile=objFSO.GetFile(strTestFile)
objFile.Copy(strTestPath&”/”&objFile.Name)
CopyFile=1
Set objFile=Nothing
Else
CopyFile=0
End if
Set objFSO=Nothing
End Function
Function RanameFile(strFile,strNewFile)’重命名文件(返回值0,重命名失败;1:重命名成功)
‘strFile为源文件,包括路径
‘strNewFile重命名后的文件,只有文件名
Dim strTestFile,strTestPath,objFSO,objFile
strTestFile=Server.MapPath(strFile)
strTestPath=Left(strTestFile,InStrRev(strTestFile,”\”))
Set objFSO=Server.CreateObject(“Scripting.FileSystemObject”)
If objFSO.FileExists(strTestFile) Then
Set objFile=objFSO.GetFile(strTestFile)
objFile.Move(strTestPath&strNewFile)
RanameFile=1
Set objFile=Nothing
Else
RanameFile=0
End if
Set objFSO=Nothing
End Function
Function ReadTextFile(strFile)’读取文件的内容
Dim strTestFile,objFSO,objInStream,ForReading
ForReading=1
strTestFile=Server.MapPath(strFile)
Set objFSO=Server.CreateObject(“Scripting.FileSystemObject”)
Set objInStream=objFSO.OpenTextFile(strTestFile,ForReading,False,False)
ReadTextFile=objInStream.ReadAll
objInStream.Close
Set objInStream=Nothing
Set objFSO=Nothing
End Function
Sub SaveTextFile(strFile,strFileIn)’保存文件的内容
Dim strTestFile,objFSO,objOutStream,ForWriting
ForWriting=2
strTestFile=Server.MapPath(strFile)
Set objFSO=Server.CreateObject(“Scripting.FileSystemObject”)
Set objOutStream=objFSO.OpenTextFile(strTestFile,ForWriting,True,False)
objOutStream.WriteLine(strFileIn)
objOutStream.Close
Set objOutStream=Nothing
Set objFSO=Nothing
End Sub
Sub AppendTextFile(strFile,strAppendLine)’添加文件的内容
Dim strTestFile,objFSO,objOutStream,ForAppending
ForAppending=8
strTestFile=Server.MapPath(strFile)
Set objFSO=Server.CreateObject(“Scripting.FileSystemObject”)
Set objOutStream=objFSO.OpenTextFile(strTestFile,ForAppending,True,False)
objOutStream.WriteLine(strFileIn)
objOutStream.Close
Set objOutStream=Nothing
Set objFSO=Nothing
End Sub
Function SearchTextFile(strFile,strSearchText)’查找文本文件的字符串(返回值0,字符串不存在;1:字符串存在)
Dim strTestFile,objFSO,objInStream,strFileContents,isFound,ForReading
isFound=0
ForReading=1
strTestFile=Server.MapPath(strFile)
Set objFSO=Server.CreateObject(“Scripting.FileSystemObject”)
Set objInStream=objFSO.OpenTextFile(strTestFile,ForReading,False,False)
strFileContents=objInStream.ReadALL
If InStr(1,strFileContents,strSearchText,1) Then
isFound=1
End if
objInStream.Close
Set objInStream=Nothing
Set objFSO=Nothing
SearchTextFile=isFound
End Function
Function ReplaceTextFile(strFile,strSearchText,strReplaceText)’查找和替换文本文件的字符串
Dim strTestFile,objFSO,objInStream,objOutStream,strFileContents,isFound,ForReading,ForWriting
Dim strInLine,strLeft,strRight,intPos,intBegin
isFound=0
ForReading=1
ForWriting=2
strTestFile=Server.MapPath(strFile)
Set objFSO=Server.CreateObject(“Scripting.FileSystemObject”)
Set objInStream=objFSO.OpenTextFile(strTestFile,ForReading,False,False)
strFileContents=””
Do while Not objInStream.AtEndOfStream
strInLine=objInstream.ReadLine
intPos=1
Do
intBegin=intPos
intPos=Instr(intBegin,strInLine,strSearchText,1)
If intPos>0 then
strLeft=Left(strInLine,intPos-1)
strRight=Right(strInLine,Len(strInline)-intPos-Len(strSearchText)+1)
strInLine=strLeft&strReplaceText&strRight
isFound=isFound+1
Else
strFileContents=strfileContents&strInLine&Chr(13)&Chr(10)
End if
Loop While intPos<>0
Loop
objInStream.Close
Set objInStream=Nothing
Set objOutStream=objFSO.OpenTextFile(strTestFile,ForWriting,True,False)
objOutStream.WriteLine(strFileContents)
objOutStream.Close
Set objOutStream=Nothing
Set objFSO=Nothing
ReplaceTextFile=isFound
End Function
%>

原文链接:,转发请注明来源落伍老站长!

发表评论