读出文本所有内容
Function ReadTxt(pathway)

ASP FSO操作文件(复制文件、重命名文件、删除文件、替换字符串)
FSO的意思是FileSystemObject,即文件系统对象。FSO对象模型包含在Scripting
类型库
(Scrrun.Dll)中,它同时包含了Drive、Folder、File、FileSystemObject和TextStream五个对象,用来操作文件和文件夹十分方便。
(请注意后面的常用函数)
FSO文件(File)对象属性
DateCreated 返回该文件夹的创建日期和时间
DateLastAccessed 返回最后一次访问该文件的日期和时间
DateLastModified 返回最后一次修改该文件的日期和时间
Drive 返回该文件所在的驱动器的Drive对象
Name 设定或返回文件的名字
ParentFolder 返回该文件的父文件夹的Folder对象
Path 返回文件的绝对路径,可使用长文件名
ShortName 返回DOS风格的8.3形式的文件名
ShortPath 返回DOS风格的8.3形式的文件绝对路径
Size 返回该文件的大小(字节)
Type 如果可能,返回一个文件类型的说明字符串
FSO文件(File)对象方法
FSO文件对象方法 用途
CopyFile 拷贝一个或者多个文件到新路径
CreateTextFile 创建文件并且返回一个TextStream对象
DeleteFile 删除一个文件
OpenTextFile 打开文件并且返回TextStream对象,以便读取或者追加

‘********************************************************************************
‘Script to ping servers and send an email
‘to a group of people if it is not reachable
‘7/26/12 Jeff Berndsen
‘********************************************************************************

Dim fso,myfile,i
‘Dim ReadLine(10)
Set fso=CreateObject(“Scripting.FileSystemObject”)
If fso.FileExists(pathway) Then
   Set myfile=fso.OpenTextFile(pathway,1,False)
Else
WScript.Echo “该文档不存在”
End If
i=0
If Not myfile.AtEndOfStream Then
   While Not myfile.AtEndOfLine
      ‘ReadLine(i)=myfile.ReadLine()
      ‘ReadLine=ReadLine&” “&myfile.ReadLine()’将所有行数据合在一起
       ReadLine=myfile.ReadAll()
   Wend

重命名文件:
Function reName(sourceName,destName)
dim oFso,oFile
set oFso=server.createobject(“Scripting.FileSystemObject”)
set oFile=oFso.getFile(Server.mappath(sourceName))
oFile.Name=destName
Set oFso=Nothing
Set oFile=Nothing
End Function

Option Explicit
On Error Resume Next

Else
ReadLine=”文件内容为空”
End If

删除文件:
Function FSOdel(fileName)
dim fso,f
set fso = server.CreateObject(“scripting.filesystemobject”)
f=server.MapPath(fileName)
if fso.FileExists(f) then
fso.DeleteFile f,true
end if
set f = nothing
set fso = nothing
End Function

Dim strServerName, oFSO, WSHShell, strServerFile, PINGFlag, i,
ServerPingFlag
Dim strLogFileName, strLogFolderName, strLogPath, objLogFolderName
Dim objLogFileName, objLogTextFile, strMyDate
Const ForAppending = 8
Public strMailTo, strSMTP, strSubject, strBody, strSMTPUserName,
strSMTPPassword, strSMTPPort

myfile.Close()
WScript.Echo ReadLine
End Function

替换文件中的字符串:
Function FSOreplace(fileName,Target,repString)
Dim objFSO,objCountFile,FiletempData
Set objFSO = Server.CreateObject(“Scripting.FileSystemObject”)
Set objCountFile =
objFSO.OpenTextFile(Server.MapPath(fileName),1,True)
FiletempData = objCountFile.ReadAll
objCountFile.Close
FiletempData=Replace(FiletempData,Target,repString)
Set objCountFile=objFSO.CreateTextFile(Server.MapPath(fileName),True)
objCountFile.Write FiletempData
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
End Function

‘SMTP Settings
strSMTPUserName = “”
strSMTPPassword = “”
strSMTP = “”
strSMTPPort = “”
strMailTo = “”

‘逐行写入文本数据
Function WriteTxt(pathway,content)
Dim fso,myfile

<%

Set oFSO = CreateObject(“Scripting.FileSystemObject”)
Set WSHShell = CreateObject(“WScript.Shell”)

Set fso=CreateObject(“Scripting.FileSystemObject”)
ON Error Resume Next
If Not fso.FileExists(pathway) Then
   fso.CreateTextFile(pathway)
