bbsvs

FileSystem对象常用的文件操作函数的实例

作者:bbsvs 时间:2017-06-10

这篇文章主要是详细介绍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.bbsvs.com/index.php' 
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, root&yVar, 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, root&yVar 
  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, root&yVar, 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, root&yVar 
    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


TAG: