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, rootyVar, 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, rootyVar 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, rootyVar, 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, rootyVar 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