End If
Set myfile=fso.OpenTextFile(pathway,8,True)
myfile.WriteLine(content)
myfile.Close()
If Err.Number<>0 Then
WScript.Echo Err.Number&Err.Description&” “&Err.Source
End if
End Function

‘*******************************************************
‘函数名:CreateFolder(sPath)
‘作 用: 创建目录
‘参 数:sPath : 创建的相对目录路径
‘返回值:成功 true , 失败 false
‘*******************************************************
‘response.Write createfolder(“/dgsunshine/UploadFile/demo1/”)
Function CreateFolder(sPath)
On Error Resume Next

‘Keep looping back through the script so that it stays running
i = 0
Do While i = 0
Set strServerFile = oFSO.OpenTextFile(“ServerList.txt”)

‘调用读写函数
Call WriteTxt(“C:Documents and
SettingsAdministrator桌面3.txt”,”hoho,写入数据测试”)
Call ReadTxt(“C:Documents and SettingsAdministrator桌面3.txt”)

Dim Fso,Arrfolder,Folder,i,j

‘Convert date to a more readable format
strMyDate = Date
strMyDate = Replace(strMyDate,”/”,”_”)

If sPath=”” then
CreateFolder = False
Exit Function
End If

‘Log settings
strLogFolderName = “”
strLogFileName = “” & strMyDate & “.log”
strLogPath = strLogFolderName & strLogFileName

If Left(sPath,1) = “/” Then
Folder = “/”
sPath = Mid(sPath,2,Len(sPath))
Else
Folder = “./”
End If

‘Check that the log folder exists
If oFSO.FolderExists(strlogFolderName) Then
        Set objLogFolderName = oFSO.GetFolder(strLogFolderName)
Else
        Set objLogFolderName = oFSO.CreateFolder(strLogFolderName)
End If

if Right(sPath,1) = “/” then sPath = Left(sPath,Len(sPath)-1)

‘Check that the log file exists
If oFSO.FileExists(strLogFolderName & strLogFileName) Then
        Set objLogFolderName = oFSO.GetFolder(strLogFolderName)
Else
        Set objLogFileName = oFSO.CreateTextFile(strLogFolderName &
strLogFileName, True)
        objLogFileName.Close ‘Log file has to be closed before it can be
appended to
End If
               
‘Open the log file for appending
Set objLogTextFile = oFSO.OpenTextFile(strLogPath, ForAppending, True)

ArrFolder = Split(sPath,”/”)

objLogTextFile.WriteLine(Now & vbCrLf)

Set Fso = Server.CreateObject(“Scripting.FileSystemObject”)

Do While Not (strServerFile.AtEndOfStream)
strServerName = strServerFile.ReadLine
        If ServerPing(strServerName) Then
                ServerPingFlag = “Online”
                ‘Ping was successful
                Logger strServerName, ServerPingFlag
        Else
                ‘Ping was not successful
                ServerPingFlag = “***Offline***”
                EmailAdmins strServerName
                Logger strServerName, ServerPingFlag
        End If
Loop

For i = 0 To Ubound(ArrFolder)
If i = 0 then
Folder = Folder & ArrFolder(i) & “/”
Else
Folder = Folder & ArrFolder(i) & “/”
End If

objLogTextFile.WriteLine(“———————————————-“)
WScript.Sleep 300000
Loop

If Fso.folderExists(Server.MapPath(Folder)) = False then
response.Write server.MapPath(folder)
Fso.createFolder(Server.MapPath(Folder))
End If

‘********************************************************************************
‘ServerPing Function
‘Ping the server and if available return true, otherwise false
‘********************************************************************************
Function ServerPing(strServerName)
        Set WSHShell = CreateObject(“WScript.Shell”)
        PINGFlag = Not CBool(WSHShell.Run(“ping -n 1 ” & strServerName,
0, True))
        If PINGFlag = True Then
                ‘Ping was successful
                ServerPing = True
        Else
                ‘Ping not successful
                ServerPing = False
        End If
End Function

Next
Set Fso = nothing

‘********************************************************************************
‘EmailAdmins Sub-Routine
‘Send email to the admins
‘********************************************************************************
Sub EmailAdmins (strServerName)
Dim oMsg, oFlds, oConf
Const cdoSendUsingPort = 2
Set oMsg = CreateObject(“CDO.Message”)
Set oConf = CreateObject(“CDO.Configuration”)
Set oFlds = oConf.Fields
strBody = strServerName & ” is not able to be pinged on ” & Now

