函数格式root()

功能描述返回一个路径串变量

应用代码'samplestring=c:\intels\jingcaichunfeng\'

PublicFunctionroot()

root=Request.ServerVariables("Appl_Physical_Path")

EndFunction

2、url

函数格式url()

功能描述返回一个URL串变量

应用代码'samplestring=http://www.intels.net/filesys.asp'

PublicFunctionurl()

url="http://"&Request.ServerVariables("Server_Name")

&Request.ServerVariables("Script_Name")

EndFunction

3、mkdir

函数格式mkdir(DIrName)

功能描述创建一个目录并返回信息

应用代码PublicFunctionmkdir(xVar)

SetSys=Server.CreateObject("Scripting.FileSystemObject")

IfSys.FolderExists(xVar)Then

msg="抱歉,该目录已存在!"

Else

Sys.CreateFolder(xVar)

msg="恭喜,目录创建成功!"

EndIf

SetSys=Nothing

mkdir=msg

EndFunction

4、rmdir

函数格式rmdir(DirName)

功能描述删除一个目录并返回信息

应用代码PublicFunctionrmdir(xVar)

SetSys=Server.CreateObject("Scripting.FileSystemObject")

IfSys.FolderExists(xVar)Then

Sys.DeleteFolder(xVar)

msg="恭喜,目录删除成功!"

Else

msg="抱歉,该目录还未被创建!"

EndIf

SetSys=Nothing

rmdir=msg

EndFunction

5、isdir

函数格式isdir(DirName)

功能描述检查一个目录是否存在并返回信息

应用代码PublicFunctionisdir(xVar)

SetSys=Server.CreateObject("Scripting.FileSystemObject")

IfSys.FolderExists(xVar)Then

msg=True

Else

msg=False

EndIf

SetSys=Nothing

isdir=msg

EndFunction

6、cpdir

函数格式cpdir(DirName,Destination,OverWrite)

功能描述复制文件夹并返回信息

应用代码PublicFunctioncpdir(xVar,yVar,zVar)

SetSys=Server.CreateObject("Scripting.FileSystemObject")

IfSys.FolderExists(xVar)Then

Sys.CopyFolderxVar,root&yVar,zVar

msg="恭喜,目录复制成功!"

Else

msg="抱歉,没有找到您想要的目录!"

EndIf

SetSys=Nothing

cpdir=msg

EndFunction

7、mvdir

函数格式mvdir(DirName,Destination)

功能描述移动一个文件夹并返回信息

应用代码PublicFunctionmvdir(xVar,yVar)

SetSys=Server.CreateObject("Scripting.FileSystemObject")

IfSys.FolderExists(xVar)Then

Sys.MoveFolderxVar,root&yVar

msg="恭喜,目录夹已移动!"

Else

msg="抱歉,没有找到您想要的目录!"

EndIf

SetSys=Nothing

mvdir=msg

EndFunction

8、isfile

函数格式isfile(FileName)

功能描述检查文件是否存在并返回信息

应用代码PublicFunctionisfile(xVar)

SetSys=Server.CreateObject("Scripting.FileSystemObject")

IfSys.FileExists(xVar)Then

msg=True

Else

msg=False

EndIf

SetSys=Nothing

isfile=msg

EndFunction

9、wfile

函数格式wfile(FileName,OverWrite,String)

功能描述写入串到一个文件并返回信息

应用代码PublicFunctionwfile(xVar,yVar,zVar)

SetSys=Server.CreateObject("Scripting.FileSystemObject")

IfyVarThen

SetTxt=Sys.OpenTextFile(xVar,2)

Txt.Write(zVar)

Txt.Close

msg="恭喜,文件创建成功并保存!"

Else

IfSys.FileExists(xVar)Then

msg="抱歉,文件已经存在!"

EndIf

SetSys=Nothing

wfile=msg

EndFunction

10、rfile

函数格式rfile(FileName)

功能描述读取一个文件并返回信息

应用代码PublicFunctionrfile(xVar)

SetSys=Server.CreateObject("Scripting.FileSystemObject")

IfSys.FileExists(xVar)Then

SetTxt=Sys.OpenTextFile(xVar,1)

msg=Txt.ReadAll

Txt.Close

Else

msg="抱歉,文件不存在!"

EndIf

SetSys=Nothing

rfile=msg

EndFunction

11、afile

函数格式afile(FileName,String)

功能描述添加串到一个文件并返回信息

应用代码PublicFunctionafile(xVar,zVar)

SetSys=Server.CreateObject("Scripting.FileSystemObject")

IfSys.FileExists(xVar)Then

SetTxt=Sys.OpenTextFile(xVar,8)

Txt.Write(zVar)

Txt.Close

msg="恭喜,文件添加成功并保存!"

Else

msg="抱歉,文件不存在!"

EndIf

SetSys=Nothing

afile=msg

EndFunction

12、cpfile

函数格式cpfile(FileName,Destination,OverWrite)

功能描述复制一个文件并返回信息

应用代码PublicFunctioncpfile(xVar,yVar,zVar)

SetSys=Server.CreateObject("Scripting.FileSystemObject")

IfSys.FileExists(xVar)Then

Sys.CopyFilexVar,root&yVar,zVar

msg="恭喜,文件复制成功!"

Else

msg="抱歉,文件复制失败!"

EndIf

SetSys=Nothing

cpfile=msg

EndFunction

13、mvfile

函数格式mvfile(FileName,Destination)

功能描述移动一个文件并返回信息

应用代码PublicFunctionmvfile(xVar,yVar)

SetSys=Server.CreateObject("Scripting.FileSystemObject")

IfSys.FileExists(xVar)Then

Sys.MoveFilexVar,root&yVar

msg="恭喜,文件移动成功!"

Else

msg="抱歉,文件移动失败!"

EndIf

SetSys=Nothing

mvfile=msg

EndFunction

14、rmfile

函数格式rmfile(FileName)

功能描述删除一个文件并返回信息

应用代码PublicFunctionrmfile(xVar)

SetSys=Server.CreateObject("Scripting.FileSystemObject")

IfSys.FileExists(xVar)Then

Sys.DeleteFile(xVar)

msg="恭喜,文件删除成功!"

Else

msg="抱歉,文件删除失败!"

EndIf

SetSys=Nothing

rmfile=msg

EndFunction