ASP里Fso功能很强大，我怎样一步步的学好这个对象,请高手指点。

[pmrc2009]

ASP里Fso功能很强大，我怎样一步步的学好这个对象,请高手指点。

[CainLai]

我觉得所有程序语言都是从低做起结合实际，我第一次接触ASP的时候就是帮别人试着写一个网页，从基础的登录开始，哪不懂就查哪方面的资料，遇见不懂的越多，查得越多，懂得越多，但是个人觉得这样学习的话 基础知识还是有待加强，有时间再去补充下吧

[BlueSky4014]

学习，上面的都说了

[银狐被占用]

函数格式 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.intels.net/filesys.asp'
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

[hwfec]

学习中……

[qizhicong2]

判断目录是否存在
建立目录
创建文本文件

基本就搞定啦

[anbs01]

看一遍代码就知道是怎么回事了，不需要怎么深入的学习。
就是一个文件的对象。

[ttt2]

判断目录是否存在
建立目录
创建文本文件

基本就搞定啦

[mahui19780126]

这个没什么可研究的，只不过可以研究的具体一点，比如文本是否存在，里面是否有文字，是否要重新还是续写。里面写的格式换行等等。

[mahui19780126]

还可以写伪静态html等等

[fxcjy]

不用太深入研究，就是个文件访问，查一下帮助了解一下方法，属性等就可以了。

[ACMAIN_CHM]

帮助文档中介绍得很详细

FileSystemObject 对象


描述

提供对计算机文件系统的访问。

语法

Scripting.FileSystemObject

说明

下面的代码举例说明了如何使用 FileSystemObject 返回一个 TextStream 对象，该对象是可读并可写的：

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\testfile.txt", True)
a.WriteLine("This is a test.")
a.Close

在上面列出的代码中，CreateObject 函数返回 FileSystemObject (fs)。CreateTextFile 方法接着创建文件作为一个 TextStream 对象(a)，而 WriteLine 方法则向创建的文本文件中写入一行文本。Close 方法刷新缓冲区并关闭文件。

[Sandrer]

我不觉得它有什么强大的~
只是一般的文件读写，我个人感觉 ADODB.Stream 比它自由一点
只是FSO经过一定的封装，使用方便而已！

不过所有的这些组件，在安全性一般或以上的服务器中，你只能读写你网页所在文件夹中的文件。