FileSystem物件常用的檔案操作函數有哪些？
1、root
函數格式root()
功能描述傳回一個路徑串變數
應用程式碼'sample string = c:/intels/jingcaichunfeng/'
Public Function root()
root = Request.ServerVariables(Appl_Physical_Path)
End Function
2、url
函數格式url()
功能描述傳回一個URL串變數
應用程式碼'sample string = http://www.intels.net/filesys.asp'
Public Function url()
url =http://&Request.ServerVariables(Server_Name)
&Request.ServerVariables(Script_Name)
End Function
3、mkdir
函數格式mkdir( DIrName )
功能描述建立一個目錄並傳回訊息
應用程式碼Public Function mkdir( xVar )
Set Sys = Server.CreateObject(Scripting.FileSystemObject)
If Sys.FolderExists( xVar ) Then
msg =抱歉,該目錄已存在!
Else
Sys.CreateFolder( xVar )
msg =恭喜,目錄建立成功!
End If
Set Sys = Nothing
mkdir = msg
End Function
4、rmdir
函數格式rmdir( DirName )
功能描述刪除目錄並傳回訊息
應用程式碼Public Function rmdir( xVar )
Set Sys = Server.CreateObject(Scripting.FileSystemObject)
If Sys.FolderExists( xVar ) Then
Sys.DeleteFolder( xVar )
msg =恭喜,目錄刪除成功!
Else
msg =抱歉,該目錄還未被創建!
End If
Set Sys = Nothing
rmdir = msg
End Function
5、isdir
函數格式isdir( DirName )
功能描述檢查一個目錄是否存在並傳回訊息
應用程式碼Public Function isdir( xVar )
Set Sys = Server.CreateObject(Scripting.FileSystemObject)
If Sys.FolderExists( xVar ) Then
msg = True
Else
msg = False
End If
Set Sys = Nothing
isdir = msg
End Function
6、cpdir
函數格式cpdir( DirName, Destination, OverWrite )
功能描述複製資料夾並返回訊息
應用程式碼Public Function cpdir( xVar, yVar, zVar )
Set Sys = Server.CreateObject(Scripting.FileSystemObject)
If Sys.FolderExists( xVar ) Then
Sys.CopyFolder xVar, root&yVar, zVar
msg =恭喜,目錄複製成功!
Else
msg =抱歉,沒有找到您想要的目錄!
End If
Set Sys = Nothing
cpdir = msg
End Function
7、mvdir
函數格式mvdir( DirName, Destination )
功能描述移動一個資料夾並返回訊息
應用程式碼Public Function mvdir( xVar, yVar )
Set Sys = Server.CreateObject(Scripting.FileSystemObject)
If Sys.FolderExists( xVar ) Then
Sys.MoveFolder xVar, root&yVar
msg =恭喜,目錄夾已移動!
Else
msg =抱歉,沒有找到您想要的目錄!
End If
Set Sys = Nothing
mvdir = msg
End Function
8、isfile
函數格式isfile( FileName )
功能描述檢查文件是否存在並傳回訊息
應用程式碼Public Function isfile( xVar )
Set Sys = Server.CreateObject(Scripting.FileSystemObject)
If Sys.FileExists( xVar ) Then
msg = True
Else
msg = False
End If
Set Sys = Nothing
isfile = msg
End Function
9、wfile
函數格式wfile( FileName, OverWrite, String )
功能描述寫入串到一個檔案並回傳訊息
應用程式碼Public Function wfile( xVar, yVar, zVar )
Set Sys = Server.CreateObject(Scripting.FileSystemObject)
If yVar Then
Set Txt = Sys.OpenTextFile( xVar, 2 )
Txt.Write( zVar )
Txt.Close
msg =恭喜,檔案創建成功並儲存!
Else
If Sys.FileExists( xVar ) Then
msg =抱歉,文件已經存在!
End If
Set Sys = Nothing
wfile = msg
End Function
10、rfile
函數格式rfile( FileName )
功能描述讀取一個檔案並回傳訊息
應用程式碼Public Function rfile( xVar )
Set Sys = Server.CreateObject(Scripting.FileSystemObject)
If Sys.FileExists( xVar ) Then
Set Txt = Sys.OpenTextFile( xVar, 1 )
msg = Txt.ReadAll
Txt.Close
Else
msg =抱歉,文件不存在!
End If
Set Sys = Nothing
rfile = msg
End Function
11、afile
函數格式afile( FileName, String )
功能描述新增串到一個檔案並傳回訊息
應用程式碼Public Function afile( xVar, zVar )
Set Sys = Server.CreateObject(Scripting.FileSystemObject)
If Sys.FileExists( xVar ) Then
Set Txt = Sys.OpenTextFile( xVar, 8 )
Txt.Write( zVar )
Txt.Close
msg =恭喜,文件添加成功並儲存!
Else
msg =抱歉,文件不存在!
End If
Set Sys = Nothing
afile = msg
End Function
12、cpfile
函數格式cpfile( FileName, Destination, OverWrite )
功能描述複製一個檔案並傳回訊息
應用程式碼Public Function cpfile( xVar, yVar, zVar )
Set Sys = Server.CreateObject(Scripting.FileSystemObject)
If Sys.FileExists( xVar ) Then
Sys.CopyFile xVar, root&yVar, zVar
msg =恭喜,文件複製成功!
Else
msg =抱歉,文件複製失敗!
End If
Set Sys = Nothing
cpfile = msg
End Function
13、mvfile
函數格式mvfile( FileName, Destination )
功能描述移動一個檔案並返回訊息
應用程式碼Public Function mvfile( xVar, yVar )
Set Sys = Server.CreateObject(Scripting.FileSystemObject)
If Sys.FileExists( xVar ) Then
Sys.MoveFile xVar, root&yVar
msg =恭喜,文件移動成功!
Else
msg =抱歉,文件移動失敗!
End If
Set Sys = Nothing
mvfile = msg
End Function
14、rmfile
函數格式rmfile( FileName )
功能描述刪除一個檔案並傳回訊息
應用程式碼Public Function rmfile( xVar )
Set Sys = Server.CreateObject(Scripting.FileSystemObject)
If Sys.FileExists( xVar ) Then
Sys.DeleteFile( xVar )
msg =恭喜,檔案刪除成功!
Else
msg =抱歉,檔案刪除失敗!
End If
Set Sys = Nothing
rmfile = msg
End Function