ASP应用之FSO组件之文件操作大全

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.Write FSOLineEdit("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.CreateFolder cpath
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.CopyFile Server.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对象负责收集系统中的物理或逻辑驱动器资源内容，它具有如下属性： 
l TotalSize：以字节（byte）为单位计算的驱动器大小。 
l AvailableSpace或FreeSpace：以字节（byte）为单位计算的驱动器可用空间。 
l DriveLetter：驱动器字母。 
l DriveType：驱动器类型，取值为：removable（移动介质）、fixed（固定介质）、network（网络资源）、CD-ROM或者RAM盘。 
l SerialNumber：驱动器的系列码。 
l FileSystem：所在驱动器的文件系统类型，取值为FAT、FAT32和NTFS。 
l IsReady：驱动器是否可用。 
l ShareName：共享名称。 
l VolumeName：卷标名称。 
l Path和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("\n\n"); 
// 创建新文件夹 
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种方法可用于创建一个空文本文件，这种文件有时候也叫做文本流（text stream）。 
第一种是使用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();