您正在使用IPV4(18.205.176.39)访问本站 您本次共访问本站 1 次
 用户名: 密 码: 验证码:     用QQ登录本站
首页 软件 编程 笑话 知识 公告 台风 日历 计算器
[公益]文明驾车我带头,文明行路我带头,礼貌让座我带头       深圳小产权房      

【腾讯云】热门云产品首单特惠秒杀,2核2G云服务器45元/年      
[公益] 节省一分零钱 献出一份爱心 温暖世间真情      
2022年 儿童节 15
2022年 端午节 17
2023年 元 旦 229
2023年 春 节 250
 
本类新增
本类热门文章
您现在的位置:首页 >> ASP/ASP.net >> 内容
FileSystem对象常用的文件操作函数
内容摘要: 1、root函数格式root()功能描述返回一个路径串变量应用代码'samplestring=c:\intels\jingcaichunfeng\'PublicFunctionroot()root=Request.ServerVariables('Appl_Physical_Path')EndFunction2、url函数格式url()功能描述返回一个URL......
1、root

函数格式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

上一篇:记录集内随机取记录的代码 下一篇:ASP 写的自动生成SELECT 表单的
发布日期:2022/5/6
手机扫二维码直达本页
发布时间:15:18:54
点击:206
录入:壹家怡园
相关文章
Baidu

YiJiaCMS 6.2.1.220509(MSSQL) 闽ICP备05000814号-1
本空间由腾讯云(轻量应用服务器)提供,百度云加速提供加速防护
Copyright©2000-2022