深入理解ASP中FSO的神奇功能
")
path = "c: emp est.txt"
strDate = Replace(Date(), "/", "")
strDir = "c:inetpubwwwrootarticles" & strDate
strNewFileName = Hour(Now) & "_" & Minute(Now) & "_" &
second(Now) & ".html"
'''' open the old file
set file = fso.opentextfile(path, 1) < -- For reading
strText = file.readall
set file = nothing
'''' check for and/or create folder
if not fso.folderexists(Server.MapPath(strDir)) then
set f = fso.CreateFolder(Server.MapPath(strDir))
else
set f = fso.GetFolder(Server.MapPath(strDir))
end if
'''' create and write new file
set file = fso.Createtextfile(f.path & "" & strNewFileName)
file.write(strText)
set f = nothing
file.close
set file = nothing
'''' delete the old file
fso.DeleteFile(path & "" & rst("FileName") & i)
'''' clean up
set fso = nothing
%>
FSO能力的不足在这里却成了优势，我们可以一次执行2步。首先，打开文件并读入文件的内容。假设这里要创建一个唯一的文件夹和一个唯一的文件来存储文章。然而，因为文件夹的路径每天都将改变，所以必须首先检查是否文件夹已经存在，如果不存在，就创建它。这在if not fso.folderexists代码段完成。然后，取得那个路径，创建一个新的文件。新文件建立完成后，删除掉旧文件，这通过fso.DeleteFile来完成。
这2步就是：对文件改名，然后移动到一个更合适的目录下。注意，在这里还可以对文件进行更多地操作，比如在写入新文件前进行一下内容的编辑。
FSO确实存在一些弱点 － 比如，它很难处理二进制文件，这包括Word文档、许多图形格式的文件和其他一些文件。然而你仍然可以用其他的方式操作这些文件 － 移动它们、删除它们，等等。你不能做的就是对它们进行打开或者写操作。
另外一个限制是对于文件长度的问题。当立刻读写一些内容时，所有的信息都存储在内存中 － 内容越多，消耗的内存就越大。这将使每个工作都变得慢起来。所以，如果需要操作非常大的文件，或者大量的小文件时，考虑将文件分割成小块，并且经常的清除内存。将应用程序融入进COM对象组件，也能大大地提高程序的速度。
同样，你也不能使用FSO来管理权限以及文件、文件夹的属性，执行安全加密的一个很好方法就是将前面提到的留言簿文件设置为只读，在需要时再设置为可写，然后再修改回来。这个方法经常在CGI和Perl使用，但是很不幸，还没有令人满意的方法来用FSO实现。
还能用FSO做什么？
在FSO中还有许多很棒的功能，但许多人没有意识到。这些功能常常是在你感到做某些事情很难后才发现的，这时你经常要感叹到：要是我早知道这个方法就好了！
下面列举一下这些不常用但是却非常酷的功能：
很少被了解的FSO功能
GetSpecialFolder Method 返回特定的Windows文件夹的路径: Windows安装目录;Windows系统目录;Windows临时目录 FSO.GetSpecialFolder([0, 1, or 2]) GetTempName Method 返回一个随机产生的文件或者目录名字，用于需要存储临时数据时GetAbsolutePathName Method 返回文件夹的绝对路径(类似于Server.MapPath)。
比如，FSO.GetAbsolutePathName("region") 将返回类似于下面的结果："c:mydocsmyfolder egion"
GetExtensionName Method 返回路径中最后部分的扩展名(比如：FSO.GetExtensionName("c:docs est.txt") 将返回txt) GetBaseName and GetParentFolder Methods 返回路径
path = "c: emp est.txt"
strDate = Replace(Date(), "/", "")
strDir = "c:inetpubwwwrootarticles" & strDate
strNewFileName = Hour(Now) & "_" & Minute(Now) & "_" &
second(Now) & ".html"
'''' open the old file
set file = fso.opentextfile(path, 1) < -- For reading
strText = file.readall
set file = nothing
'''' check for and/or create folder
if not fso.folderexists(Server.MapPath(strDir)) then
set f = fso.CreateFolder(Server.MapPath(strDir))
else
set f = fso.GetFolder(Server.MapPath(strDir))
end if
'''' create and write new file
set file = fso.Createtextfile(f.path & "" & strNewFileName)
file.write(strText)
set f = nothing
file.close
set file = nothing
'''' delete the old file
fso.DeleteFile(path & "" & rst("FileName") & i)
'''' clean up
set fso = nothing
%>
FSO能力的不足在这里却成了优势，我们可以一次执行2步。首先，打开文件并读入文件的内容。假设这里要创建一个唯一的文件夹和一个唯一的文件来存储文章。然而，因为文件夹的路径每天都将改变，所以必须首先检查是否文件夹已经存在，如果不存在，就创建它。这在if not fso.folderexists代码段完成。然后，取得那个路径，创建一个新的文件。新文件建立完成后，删除掉旧文件，这通过fso.DeleteFile来完成。
这2步就是：对文件改名，然后移动到一个更合适的目录下。注意，在这里还可以对文件进行更多地操作，比如在写入新文件前进行一下内容的编辑。
FSO确实存在一些弱点 － 比如，它很难处理二进制文件，这包括Word文档、许多图形格式的文件和其他一些文件。然而你仍然可以用其他的方式操作这些文件 － 移动它们、删除它们，等等。你不能做的就是对它们进行打开或者写操作。
另外一个限制是对于文件长度的问题。当立刻读写一些内容时，所有的信息都存储在内存中 － 内容越多，消耗的内存就越大。这将使每个工作都变得慢起来。所以，如果需要操作非常大的文件，或者大量的小文件时，考虑将文件分割成小块，并且经常的清除内存。将应用程序融入进COM对象组件，也能大大地提高程序的速度。
同样，你也不能使用FSO来管理权限以及文件、文件夹的属性，执行安全加密的一个很好方法就是将前面提到的留言簿文件设置为只读，在需要时再设置为可写，然后再修改回来。这个方法经常在CGI和Perl使用，但是很不幸，还没有令人满意的方法来用FSO实现。
还能用FSO做什么？
在FSO中还有许多很棒的功能，但许多人没有意识到。这些功能常常是在你感到做某些事情很难后才发现的，这时你经常要感叹到：要是我早知道这个方法就好了！
下面列举一下这些不常用但是却非常酷的功能：
很少被了解的FSO功能
GetSpecialFolder Method 返回特定的Windows文件夹的路径: Windows安装目录;Windows系统目录;Windows临时目录 FSO.GetSpecialFolder([0, 1, or 2]) GetTempName Method 返回一个随机产生的文件或者目录名字，用于需要存储临时数据时GetAbsolutePathName Method 返回文件夹的绝对路径(类似于Server.MapPath)。
比如，FSO.GetAbsolutePathName("region") 将返回类似于下面的结果："c:mydocsmyfolder egion"
GetExtensionName Method 返回路径中最后部分的扩展名(比如：FSO.GetExtensionName("c:docs est.txt") 将返回txt) GetBaseName and GetParentFolder Methods 返回路径