扩大一倍，VFPBS使用ASP的资源和组件的秘招
扩大一倍，VFPBS使用ASP的资源和组件的秘招
我们先从ASP的FileSystemObject对象来讲，其实FileSystemObject对象是个com，也就是几乎所有的语言都是可以调用的。
ASP FileSystemObject 对象
FileSystemObject 对象用于访问服务器上的文件系统。此对象可对文件、文件夹以及目录路径进行操作。也可通过此对象获取文件系统的信息。
新建一个a.asp，下面的代码会创建一个文本文件 (c:\test.txt)，然后向这个文件写一些文本：
<%
dim fs,fname
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fname=fs.CreateTextFile("c:\test.txt",true)
fname.WriteLine("Hello World!")
fname.Close
set fname=nothing
set fs=nothing
%>那么在VFPBS中怎么使用呢？非常简单！
新建模板HTML，输入如下代码
<%
fs=CreateObject("Scripting.FileSystemObject")
fname=fs.CreateTextFile("c:\test.txt",.T.)
fname.WriteLine("Hello World!")
fname.Close()
%>也可以写在后端的controller类中
Define Class ctl_asp As Session
Procedure test
fs=Createobject("Scripting.FileSystemObject")
fname=fs.CreateTextFile("c:\test.txt",.T.)
fname.WriteLine("Hello World!")
fname.Close()
Endproc
Enddefine是不是非常简单，像图片加水印，广告组件什么的，都可以使用ASP的相应组件。
FileSystemObject 对象的属性和方法描述如下：
属性 | 描述 |
|---|---|
Drives | 返回本地计算机上所有驱动器对象的集合。 |
方法
方法 | 描述 |
|---|---|
BuildPath | 将一个名称追加到已有的路径后 |
CopyFile | 从一个位置向另一个位置拷贝一个或多个文件。 |
CopyFolder | 从一个位置向另一个位置拷贝一个或多个文件夹。 |
CreateFolder | 创建新文件夹。 |
CreateTextFile | 创建文本文件，并返回一个 TextStream 对象。 |
DeleteFile | 删除一个或者多个指定的文件。 |
DeleteFolder | 删除一个或者多个指定的文件夹。 |
DriveExists | 检查指定的驱动器是否存在。 |
FileExists | 检查指定的文件是否存在。 |
FolderExists | 检查某个文件夹是否存在。 |
GetAbsolutePathName | 针对指定的路径返回从驱动器根部起始的完整路径。 |
GetBaseName | 返回指定文件或者文件夹的基名称。 |
GetDrive | 返回指定路径中所对应的驱动器的 Drive 对象。 |
GetDriveName | 返回指定的路径的驱动器名称。 |
GetExtensionName | 返回在指定的路径中最后一个成分的文件扩展名。 |
GetFile | 返回一个针对指定路径的 File 对象。 |
GetFileName | 返回在指定的路径中最后一个成分的文件名。 |
GetFolder | 返回一个针对指定路径的 Folder 对象。 |
GetParentFolderName | 返回在指定的路径中最后一个成分的父文件名称。 |
GetSpecialFolder | 返回某些 Windows 的特殊文件夹的路径。 |
GetTempName | 返回一个随机生成的文件或文件夹。 |
MoveFile | 从一个位置向另一个位置移动一个或多个文件。 |
MoveFolder | 从一个位置向另一个位置移动一个或多个文件夹。 |
OpenTextFile | 打开文件，并返回一个用于访问此文件的 TextStream 对象。 |
FileSystemObject 组件的更多用法可以百度哦。
我会找些好用的ASP组件，让大家的BS之旅更加舒适。
写在最后面的话
加菲猫的VFP公众号接受投稿，一经采用，即有稿费，稿费暂定50元一篇。
加菲猫的vfp倡导用VFP极简混合开发，少写代码、快速出活，用VFP，但不局限于VFP，各种语言混合开发。
已经带领一百多名会员成功掌到VFP的黑科技，进入了移动互联网时代，接下来我们要进入物联网领域。