If Err.Number <> 0 then
Err.clear()
CreateFolder = False
Else
CreateFolder = True
End If
End function

With oFlds
       
.Item(“”) =
cdoSendUsingPort
       
.Item(“”) =
strSMTP
       
.Item(“”)
= 1
       
.Item(“”) =
strSMTPUserName
       
.Item(“”) =
strSMTPPassword
       
.Item(“”) =
strSMTPPort
       
.Item(“”) =
True
       
.Item(“”)
= 60
        .Update
End With

Function getFile(paramFilePath)
Set Fso = Server.CreateObject(“Scripting.FileSystemObject”)
Set Fso_Read =
fso.OpenTextFile(Server.MapPath(paramFilePath),1,false,-2)
getFile = Fso_Read.readall
Set Fso_Read = Nothing
Set Fso = Nothing
End Function

With oMsg
        Set .Configuration = oConf
        .Fields(“urn:schemas:httpmail:importance”).Value = 2 ‘ Set mail
importance to HIGH
        .Fields.Update
        .To = strMailTo
        .From = “”
        .Sender = strSMTPUserName
        .Subject = strServerName & “: Not Pingable”
        .TextBody = strBody
        .Send
End With
       
End Sub
       
‘********************************************************************************
‘Logger Sub-Routine
‘Log successes and failures in pinging
‘********************************************************************************
Sub Logger(strServerName, ServerPingFlag)
        objLogTextFile.WriteLine(strServerName & “;” & ServerPingFlag)
End Sub

‘*******************************************************
‘函数名:CreateFile(paramFileContent,paramFilePath)
‘作 用: 创建文件
‘参 数:paramFileContent ‘文件的内容
‘ paramFilePath ‘文件名(不包括路径)
‘返回值:成功 true , 失败 false
‘*******************************************************
Function CreateFile(paramFileContent,paramFilePath)
On Error Resume Next
Dim Fso,fWrite

Set Fso = Server.CreateObject(“Scripting.FileSystemObject”)
Set fWrite = Fso.CreateTextFile(Server.Mappath(paramFilePath),true)

fWrite.write paramFileContent
fWrite.close()
Set fWrite = nothing
Set Fso = nothing

If Err.number <> 0 Then
Err.clear()
CreateFile = False
Else
CreateFile = True
End If
End Function

‘*******************************************************
‘函数名:DelFile(FilePath)
‘作 用: 删除文件
‘参 数:FilePath ‘文件路径 多个文件用”|”隔开
‘返回值:成功 true , 失败 false
‘*******************************************************
Function DelFile(FilePath)
On Error Resume Next
Dim fso,arrFile,i

If GetSafeStr(FilePath,””)=”” then
CreateFolder = false
Exit Function
End If

arrFile = Split(FilePath,”|”)
Set Fso = Server.CreateObject(“Scripting.FileSystemObject”)

for i=0 to UBound(arrFile)
FilePath = arrFile(i)
If Fso.FileExists(Server.MapPath(FilePath)) then
Fso.DeleteFile Server.MapPath(FilePath)
End If
Next
Set fso = nothing

If Err then
Err.clear()
DelFile = false
Else
DelFile = true
End If
End Function

‘*******************************************************
‘函数名:DelFolder(FolderPath)
‘作 用: 删除目录
‘参 数:FolderPath ‘目录路径 ‘多个目录用”|”分隔
‘返回值:成功 true , 失败 false
‘*******************************************************
Function DelFolder(FolderPath)
On Error Resume Next
Dim Fso,arrFolder,i

If GetSafeStr(FolderPath,””)=”” then
DelFolder = false
Exit Function
End If

arrFolder = Split(FolderPath,”|”)
Set Fso = Server.CreateObject(“Scripting.FileSystemObject”)

For i=0 to UBound(arrFolder)
FolderPath = arrFolder(i)
If Fso.folderexists(Server.MapPath(FolderPath)) then
Fso.deleteFolder Server.MapPath(FolderPath)
End If
Next

If Err then
Err.clear()
DelFolder = false
‘ShowError “删除目录失败”,””
else
DelFolder = true
End If
End Function

‘*******************************************************
‘函数名:IsExistFile(FilePath)
‘作 用: 判断文件或目录是否存在
‘参 数:FilePath ‘文件路径 多个文件用”|”隔开
‘返回值:成功 true , 失败 false
‘*******************************************************
Function IsExistFile(FilePath)
On Error Resume Next
Dim fso,arrFile,i

If GetSafeStr(FilePath,””)=”” then
IsExistFile = false
End If

