'---创建文件开始---
Sub Command_add(filename)
'set fso = Server.CreateObject("Scripting.FileSystemObject")
set textFile = fso.CreateTextFile(filename,true) 'true-覆盖\false-不覆盖
textFile.WriteLine "标题"    '写入单行数据
textFile.Write "正文"    '写入数据
textFile.close

End Sub
'---创建文件结束---

'---读取文件开始---
Sub Command_list(filename)
'set fso = server.CreateObject("Scripting.FileSystemObject")
set TextFile = Fso.OpenTextFile(FileName)
do while Not TextFile.AtEndOfStream
   'response.Write TextFile.Read(1)
   response.Write TextFile.ReadLine '读取一行
   'response.Write TextFile.ReadAll '读取全部
   response.Write "<br>"
loop
TextFile.close
End Sub
'---读取文件结束---

'---修改文件开始---
Sub Command_update(filename)
'set fso = server.CreateObject("Scripting.FileSystemObject")
set TextFile = Fso.OpenTextFile(FileName,2,True) '1为只读\2为可写但覆盖\8为可添加　True-为是\False-为否
   TextFile.WriteLine "这是添加的内容"
   TextFile.close
End Sub
'---修改文件结束---

'---复制文件开始---
Sub Command_copy(filename,SourceFile)
'set fso = server.CreateObject("Scripting.FileSystemObject")
Fso.CopyFile filename,SourceFile
End Sub
'---复制文件结束---

'---移动文件开始---
Sub Command_move(filename,SourceFile)
'set fso = server.CreateObject("Scripting.FileSystemObject")
Fso.MoveFile filename,SourceFile
End Sub
'---移动文件结束---

'---删除文件开始---
Sub Command_del(filename)
'set fso = server.CreateObject("Scripting.FileSystemObject")
if Fso.FileExists(filename) = True then ' 判断文件是否存在
   dim thisfile
   Set thisfile = fso.GetFile(FileName)
    thisfile.Delete True
end if
End Sub
'---删除文件结束---

'---返回文件名---
Function Command_FileName(filename)
'set fso = server.CreateObject("Scripting.FileSystemObject")
Command_FileName = fso.GetFileName(filename) '返回主文件名

End Function
'---返回文件名---

'---返回文件扩展名---
Function Command_ExtensionName(filename)
'set fso = server.CreateObject("Scripting.FileSystemObject")
Command_ExtensionName = fso.GetExtensionName(FileName) '返回文件扩展名
End Function
'---返回文件扩展名---

'---创建文件夹开始---
Function Command_CreateFolder(Foldername)
'set fso = server.CreateObject("Scripting.FileSystemObject")
fso.CreateFolder Foldername '创建文件夹
End Function
'---创建文件夹结束---

'---复制文件夹开始---
Function Command_CopyFolder(Foldername,DestiFolde)
'set fso = server.CreateObject("Scripting.FileSystemObject")
fso.CopyFolder Foldername,DestiFolde '复制文件夹
End Function
'---复制文件夹结束---

'---移动文件夹开始---
Function Command_MoveFolder(Foldername,SourceFolde)
'set fso = server.CreateObject("Scripting.FileSystemObject")
fso.MoveFolder Foldername,SourceFolde '移动文件夹
End Function
'---移动文件夹结束---

'---删除文件夹开始---
Function Command_DeleteFolder(Foldername)
'set fso = server.CreateObject("Scripting.FileSystemObject")
If fso.folderExists(SourceFolder) = True then ' 判断文件夹是否存在
fso.deleteFolDer Foldername '删除文件夹
End if
End Function
'---删除文件夹结束---