FSO文件（File）對象屬性
DateCreated 返回該文件夾的創(chuàng)建日期和時間
DateLastAccessed 返回最后一次訪問該文件的日期和時間
DateLastModified 返回最后一次修改該文件的日期和時間
Drive 返回該文件所在的驅(qū)動器的Drive對象
Name 設(shè)定或返回文件的名字
ParentFolder 返回該文件的父文件夾的Folder對象
Path 返回文件的絕對路徑，可使用長文件名
ShortName 返回DOS風(fēng)格的8.3形式的文件名
ShortPath 返回DOS風(fēng)格的8.3形式的文件絕對路徑
Size 返回該文件的大小（字節(jié)）
Type 如果可能，返回一個文件類型的說明字符串
FSO文件（File）對象方法
FSO文件對象方法 用途
CopyFile 拷貝一個或者多個文件到新路徑
CreateTextFile 創(chuàng)建文件并且返回一個TextStream對象
DeleteFile 刪除一個文件
OpenTextFile 打開文件并且返回TextStream對象，以便讀取或者追加
重命名文件：
復(fù)制代碼 代碼如下:
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
刪除文件：
復(fù)制代碼 代碼如下:
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
替換文件中的字符串:
復(fù)制代碼 代碼如下:
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
<%
'*******************************************************
'函數(shù)名：CreateFolder(sPath)
'作 用: 創(chuàng)建目錄
'參 數(shù)：sPath : 創(chuàng)建的相對目錄路徑
'返回值：成功 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")