arrFile = Split(FilePath,”|”)
Set Fso = Server.CreateObject(“Scripting.FileSystemObject”)

for i=0 to UBound(arrFile)
FilePath = arrFile(i)
If Fso.FileExists(Server.MapPath(FilePath)) then
IsExistFile = True
End If
If Fso.folderexists(Server.MapPath(FilePath)) then
IsExistFile = True
End If
Next
Set fso = nothing

If Err then
Err.clear()
IsExistFile = false
‘ShowError “判断文件或目录是否存在失败”,””
else
IsExistFile = true
End If
End Function

‘*******************************************************
‘函数名:DelFile(FilePath)
‘作 用: 删除文件或目录
‘参 数:FilePath ‘文件路径 多个文件用”|”隔开
‘返回值:成功 true , 失败 false
‘*******************************************************
Function DelFile(FilePath)
On Error Resume Next
Dim fso,arrFile,i

If GetSafeStr(FilePath,””)=”” then
CreateFolder = false
End If

arrFile = Split(FilePath,”|”)
Set Fso = Server.CreateObject(“Scripting.FileSystemObject”)

for i=0 to UBound(arrFile)
FilePath = arrFile(i)
If Fso.FileExists(Server.MapPath(FilePath)) then
Fso.DeleteFile Server.MapPath(FilePath)
End If
If Fso.folderexists(Server.MapPath(FilePath)) then
Fso.deleteFolder Server.MapPath(FilePath)
End If
Next
Set fso = nothing

If Err then
Err.clear()
DelFile = false
‘ShowError “删除文件或目录失败”,””
else
DelFile = true
End If
End Function

