【下载文档:  FileSystem对象常用的文件操作函数有哪些？.txt 】

---

FileSystem对象常用的文件操作函数有哪些？
FileSystem对象常用的文件操作函数有哪些？1、root函数格式 root()功能描述 返回一个路径串变量应用代码 'sample string = c:\intels\jingcaichunfeng\' Public Function root() root = Request.ServerVariables("Appl_Physical_Path") End Function2、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 Function4、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 Function5、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 Function6、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 Function7、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 Function8、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 Function9、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 Function10、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 Function11、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 Function12、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 Function13、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 Function14、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