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對象，以便讀取或追加
重新命名檔案：
複製代碼代碼如下:
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
刪除檔案：
複製代碼代碼如下:
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
替換文件中的字串:
複製代碼代碼如下:
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
<%
'************************************************* ******
'函數名稱：CreateFolder(sPath)
'作用: 建立目錄
'參數：sPath : 建立的相對目錄路徑
'傳回值：成功true , 失敗false
'************************************************* ******
'response.Write createfolder(/dgsunshine/UploadFile/demo1/)
Function CreateFolder(sPath)
On Error Resume Next
Dim Fso,Arrfolder,Folder,i,j
If sPath= then
CreateFolder = False
Exit Function
End If
If Left(sPath,1) = / Then
Folder = /
sPath = Mid(sPath,2,Len(sPath))
Else
Folder = ./
End If
if Right(sPath,1) = / then sPath = Left(sPath,Len(sPath)-1)
ArrFolder = Split(sPath,/)
Set Fso = Server.CreateObject(Scripting.FileSystemObject)
For i = 0 To Ubound(ArrFolder)
If i = 0 then
Folder = Folder & ArrFolder(i) & /
Else
Folder = Folder & ArrFolder(i) & /
End If
If Fso.folderExists(Server.MapPath(Folder)) = False then
response.Write server.MapPath(folder)
Fso.createFolder(Server.MapPath(Folder))
End If
Next
Set Fso = nothing
If Err.Number <> 0 then
Err.clear()
CreateFolder = False
Else
CreateFolder = True
End If
End function
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
'************************************************* ******
'函數名稱：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)
為 i=0 至 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
%>