‘*******************************************************
‘函数名:ReNameFile((oldName,newName)
‘作 用: 重命名文件或目录
‘参 数:strOldName ‘原文件名 多个用”|”隔开
‘ strNewName ‘新文件名 多个用”|”隔开
‘ 上面两个参数请保持一致
‘返回值:成功 true , 失败 false
‘*******************************************************
Function ReNameFile(strOldName,strNewName)
On Error Resume Next
Dim fso,arrOld,arrNew,i,oldName,newName

old = GetSafeStr(strOldName,””)
Newfile = GetSafeStr(strNewName,””)

If old =”” or Newfile = “” then
ReNameFile = false
Exit Function
End If

arrOld = Split(strOldName,”|”)
arrNew = Split(strNewName,”|”)

If UBound(arrOld)<> UBound(arrNew) then
ReNameFile = false
Exit Function
End If

Set Fso = Server.CreateObject(“Scripting.FileSystemObject”)
for i=0 to UBound(arrOld)
oldName = Server.MapPath(arrOld(i))
newName = Server.MapPath(arrNew(i))
If Fso.FileExists(oldName) and not Fso.FileExists(newName) then
fso.MoveFile oldName,newName
‘ReNameFile = True
End If
Next
Set fso = nothing

If Err.Number <> 0 Then
Err.clear()
ReNameFile = false
Else
ReNameFile = True
End If
End Function

‘*******************************************************
‘函数名:CopyFiles((TempSource,TempEnd)
‘作 用: 复制文件或者目录
‘参 数:TempSource ‘源文件名 多个用”|”隔开
‘ TempEnd ‘目的文件名 多个用”|”隔开
‘ 注意:上面两个参数请保持一致,并且都为完整路径,
‘ 已经经过Server.MapPath方法处理过
‘返回值:成功 true , 失败 false
‘*******************************************************
Function CopyFiles(TempSource,TempEnd)
On Error Resume Next
Dim CopyFSO,arrSource,arrEnd

CopyFiles = false
Set CopyFSO = Server.CreateObject(“Scripting.FileSystemObject”)

If TempSource =”” or TempEnd = “” then
ErrRaise “复制文件或目录”,”条件为空”
CopyFiles = false
Exit Function
End If

arrSource = Split(TempSource,”|”)
arrEnd = Split(TempEnd,”|”)
If UBound(arrSource) <> UBound(arrEnd) then
CopyFiles= false
Exit Function
End If

for i=0 to UBound(arrSource)
srcName = arrSource(i)
tarName = arrEnd(i)
IF CopyFSO.FileExists(srcName) and not
CopyFSO.FileExists(tarName) then
CopyFSO.CopyFile srcName,tarName
CopyFiles = true
End If

IF CopyFSO.FolderExists(srcName) and not
CopyFSO.FolderExists(tarName)then
CopyFSO.CopyFolder srcName,tarName
CopyFiles = true
End If
Next
Set CopyFSO = Nothing

If Err then
‘Err.clear()
CopyFiles = false
End If
End Function
%>

——————————————————————————————–以下为使用实例————————————————————————————————–

<%
Server.execute(“redirect.asp”)
username=session(“username”)
Dim SourceFile,TargetFile
SourceFile = “testxx.txt”
TargetFile = “testxx”
TargetFile = TargetFile & “_” & username & “.txt”
‘ 文件已存在則先刪除
If IsExistFile(TargetFile) then
call DelFile(TargetFile)
End If
‘ 複製文件
call CopyFiles(SourceFile,TargetFile)

‘*******************************************************
‘函數名:CopyFiles((TempSource,TempEnd)
‘作 用:複製檔或者目錄
‘參 數:TempSource ‘原始檔案名 多個用”|”隔開
‘ TempEnd ‘目的檔案名 多個用”|”隔開?
‘注意:上面兩個參數請保持一致,文件路径为相对路径
‘已經經過Server.MapPath方法處理過
‘返回值:成功 true , 失敗 false
‘*******************************************************
Function CopyFiles(TempSource,TempEnd)
On Error Resume Next
Dim CopyFSO,arrSource,arrEnd

CopyFiles = false
Set CopyFSO = Server.CreateObject(“Scripting.FileSystemObject”)

If TempSource =”” or TempEnd = “” then
ErrRaise “複製文件或目錄”,”條件為空”
CopyFiles = false
Exit Function
End If

arrSource = Split(TempSource,”|”)
arrEnd = Split(TempEnd,”|”)
If UBound(arrSource) <> UBound(arrEnd) then
CopyFiles= false
Exit Function
End If

for i=0 to UBound(arrSource)
srcName = arrSource(i)
tarName = arrEnd(i)

IF CopyFSO.FileExists(Server.MapPath(srcName)) and
not CopyFSO.FileExists(Server.MapPath(tarName)) then
CopyFSO.CopyFile Server.MapPath(srcName),Server.MapPath(tarName)
CopyFiles = true
End If

IF CopyFSO.FolderExists(Server.MapPath(srcName)) and not
CopyFSO.FolderExists(Server.MapPath(tarName))then
CopyFSO.CopyFolder Server.MapPath(srcName),Server.MapPath(tarName)
CopyFiles = true
End If
Next
Set CopyFSO = Nothing

If Err then
‘Err.clear()
CopyFiles = false
End If
End Function

‘*******************************************************
‘函數名:IsExistFile(FilePath)
‘作 用: 判斷文件或目錄是否存在
‘參 數:FilePath ‘檔路徑 多個檔用”|”隔開
‘返回值:成功 true , 失敗 false
‘*******************************************************
Function IsExistFile(FilePath)
On Error Resume Next
Dim fso,arrFile,i

If FilePath=”” then
IsExistFile = false
End If

arrFile = Split(FilePath,”|”)
Set Fso = Server.CreateObject(“Scripting.FileSystemObject”)

for i=0 to UBound(arrFile)
FilePath = arrFile(i)
If Fso.FileExists(Server.MapPath(FilePath)) then
IsExistFile = True
End If
If Fso.folderexists(Server.MapPath(FilePath)) then
IsExistFile = True
End If
Next
Set fso = nothing

If Err then
Err.clear()
IsExistFile = false
‘ShowError “判斷文件或目錄是否存在失敗”,””
else
IsExistFile = true
End If
End Function

‘*******************************************************
‘函數名:DelFile(FilePath)
‘作 用: 刪除檔或目錄
‘參 數:FilePath ‘檔路徑 多個檔用”|”隔開
‘返回值:成功 true , 失敗 false
‘*******************************************************
Function DelFile(FilePath)
On Error Resume Next
Dim Fso,arrFile,i

If FilePath=”” then
CreateFolder = false
End If

arrFile = Split(FilePath,”|”)
Set Fso = Server.CreateObject(“Scripting.FileSystemObject”)

for i=0 to UBound(arrFile)
FilePath = arrFile(i)
If Fso.FileExists(Server.MapPath(FilePath)) then
Fso.DeleteFile(Server.MapPath(FilePath))
End If
If Fso.folderexists(Server.MapPath(FilePath)) then
Fso.deleteFolder(Server.MapPath(FilePath))
End If
Next
Set Fso = nothing

If Err then
Err.clear()
DelFile = false
‘ShowError “刪除文件或目錄失敗”,””
else
DelFile = true
End If
End Function
%>