Scripting.FileSystemObject

 '创建文件夹

Sub CreateAFolder(file) 
Dim fso 
Set fso = CreateObject("Scripting.FileSystemObject") 
fso.CreateFolder(file) 
response.write "已经建立了"&file 
End Sub 

 

'删除文件夹

Sub DeleteAFolder(file) 
Dim fso 
Set fso = CreateObject("Scripting.FileSystemObject") 
fso.DeleteFolder(file) 
response.write "已经删除了"&file 
End Sub 

create=“e:\a”
del=

“e:\b”

call CreateAFolder(""&create&"")  '创建文件夹

call DeleteAFolder(""&del&"") ‘删除文件夹

‘判断一个文件夹是不是跟目录

Set  fso  =   CreateObject ( " Scripting.FileSystemObject " ) 
Set  fldr  =  fso.GetFolder( " c:\Program Files " ) 
Response.Write  " 父文件夹名字是： "   &  fldr  &   " <br> "  
If  fldr.IsRootFolder  =   True   Then  
Response.Write  " 该文件夹是一根文件夹 "   &   " <br> "  
Else  
Response.Write  " 该文件夹不是根文件夹 "   &   " <br> "  
End   If  
Response.Write  " 驱动器名字是： "   &  fldr.Drive  &   " <br> "   
Response.Write  " 文件夹名为 "   &  fso.GetBaseName( " c:\Program Files " ) 

 

 '移动文件夹

Set  fso  =   CreateObject ( " Scripting.FileSystemObject " ) 

fso.CreateFolder ("c:\cnbruce") 

fso.MoveFolder  " c:\cnbruce " ,  " C:\Program Files\ "  

 '拷贝文件夹

Set  fso  =   CreateObject ( " Scripting.FileSystemObject " ) 
fso.CopyFolder  " c:\Program Files\cnbruce " ,  " c:\ "  

 

 创建文件 

dim  fso, f 
set  fso  =  server.CreateObject( " Scripting.FileSystemObject " ) 
set  f  =  fso.CreateTextFile( " C:\test.txt " ,  true )  ' 第二个参数表示目标文件存在时是否覆盖 
f.Write( " 写入内容 " ) 
f.WriteLine( " 写入内容并换行 " ) 
f.WriteBlankLines( 3 )  ' 写入三个空白行（相当于在文本编辑器中按三次回车） 
f.Close() 
set  f  =   nothing 

set fso = nothing

 判断文件是否存在

dim  fso 
set  fso  =  server.CreateObject( " Scripting.FileSystemObject " ) 
if  fso.FileExists( " C:\test.txt " )  then  
    response.Write( " 目标文件存在 " ) 
else  
    response.Write( " 目标文件不存在 " ) 
end   if 

set fso = nothing 

打开并读文件  

dim  fso, f 
set  fso  =  server.CreateObject( " Scripting.FileSystemObject " ) 
set  f  =  fso.OpenTextFile( " C:\test.txt " ,  1 ,  false )  ' 第二个参数 1 表示只读打开，第三个参数表示目标文件不存在时是否创建 
f.Skip( 3 )  ' 将当前位置向后移三个字符 
f.SkipLine()  ' 将当前位置移动到下一行的第一个字符，注意：无参数 
response.Write f.Read( 3 )  ' 从当前位置向后读取三个字符，并将当前位置向后移三个字符 
response.Write f.ReadLine()  ' 从当前位置向后读取直到遇到换行符（不读取换行符），并将当前位置移动到下一行的第一个字符，注意：无参数 
response.Write f.ReadAll()  ' 从当前位置向后读取，直到文件结束，并将当前位置移动到文件的最后 
if  f.atEndOfLine  then  
    response.Write( " 一行的结尾！ " ) 
end   if  
if  f.atEndOfStream  then  
    response.Write( " 文件的结尾！ " ) 
end   if  
f.Close() 
set  f  =   nothing 

set fso = nothing 

 打开并写文件

dim  fso, f 
set  fso  =  server.CreateObject( " Scripting.FileSystemObject " ) 
set  f  =  fso.OpenTextFile( " C:\test.txt " ,  2 ,  false )  ' 第二个参数 2 表示重写，如果是 8 表示追加 
f.Write( " 写入内容 " ) 
f.WriteLine( " 写入内容并换行 " ) 
f.WriteBlankLines( 3 )  ' 写入三个空白行（相当于在文本编辑器中按三次回车） 
f.Close() 
set  f  =   nothing 

set fso = nothing  

 移动文件 

dim  fso 

set fso = server.CreateObject("Scripting.FileSystemObject") 
call fso.MoveFile("C:\test.txt", "D:\test111.txt") '两个参数的文件名部分可以不同 

set fso =nothing

 复制文件

dim fso  

set fso = server.CreateObject("Scripting.FileSystemObject") 
call fso.CopyFile("C:\test.txt", "D:\test111.txt") '两个参数的文件名部分可以不同 

set fso =nothing

 删除文件

dim fso 
set  fso  =  server.CreateObject( " Scripting.FileSystemObject " ) 
fso.DeleteFile( " C:\test.txt " ) 
set  fso  =   nothing  

转载于:https://www.cnblogs.com/ly312/archive/2011/02/28/1966881.html