亚洲av无码专区青青草原,9191在线播免费放国产

主頁(yè) > 知識(shí)庫(kù) > FileSystem對(duì)象常用的文件操作函數(shù)有哪些？

FileSystem對(duì)象常用的文件操作函數(shù)有哪些？

FileSystem對(duì)象常用的文件操作函數(shù)有哪些？
1、root
函數(shù)格式 root()
功能描述返回一個(gè)路徑串變量
應(yīng)用代碼 'sample string = c:\intels\jingcaichunfeng\'
Public Function root()
root = Request.ServerVariables("Appl_Physical_Path")
End Function

2、url
函數(shù)格式 url()
功能描述返回一個(gè)URL串變量
應(yīng)用代碼 '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
函數(shù)格式 mkdir( DIrName )
功能描述創(chuàng)建一個(gè)目錄并返回信息
應(yīng)用代碼 Public Function mkdir( xVar )
Set Sys = Server.CreateObject("Scripting.FileSystemObject")
If Sys.FolderExists( xVar ) Then
msg ="抱歉,該目錄已存在! "
Else
Sys.CreateFolder( xVar )
msg ="恭喜,目錄創(chuàng)建成功! "
End If
Set Sys = Nothing
mkdir = msg
End Function

4、rmdir
函數(shù)格式 rmdir( DirName )
功能描述刪除一個(gè)目錄并返回信息
應(yīng)用代碼 Public Function rmdir( xVar )
Set Sys = Server.CreateObject("Scripting.FileSystemObject")
If Sys.FolderExists( xVar ) Then
Sys.DeleteFolder( xVar )
msg ="恭喜,目錄刪除成功!"
Else
msg ="抱歉,該目錄還未被創(chuàng)建! "
End If
Set Sys = Nothing
rmdir = msg
End Function

5、isdir
函數(shù)格式 isdir( DirName )
功能描述檢查一個(gè)目錄是否存在并返回信息
應(yīng)用代碼 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
函數(shù)格式 cpdir( DirName, Destination, OverWrite )
功能描述復(fù)制文件夾并返回信息
應(yīng)用代碼 Public Function cpdir( xVar, yVar, zVar )
Set Sys = Server.CreateObject("Scripting.FileSystemObject")
If Sys.FolderExists( xVar ) Then
Sys.CopyFolder xVar, rootyVar, zVar
msg ="恭喜,目錄復(fù)制成功!"
Else
msg ="抱歉,沒(méi)有找到您想要的目錄!"
End If
Set Sys = Nothing
cpdir = msg
End Function

7、mvdir
函數(shù)格式 mvdir( DirName, Destination )
功能描述移動(dòng)一個(gè)文件夾并返回信息
應(yīng)用代碼 Public Function mvdir( xVar, yVar )
Set Sys = Server.CreateObject("Scripting.FileSystemObject")
If Sys.FolderExists( xVar ) Then
Sys.MoveFolder xVar, rootyVar
msg ="恭喜,目錄夾已移動(dòng)!"
Else
msg ="抱歉,沒(méi)有找到您想要的目錄!"
End If
Set Sys = Nothing
mvdir = msg
End Function

8、isfile
函數(shù)格式 isfile( FileName )
功能描述檢查文件是否存在并返回信息
應(yīng)用代碼 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
函數(shù)格式 wfile( FileName, OverWrite, String )
功能描述寫(xiě)入串到一個(gè)文件并返回信息
應(yīng)用代碼 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 ="恭喜,文件創(chuàng)建成功并保存!"
Else
If Sys.FileExists( xVar ) Then
   msg ="抱歉,文件已經(jīng)存在!"
End If
Set Sys = Nothing
wfile = msg
End Function

10、rfile
函數(shù)格式 rfile( FileName )
功能描述讀取一個(gè)文件并返回信息
應(yīng)用代碼 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
函數(shù)格式 afile( FileName, String )
功能描述添加串到一個(gè)文件并返回信息
應(yīng)用代碼 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
函數(shù)格式 cpfile( FileName, Destination, OverWrite )
功能描述復(fù)制一個(gè)文件并返回信息
應(yīng)用代碼 Public Function cpfile( xVar, yVar, zVar )
Set Sys = Server.CreateObject("Scripting.FileSystemObject")
If Sys.FileExists( xVar ) Then
Sys.CopyFile xVar, rootyVar, zVar
msg ="恭喜,文件復(fù)制成功!"
Else
msg ="抱歉,文件復(fù)制失敗!"
End If
Set Sys = Nothing
cpfile = msg
End Function

13、mvfile
函數(shù)格式 mvfile( FileName, Destination )
功能描述移動(dòng)一個(gè)文件并返回信息
應(yīng)用代碼 Public Function mvfile( xVar, yVar )
Set Sys = Server.CreateObject("Scripting.FileSystemObject")
If Sys.FileExists( xVar ) Then
Sys.MoveFile xVar, rootyVar
    msg ="恭喜,文件移動(dòng)成功!"
Else
msg ="抱歉,文件移動(dòng)失敗!"
End If
Set Sys = Nothing
mvfile = msg
End Function

14、rmfile
函數(shù)格式 rmfile( FileName )
功能描述刪除一個(gè)文件并返回信息
應(yīng)用代碼 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

標(biāo)簽：公主嶺天津懷化麗江內(nèi)江重慶成都臺(tái)灣

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《FileSystem對(duì)象常用的文件操作函數(shù)有哪些？》，本文關(guān)鍵詞 FileSystem,對(duì)象,常用的,常,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。