爱华网FSO组件之文件操作
FSO中除了可以对驱动器、文件夹的操作以外，功能最强大的就是对文件的操作了。它可以用来记数、内容管理、搜索还可生成动态HTML页面等等。
一、fso.OpenTextFile
无需多说，fso.OpenTextFile就是打开某个文件了，一般情况之下是打开的txt文本文件。所以首先我们先建立一个txt文件，然后通过FSO来读取其中的内容。
1，info.txt
name:cnbruce
sex:male
建立了该文件，下面再做个ASP页面，当然最好两个文件是在同一目录下。
2，opentxt.asp
<%whichfile=server.mappath("info.txt")Set fso =CreateObject("Scripting.FileSystemObject")Set txt =fso.OpenTextFile(whichfile,1)rline = txt.ReadLinerline = rline& "<br>"& txt.ReadLineResponse.Writerlinetxt.Close%>
二、fso.CreateTextFile 如fso.CreateFolder建立文件夹般，fso.CreateTextFile则是建立文件了。
3，creattxt.asp
<%whichfile=server.mappath("info.txt")Set fso =CreateObject("Scripting.FileSystemObject")Set MyFile =fso.CreateTextFile(whichfile,True)MyFile.WriteLine("My Name IsCN-Bruce")MyFile.WriteLine("My Sex IsMale")MyFile.Close%><ahref="opentxt.asp">查看内容</a>
本次建立的文件是上一info.txt文件，fso.CreateTextFile(whichfile,True)其中的参数true即表示能覆盖已有文件。建立后需要向里面添加数据就采用“MyFile.WriteLine”了。
试验：文本计数器
首先建立一记数的文本文件counter.txt，设定初始值为“1”
4，counter.txt
1
接着是记数的ASP文件，功能是显示文本的记数，本做加1的记数，然后还要将新的记数写入文本文件。
5，txtcount.asp
<%whichfile=server.mappath("counter.txt")'打开文件并将其值读取，最后关闭连接释放资源setfso=createobject("Scripting.FileSystemObject")setopenfile=fso.opentextfile(whichfile,1)visitors=openfile.readlineopenfile.close'页面显示记数内容并做加1运算response.write"您是本页的第"&visitors&"位访客"visitors=visitors1'将新的数值添加写入到文本，最后关闭所有连接释放资源setcreatfile=fso.createtextfile(whichfile)creatfile.writeLine(visitors)creatfile.closesetfso=nothing%>
那根据这个可以继续地扩展内容：比如让记数用数字图片显示。当然前提就是你需要0-9的10张记数图片，并将此图片放于img文件夹中。 下为一增强的txtcount.asp内容代码。
<%whichfile=server.mappath("counter.txt")setfso=createobject("Scripting.FileSystemObject")setopenfile=fso.opentextfile(whichfile,1)visitors=openfile.readlineopenfile.closeCountLen=len(visitors)response.write"您是本页的第"for i=1 to6-countLen'表示最大值999999 response.write "<imgsrc=img/0.gif></img>"nextfor i=1 to countlen response.write "<img src=img/"& mid(visitors,i,1) &".gif></img>"nextresponse.write"位访客"visitors=visitors 1setcreatfile=fso.createtextfile(whichfile)creatfile.writeLine(visitors)creatfile.closesetfso=nothing%>
本程序中采用的是mid函数，该函数的作用是返回某字符串中从第几位字符开始的几个字符。格式即为：Mid(string,start,length)
<script language=vbs>cn_string="cnbruce love cnrose"cn_start = 9cn_length = 4alert(mid(cn_string,cn_start,cn_length))</script>学会了FSO提取文件值，也学会了将信息输入到文件中，那下面就再来应用应用下。 不知道你有没有这样的习惯：看到一个文件，不自觉的右键选择用记事本打开。呵呵，几乎没有哪个文件是不可以的。所以现在，可以默认所有文件都是文本，只是后缀名不同而已；那么也就是说，现在可以提取任一文件的内容信息。OK，就来想象一下： 1，提取一个文件的路径（采用file按钮进行查找定位） 2，将该路径文件打开，并读取所有行 3，显示读取的信息 一、viewcode.asp <%
Function ShowCode(filename)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set cnrs = fso.OpenTextFile(filename, 1)
While Not cnrs.AtEndOfStream
rsline = cnrs.ReadLine
rsline = server.HTMLEncode(rsline)
Response.Write(rsline &"<br>")
Wend
end Function
%>
<form action="viewcode.asp"method="post">
输入文件名<input type="file"name="filename">
<input type="submit"value="查看源程序">
</form>
<%
file=request.form("filename")
response.write (file &"源程序如下<hr>")
If trim(file)<> "" then
Call ShowCode(file)
End If
%>
以上程序调试时，可以选择html，asp页面，也可以打开任一应用程序等。
定义的ShowCode函数，主要作用是打开、读取并显示文件中所有信息内容。
注意添加了server.HTMLEncode(rsline)，针对含有标准HTML代码的文件。
显示文件中所有行即用一条件循环进行遍历显示了。
While Not cnrs.AtEndOfStream
...
Wend
接着，下面的这个例题具体就涉及open方法的问题了，还记得？正常情况之
下打开文件是采用fso.OpenTextFile("c:testfile.txt",1)，参数1的作用是：
以只读模式打开文件。不能对此文件进行写操作。如果现在已经存在一文件，
需要进行追加写入，则该怎么办呢？简单，参数为8即可。
这有什么用呢？呵呵，亚玛逊的网络故事接龙就是如此：能接龙就需要首先
要显示原有故事，然后自己添加故事写入文件。这其中的写入文件最讲究的就是
追加写入了。所以下面就可以实现。
二、story.asp
<%
If not request.Form("NextLine")="" then
Set fso=Server.CreateObject("Scripting.FileSystemobject")
textfile1=Server.MapPath("story.txt")
set cnrs=fso.OpenTextFile(textfile1,8)
cnrs.WriteLine(Request.Form("NextLine"))
cnrs.Close
end if
%>
故事如下：
<%
Set fso=Server.CreateObject("Scripting.FileSystemObject")
textfile1=Server.MapPath("story.txt")
set cnrs=fso.OpenTextFile(textfile1,1)
while not cnrs.AtEndOfStream
Response.Write " " & cnrs.ReadLine
wend
cnrs.close
%>
<hr>
<form method="post"action="story.asp">
请输入这个故事的新行:<inputname="NextLine" type="text" size="70">
<input type="submit"value="提交">
</form>
整个就是一很简单的读取信息和加入信息的混合利用，相信有了前面的基础
看懂应该不成问题。当然还缺少个story.txt文件，里面写好故事开头就可以了。
调试
再下面，继续来，该侧重点主要就是练习一些函数的使用技巧了。
1，instr函数：返回某字符串在另一字符串中第一次出现的位置。
比如现在查找字母“A”在字符串“A110B121C119D1861”中第一次出现的位置，则可以
<script language=vbs>
my_string = "A110B121C119D1861"
a_num = instr(my_string,"A")
alert(a_num)
</script>
同样字母“B”的位置也就能确定。现在就来最关键的：提前字母“A”和“B”
中间的值“110”。还记得mid函数吗？mid函数的主要作用是：从字符串中返回指定数目的字符。
比如现在的“110”则应该是从字符串的第2位取得3个单位的值。
<script language=vbs>
my_string = "A110B121C119D1861"
a_value = mid(my_string,2,3)
alert(a_value)
</script>
但设想一下：如果不是“110”，而是“1100”，那是不是要提取4位……这样就
显出程序的不够完美。
所以继续思考：所提取的值，永远是在字母“A”后面的，且值也永远是在字母
“A”和“B”之间的，
那么只要分别提取出“A”、“B”的位置，则中间数值的起始位应是字母“A”位1，
中间数值的长度应
是字母“B”位-字母“A”位-1
那么现在就可以让程序完美起来：
<script language=vbs>
my_string = "A110B121C119D1861"
a_num = instr(my_string,"A")
b_num = instr(my_string,"B")
a_value = mid(my_string,a_num 1,b_num-a_num-1)
alert(a_value)
</script>
OK，那么现在你也就完全可以把字母“B”、“C”、“D”后面的值一一提取了。
当然需要注意的就是“D”后面有几位怎么取呢？采用字符串总长度-字母D所在
位置数就可以了。
<script language=vbs>
my_string = "A110B121C119D1861"
a_num = instr(my_string,"A")
b_num = instr(my_string,"B")
c_num = instr(my_string,"C")
d_num = instr(my_string,"D")
total_num = len(my_string)
a_value = mid(my_string,a_num 1,b_num-a_num-1)
b_value = mid(my_string,b_num 1,c_num-b_num-1)
c_value = mid(my_string,c_num 1,d_num-c_num-1)
d_value = mid(my_string,d_num 1,total_num-d_num)
alert(a_value)
alert(b_value)
alert(c_value)
alert(d_value)
</script>
用到现在，你也许确实学到了不少，但也许会提出疑问：这个放在FSO文件操作
里有什么作用呢？
那下面才是我们的正题：用FSO进行简单的文本投票。
投票页面首要的就是显示各类项目的投票数，并相应赋于某个变量。然后
判断本次投票的选相，
相对应地将投票数值加1，完毕后再将所有值继续写入文本。
1，一个HTML表单页website.html
以做投票点击的平台。
用到现在，你也许确实学到了不少，但也许会提出疑问：这个放在FSO文件操作里
有什么作用呢？
那下面才是我们的正题：用FSO进行简单的文本投票。
<form action="result.asp"method="post">
<input type="radio" name="website" value="A"checked>cnbruce.com<br>
<input type="radio" name="website"value="B">blueidea.com<br>
<input type="radio" name="website"value="C">it365cn.com<br>
<input type="radio" name="website"value="D">5d.cn<br>
<input type="submit">
<input type="reset">
2，接受表单页值的result.asp
<%
whichfile=server.mappath("site.txt")
set fso=createobject("Scripting.FileSystemObject")
set thisfile=fso.opentextfile(whichfile)
my_string=thisfile.readline
a_num = instr(my_string,"A")
b_num = instr(my_string,"B")
c_num = instr(my_string,"C")
d_num = instr(my_string,"D")
total_num = len(my_string)
a_value = mid(my_string,a_num 1,b_num-a_num-1)
b_value = mid(my_string,b_num 1,c_num-b_num-1)
c_value = mid(my_string,c_num 1,d_num-c_num-1)
d_value = mid(my_string,d_num 1,total_num-d_num)
select case request.form("website")
case "A": a_value=a_value 1
case "B": b_value=b_value 1
case "C": c_value=c_value 1
case "D": d_value=d_value 1
end select
mynew_string="A" & cstr(a_value)& "B" & cstr(b_value)& "C"
& cstr(c_value) & "D"& cstr(d_value)
set newfile=fso.createtextfile(whichfile)
newfile.writeLine(mynew_string)
newfile.close
set fso=nothing
%>
当前投票：<br>
cnbruce.com:<%=a_value%><br>
blueidea.com:<%=b_value%><br>
it356cn.com:<%=c_value%><br>
5d.cn:<%=d_value%><br>
<ahref="website.html">返回继续</a>
有了上面函数的基础，看这个应该不是很难的。
3，最后不要忘了的记数文件site.txt
格式：A1B1C1D1
调试
OK，三个文件就可以胜任一个很简单的投票系统了，如果要加强，
需要细化的则结合以前的知识吧，比如投过一次后设置session或者cookies，
当再次投票时候判断如果session或者cookies存在则不允许，也就是简单的投票防作
假手段了……当然更多的还是要自己去想去实践了。
一，fso.GetFile
提取文件相应的 File 对象
1，getfile.asp
<%
whichfile=Server.MapPath("cnbruce.txt")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile(whichfile,true)
f1.Write ("This is a test.My Name is cnbruce.")
f1.Close
Set f2 = fso.GetFile(whichfile)
s = "文件名称：" & f2.name& "<br>"
s = s & "文件短路径名：" &f2.shortPath &"<br>"
s = s & "文件物理地址：" &f2.Path &"<br>"
s = s & "文件属性：" &f2.Attributes &"<br>"
s = s & "文件大小： " &f2.size &"<br>"
s = s & "文件类型： " &f2.type &"<br>"
s = s & "文件创建时间： " &f2.DateCreated &"<br>"
s = s & "最近访问时间: " &f2.DateLastAccessed &"<br>"
s = s & "最近修改时间: " &f2.DateLastModified
response.write(s)
%>
其效果正如右键某文件，看到的具体属性信息。
其中Attributes返回的数值“32”表示：（Archive）上次备份后已更改的文件。可读写。
其它值附录如下：
Normal 0 普通文件。 没有设置任何属性。
ReadOnly 1 只读文件。 可读写。
Hidden 2 隐藏文件。 可读写。
System 4 系统文件。 可读写。
Directory 16 文件夹或目录。 只读。
Archive 32 上次备份后已更改的文件。 可读写。
Alias 1024 链接或快捷方式。 只读。
Compressed 2048 压缩文件。 只读。
二，file.move
作用将指定的文件或文件夹从某位置移动到另一位置。其实该方法仍然属于
fso.GetFile后的一个应用。
2，movefile.asp
<%
whichfile=Server.MapPath("cnbruce.txt")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile(whichfile,true)
f1.Write ("This is a test.My Name is cnbruce.")
f1.Close
Set f2 = fso.GetFile(whichfile)
f2.Move "C:"
%>
<ahref="C:">查看下有没有</a>
简单的剪切粘贴的功能实现。
三，File.Copy
同样属于fso.GetFile后的一个应用。就只是单纯地拷贝文件到某位置。
3，copyfile.asp
<%
whichfile=Server.MapPath("cnbruce.txt")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile(whichfile,true)
f1.Write ("This is a test.My Name is cnbruce.")
f1.Close
Set f2 = fso.GetFile(whichfile)
f2.Copy "D:"
%>
<ahref="D:">查看下有没有</a>
和本ASP页面同在目录下的cnbruce.txt文件依然存在。
四，file.Delete
很显然，就是直接删除文件了。
4，delfile.asp
<%
whichfile=Server.MapPath("cnbruce.txt")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile(whichfile,true)
f1.Write ("This is a test.My Name is cnbruce.")
f1.Close
Set f2 = fso.GetFile(whichfile)
f2.move "d:"
Set f3 = fso.GetFile("d:cnbruce.txt")
f3.delete
%>
<ahref="d:">查看下是没有该文件的</a>
当然FSO还没有结束，比如上传文件，ASP转HTML等都需要用到FSO。更精彩的依然是在后面。
FSO从TXT循环读取文本
<%
whichfile=server.mappath("info.txt")
Set fso = CreateObject("Scripting.FileSystemObject")
Set txt = fso.OpenTextFile(whichfile,1)
%>
<% do while not txt.atendofstream
rline = txt.ReadLine %>
<% Response.Write rline %>
<%
loop
txt.Close
%>
FSO生成文本文件
<%
dim str
str="Hnumber"
path=Server.MapPath(str&".txt")
set fso=server.createobject("scripting.filesystemobject")
If fso.FileExists(path) = True Then
fso.DeleteFile(path)
End If
setfs=fso.createtextfile(Server.MapPath(str&".txt"),true)'生成文件
'FSO写入文本文件
Number=100
fs.writeline(Number)
'FSO读取文本文件数据
whichfile=server.mappath(str&".txt")
Set fso = CreateObject("Scripting.FileSystemObject")
Set txt = fso.OpenTextFile(whichfile,1)
rline = txt.ReadLine
rline = rline &"<br>" & txt.ReadLine'读取第2行(可以省略,如果你觉得有第2行就读取)
Response.Write rline
txt.Close
'最后不要忘了关闭FS对象哦 ^_^
set fs=nothing
%>
使用FSO修改文件特定内容的函数
function FSOchange(filename,Target,String)
Dim objFSO,objCountFile,FiletempData
Set objFSO =Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile =objFSO.OpenTextFile(Server.MapPath(filename),1,True)
FiletempData = objCountFile.ReadAll
objCountFile.Close
FiletempData=Replace(FiletempData,Target,String)
SetobjCountFile=objFSO.CreateTextFile(Server.MapPath(filename),True)
objCountFile.Write FiletempData
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
End Function
使用FSO读取文件内容的函数
function FSOFileRead(filename)
Dim objFSO,objCountFile,FiletempData
Set objFSO =Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile =objFSO.OpenTextFile(Server.MapPath(filename),1,True)
FSOFileRead = objCountFile.ReadAll
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
End Function
使用FSO读取文件某一行的函数
function FSOlinedit(filename,lineNum)
if linenum < 1 then exit function
dim fso,f,temparray,tempcnt
set fso = server.CreateObject("scripting.filesystemobject")
if not fso.fileExists(server.mappath(filename)) then exitfunction
set f = fso.opentextfile(server.mappath(filename),1)
if not f.AtEndofStream then
tempcnt = f.readall
f.close
set f = nothing
temparray = split(tempcnt,chr(13)&chr(10))
if lineNum>ubound(temparray)+1 then
exit function
else
FSOlinedit = temparray(lineNum-1)
end if
end if
end function
使用FSO写文件某一行的函数
function FSOlinewrite(filename,lineNum,Linecontent)
if linenum < 1 then exit function
dim fso,f,temparray,tempCnt
set fso = server.CreateObject("scripting.filesystemobject")
if not fso.fileExists(server.mappath(filename)) then exitfunction
set f = fso.opentextfile(server.mappath(filename),1)
if not f.AtEndofStream then
tempcnt = f.readall
f.close
temparray = split(tempcnt,chr(13)&chr(10))
if lineNum>ubound(temparray)+1 then
exit function
else
temparray(lineNum-1) = lineContent
end if
tempcnt = join(temparray,chr(13)&chr(10))
set f = fso.createtextfile(server.mappath(filename),true)
f.write tempcnt
end if
f.close
set f = nothing
end function
使用FSO添加文件新行的函数
function FSOappline(filename,Linecontent)
dim fso,f
set fso = server.CreateObject("scripting.filesystemobject")
if not fso.fileExists(server.mappath(filename)) then exitfunction
set f = fso.opentextfile(server.mappath(filename),8,1)
f.writechr(13)&chr(10)&Linecontent
f.close
set f = nothing
end function
读文件最后一行的函数
function FSOlastline(filename)
dim fso,f,temparray,tempcnt
set fso = server.CreateObject("scripting.filesystemobject")
if not fso.fileExists(server.mappath(filename)) then exitfunction
set f = fso.opentextfile(server.mappath(filename),1)
if not f.AtEndofStream then
tempcnt = f.readall
f.close
set f = nothing
temparray = split(tempcnt,chr(13)&chr(10))
FSOlastline = temparray(ubound(temparray))
end if
end function
获取一个文本的所有行数
Function filenum(filename)
Dim temparray
set fso = server.CreateObject("scripting.filesystemobject")
if not fso.fileExists(server.mappath(filename)) then exitFunction
set f = fso.opentextfile(server.mappath(filename),1)
if not f.AtEndofStream then
tempcnt = f.readall
temparray = split(tempcnt,chr(13)&chr(10))
lineNum=ubound(temparray)
filenum =lineNum
f.close
End if
End Function
动态include文件
'利用FSO动态调用文件
Function include(filename)
Dim re,Content,FSO,F,aspStart,aspEnd
Set FSO = CreateObject("Scripting.FileSystemObject")
Set F = FSO.OpenTextFile(Server.MapPath(filename))
Content = F.ReadAll
F.Close
Set = Nothing
Set FSO = Nothing
Set re = New RegExp
re.pattern = "s*="
aspEnd = 1
aspStart = inStr(aspEnd,content,"<%")+2
Do While aspStart>aspEnd+1
Response.Write Mid(content,aspEnd,aspStart-aspEnd-2)
aspEnd=inStr(aspStart,content,"%>")+2
Execute(re.replace(Mid(content,aspStart,aspEnd-aspStart-2),"Response.Write"))
aspStart=inStr(aspEnd,content,"<%")+2
Loop
Response.Write Mid(content,aspEnd)
Set re = Nothing
End Function
删除文件
Function DelFile(Filename)
If Filename <> "" Then
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
If FSO.FileExists(Filename) Then
FSO.DeleteFile Filename
End If
Set FSO = Nothing
End If
End Function
判断文件是否存在
Function ReportFileStatus(filespec)
Dim FSO,msg
Set FSO = CreateObject("Scripting.FileSystemObject")
If (FSO.FileExists(filespec)) Then
msg = filespec & " exists."
Else
msg = filespec & " doesn't exist."
End If
ReportFileStatus = msg
End Function
使用FSO修改文件特定内容的函数
'使用FSO修改文件特定内容的函数
Function FSOchange(filename,Target,String)
Dim objFSO,objCountFile,FiletempData
Set objFSO =Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile =objFSO.OpenTextFile(Server.MapPath(filename),1,True)
FiletempData = objCountFile.ReadAll
objCountFile.Close
FiletempData = Replace(FiletempData,Target,String)
Set objCountFile =objFSO.CreateTextFile(Server.MapPath(filename),True)
objCountFile.Write FiletempData
objCountFile.Close
Set objCountFile = Nothing
Set objFSO = Nothing
End Function
使用FSO写文件某一行的函数
'使用FSO写文件某一行的函数
Function FSOlinewrite(filename,lineNum,Linecontent)
If linenum < 1 Then Exit Function
Dim FSO,f,temparray,tempCnt
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
If Not FSO.FileExists(Server.MapPath(filename)) Then ExitFunction
Set f = FSO.OpenTextFile(Server.MapPath(filename),1)
If Not f.AtEndofStream Then
tempcnt = f.ReadAll
f.Close
temparray = Split(tempcnt,Chr(13)&Chr(10))
If lineNum>UBound(temparray)+1 Then
Exit Function
Else
temparray(lineNum-1) = lineContent
End If
tempcnt = join(temparray,Chr(13)&Chr(10))
Set f = FSO.createtextfile(Server.MapPath(filename),true)
f.Write tempcnt
End If
f.Close
Set f = Nothing
End Function
FSO替换指定文件的字符
Function FSOLineEdit(filename,Target,String)
Dim objFSO,objCountFile,FiletempData
Set objFSO =Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile =objFSO.OpenTextFile(Server.MapPath(filename),1,True)
FiletempData = objCountFile.ReadAll
objCountFile.Close
FiletempData = Replace(FiletempData,Target,String)
Set objCountFile =objFSO.CreateTextFile(Server.MapPath(filename),True)
objCountFile.Write FiletempData
objCountFile.Close
Set objCountFile = Nothing
Set objFSO = Nothing
End Function
'Response.WriteFSOLineEdit("test.txt","世界","明天是一个好天去")
使用FSO读取文件内容的函数
Function FSOFileRead(filename)
Dim objFSO,objCountFile,FiletempData
Set objFSO =Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile =objFSO.OpenTextFile(Server.MapPath(filename),1,True)
FSOFileRead = objCountFile.ReadAll
objCountFile.Close
Set objCountFile = Nothing
Set objFSO = Nothing
End Function
建立目录的程序，如果有多级目录，则一级一级的创建
Function CreateDIR(ByVal LocalPath)
On Error Resume Next
LocalPath = Replace(LocalPath,"","/")
Set FileObject =Server.CreateObject("Scripting.FileSystemObject")
patharr = Split(LocalPath,"/")
path_level = UBound(patharr)
For i = 0 to path_level
If i=0 Then pathtmp=patharr(0) & "/" Else pathtmp =pathtmp & patharr(i) & "/"
cpath = Left(pathtmp,Len(pathtmp)-1)
If Not FileObject.FolderExists(cpath) Then FileObject.CreateFoldercpath
Next
Set FileObject = Nothing
If Err.Number <> 0 Then
CreateDIR = False
Err.Clear
Else
CreateDIR = True
End If
End Function
复制某目录下所有文件至指定目录
Set fso=CreateObject("Scripting.FileSystemObject")
Set Cur_Folder = fso.getfolder(Server.MapPath(SourcePath))''源文件夹
Distination_Path="c:test"
Set sub_files = Cur_Folder.files
for each each_file in sub_files
sub_file_path=each_file.name
fso.CopyFileServer.MapPath(SourcePath)&"/"&sub_file_path,Distination_Path&"/"&sub_file_path,True
Next
javascript操作文件__FSO
对象/集合 含义
Driver对象类型，包括收集系统中驱动器相关信息的方法和属性，比如共享名、可用空间等，一个“driver”对象不一定代表一个物理硬盘，还可以是一个CD-ROM驱动器、一个RAM盘或者一个通过网络逻辑连接的资源。
Drivers集合类型，提供系统中一系列以物理方式或逻辑方式存在的驱动器对象
File对象类型，包括对文件进行创建、删除或者移动操作的相关方法和属性，还包括查询文件名称、路径以及其他文件属性的方法和操作。
Files集合类型，提供包含在文件夹中的一系列File对象
Folder对象类型，包括对文件夹进行创建、删除或者移动操作的相关方法和属性，还包括查询文件夹名称、路径以及其他文件夹属性的方法和操作。
Folders集合类型，提供包含在文件夹中的一系列Folder对象
TestStream 对象类型，提供文本文件的读写功能
二、FileSystemObject编程三部曲
使用FileSystemObject对象进行编程很简单，一般要经过如下的步骤：创建FileSystemObject对象、应用相关方法、访问对象相关属性。
（一）创建FileSystemObject对象
创建FileSystemObject对象的代码只要1行：
var fso = new ActiveXObject("Scripting.FileSystemObject");
上述代码执行后，fso就成为一个FileSystemObject对象实例。
（二）应用相关方法
创建对象实例后，就可以使用对象的相关方法了。比如，使用CreateTextFile方法创建一个文本文件：
var fso = new ActiveXObject("Scripting.FileSystemObject");
var f1 = fso.createtextfile("c:\myjstest.txt",true");
（三）访问对象相关属性
要访问对象的相关属性，首先要建立指向对象的句柄，这就要通过get系列方法实现：GetDrive负责获取驱动器信息，GetFolder负责获取文件夹信息，GetFile负责获取文件信息。比如，指向下面的代码后，f1就成为指向文件c:test.txt的句柄：
var fso = new ActiveXObject("Scripting.FileSystemObject");
var f1 = fso.GetFile("c:\myjstest.txt");
然后，使用f1访问对象的相关属性。比如：
var fso = new ActiveXObject("Scripting.FileSystemObject");
var f1 = fso.GetFile("c:\myjstest.txt");
alert("File last modified: " + f1.DateLastModified);
执行上面最后一句后，将显示c:myjstest.txt的最后修改日期属性值。
但有一点请注意：对于使用create方法建立的对象，就不必再使用get方法获取对象句柄了，这时直接使用create方法建立的句柄名称就可以：
var fso = new ActiveXObject("Scripting.FileSystemObject");
var f1 = fso.createtextfile("c:\myjstest.txt",true");
alert("File last modified: " + f1.DateLastModified);
三、操作驱动器（Drives）
使用FileSystemObject对象来编程操作驱动器（Drives）和文件夹（Folders）很容易，这就象在Windows文件浏览器中对文件进行交互操作一样，比如：拷贝、移动文件夹，获取文件夹的属性。
（一）Drives对象属性
Drive对象负责收集系统中的物理或逻辑驱动器资源内容，它具有如下属性：
lTotalSize：以字节（byte）为单位计算的驱动器大小。
lAvailableSpace或FreeSpace：以字节（byte）为单位计算的驱动器可用空间。
l DriveLetter：驱动器字母。
lDriveType：驱动器类型，取值为：removable（移动介质）、fixed（固定介质）、network（网络资源）、CD-ROM或者RAM盘。
l SerialNumber：驱动器的系列码。
lFileSystem：所在驱动器的文件系统类型，取值为FAT、FAT32和NTFS。
l IsReady：驱动器是否可用。
l ShareName：共享名称。
l VolumeName：卷标名称。
lPath和RootFolder：驱动器的路径或者根目录名称。
（二）Drive对象操作例程
下面的例程显示驱动器C的卷标、总容量和可用空间等信息：
var fso, drv, s ="";
fso = new ActiveXObject("Scripting.FileSystemObject");
drv = fso.GetDrive(fso.GetDriveName("c:\"));
s += "Drive C:" + " - ";
s += drv.VolumeName + "n";
s += "Total Space: " + drv.TotalSize / 1024;
s += " Kb" + "n";
s += "Free Space: " + drv.FreeSpace / 1024;
s += " Kb" + "n";
alert(s);
执行后出现下面的信息框：
Driver C: - MYDISKC
Total Space: 2096160 Kb
Free Space: 763328 Kb
四、操作文件夹（Folders）
涉及到文件夹的操作包括创建、移动、删除以及获取相关属性。
（一） Folder对象的相关属性和方法列表
方法/属性 任务
FileSystemObject.CreateFolder 创建文件夹
Folder.Delete
FileSystemObject.DeleteFolder
删除文件夹
Folder.Move
FileSystemObject.MoveFolder
移动文件夹
Folder.Copy
FileSystemObject.CopyFolder
拷贝文件夹
Folder.Name 取得文件夹名称
FileSystemObject.FolderExists 判断文件夹是否存在
FileSystemObject.GetFolder取得存在Folder对象中的实例
FileSystemObject.GetParentFolderName取得文件夹的父文件夹名称
FileSystemObject.GetSpecialFolder取得系统文件夹路径信息
（二）Folder对象操作例程
下面的例程将练习获取父文件夹名称、创建文件夹、删除文件夹、判断是否为根目录等操作：
var fso, fldr, s = "";
// 创建FileSystemObject对象实例
fso = new ActiveXObject("Scripting.FileSystemObject");
// 获取Drive 对象
fldr = fso.GetFolder("c:\");
// 显示父目录名称
alert("Parent folder name is: " + fldr + "n");
// 显示所在drive名称
alert("Contained on drive " + fldr.Drive + "n");
// 判断是否为根目录
if (fldr.IsRootFolder)
alert("This is the root folder.");
else
alert("This folder isn't a root folder.");
alert("nn");
// 创建新文件夹
fso.CreateFolder ("C:\Bogus");
alert("Created folder C:\Bogus" + "n");
// 显示文件夹基础名称，不包含路径名
alert("Basename = " + fso.GetBaseName("c:\bogus") + "n");
// 删除创建的文件夹
fso.DeleteFolder ("C:\Bogus");
alert("Deleted folder C:\Bogus" + "n");
五、操作文件（Files）
对文件进行的操作要比以上介绍的驱动器（Drive）和文件夹（Folder）操作复杂些，基本上分为以下两个类别：对文件的创建、拷贝、移动、删除操作和对文件内容的创建、添加、删除和读取操作。下面分别详细介绍。
（一）创建文件
一共有3种方法可用于创建一个空文本文件，这种文件有时候也叫做文本流（textstream）。
第一种是使用CreateTextFile方法。代码如下：
var fso, f1;
fso = new ActiveXObject("Scripting.FileSystemObject");
f1 = fso.CreateTextFile("c:\testfile.txt", true);
第二种是使用OpenTextFile方法，并添加上ForWriting属性，ForWriting的值为2。代码如下：
var fso, ts;
var ForWriting= 2;
fso = new ActiveXObject("Scripting.FileSystemObject");
ts = fso.OpenTextFile("c:\test.txt", ForWriting, true);
第三种是使用OpenAsTextStream方法，同样要设置好ForWriting属性。代码如下：
var fso, f1, ts;
var ForWriting = 2;
fso = new ActiveXObject("Scripting.FileSystemObject");
fso.CreateTextFile ("c:\test1.txt");
f1 = fso.GetFile("c:\test1.txt");
ts = f1.OpenAsTextStream(ForWriting, true);
（三）创建文件及添加数据例程
下面的代码将创建文件、添加数据、关闭文件几个步骤结合起来进行应用：
var fso, tf;
fso = new ActiveXObject("Scripting.FileSystemObject");
// 创建新文件
tf = fso.CreateTextFile("c:\testfile.txt", true);
// 填写数据，并增加换行符
tf.WriteLine("Testing 1, 2, 3.") ;
// 增加3个空行
tf.WriteBlankLines(3) ;
// 填写一行，不带换行符
tf.Write ("This is a test.");
// 关闭文件
tf.Close();
（四）读取文件内容
从文本文件中读取数据要使用TextStream对象的Read、ReadLine或ReadAll方法。Read方法用于读取文件中指定数量的字符；ReadLine方法读取一整行，但不包括换行符；ReadAll方法则读取文本文件的整个内容。读取的内容存放于字符串变量中，用于显示、分析。在使用Read或ReadLine方法读取文件内容时，如果要跳过一些部分，就要用到Skip或SkipLine方法。
下面的代码演示打开文件、填写数据，然后读取数据：
var fso, f1, ts, s;
var ForReading = 1;
fso = new ActiveXObject("Scripting.FileSystemObject");
// 创建文件
f1 = fso.CreateTextFile("c:\testfile.txt", true);
// 填写一行数据
f1.WriteLine("Hello World");
f1.WriteBlankLines(1);
// 关闭文件
f1.Close();
// 打开文件
ts = fso.OpenTextFile("c:\testfile.txt", ForReading);
// 读取文件一行内容到字符串
s = ts.ReadLine();
// 显示字符串信息
alert("File contents = '" + s + "'");
// 关闭文件
ts.Close();
（五）移动、拷贝和删除文件
对于以上三种文件操作，Javascript各有两种对应的方法：File.Move或 FileSystemObject.MoveFile用于移动文件；File.Copy 或FileSystemObject.CopyFile用于拷贝文件；File.Delete 或FileSystemObject.DeleteFile用于删除文件。
下面的代码演示在驱动器C的根目录下创建一个文本文件，填写一些内容，然后将文件移动到tmp目录下，再在目录temp下面建立一个文件拷贝，最后删除这两个目录的文件：
var fso, f1, f2, s;
fso = new ActiveXObject("Scripting.FileSystemObject");
f1 = fso.CreateTextFile("c:\testfile.txt", true);
// 写一行
f1.Write("This is a test.");
// 关闭文件
f1.Close();
// 获取C:根目录下的文件句柄
f2 = fso.GetFile("c:\testfile.txt");
// 移动文件到tmp目录下
f2.Move ("c:\tmp\testfile.txt");
// 拷贝文件到temp目录下
f2.Copy ("c:\temp\testfile.txt");
// 获取文件句柄
f2 = fso.GetFile("c:\tmp\testfile.txt");
f3 = fso.GetFile("c:\temp\testfile.txt");
// 删除文件
f2.Delete();
f3.Delete();
