📄 part8_6.cfm
字号:
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb_2312-80">
<META NAME="Generator" CONTENT="Microsoft Word 97">
<TITLE>FileSystemObject对象</TITLE>
</HEAD>
<BODY>
<B><FONT FACE="楷体_GB2312" LANG="ZH-CN" SIZE=5><P ALIGN="JUSTIFY">FileSystemObject对象</P>
</B></FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3><P ALIGN="JUSTIFY">此对象提供对文件系统的访问功能，它有一名为</FONT><FONT SIZE=3>Drives</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>的属性，是包含</FONT><FONT SIZE=3>Drive</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>对象的集，每个</FONT><FONT SIZE=3>Drive</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>对象包含文件系统中驱动器的信息。下表列出了此对象常用的方法。</P>
<P ALIGN="JUSTIFY"></P></FONT>
<P ALIGN="RIGHT"><TABLE BORDER CELLSPACING=1 CELLPADDING=7 WIDTH=567>
<TR><TD WIDTH="37%" VALIGN="TOP" BGCOLOR="#ffffff">
<B><FONT FACE="宋体" LANG="ZH-CN" SIZE=3><P ALIGN="JUSTIFY">方法</B></FONT></TD>
<TD WIDTH="63%" VALIGN="TOP" BGCOLOR="#ffffff">
<B><FONT FACE="宋体" LANG="ZH-CN" SIZE=3><P ALIGN="JUSTIFY">描述</B></FONT></TD>
</TR>
<TR><TD WIDTH="37%" VALIGN="TOP">
<FONT SIZE=3><P ALIGN="JUSTIFY">CopyFile(file1, file2, overwrite)</FONT></TD>
<TD WIDTH="63%" VALIGN="TOP">
<FONT FACE="宋体" LANG="ZH-CN" SIZE=3><P ALIGN="JUSTIFY">将</FONT><FONT SIZE=3>file1</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>拷贝到</FONT><FONT SIZE=3>file2</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>，</FONT><FONT SIZE=3>file1</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>中可以使用通配符。</FONT><FONT SIZE=3>Overwrite</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>参数可选，它说明是否覆盖已存在的</FONT><FONT SIZE=3>file2</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>，若设为</FONT><FONT SIZE=3>false</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>，不覆盖；否则覆盖</FONT></TD>
</TR>
<TR><TD WIDTH="37%" VALIGN="TOP">
<FONT SIZE=3><P ALIGN="JUSTIFY">CopyFolder(folder1, folder2, </P>
<P ALIGN="JUSTIFY">overwrite)</FONT></TD>
<TD WIDTH="63%" VALIGN="TOP">
<FONT FACE="宋体" LANG="ZH-CN" SIZE=3><P ALIGN="JUSTIFY">将</FONT><FONT SIZE=3>folder1</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>拷贝到</FONT><FONT SIZE=3>folder2</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>，</FONT><FONT SIZE=3>overwrite</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>参数的作用同上</FONT></TD>
</TR>
<TR><TD WIDTH="37%" VALIGN="TOP">
<FONT SIZE=3><P ALIGN="JUSTIFY">CreateFolder(foldername)</FONT></TD>
<TD WIDTH="63%" VALIGN="TOP">
<FONT FACE="宋体" LANG="ZH-CN" SIZE=3><P ALIGN="JUSTIFY">新建一个名为</FONT><FONT SIZE=3>foldername</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>的目录，若此目录已存在，就会产生一个运行错误</FONT></TD>
</TR>
<TR><TD WIDTH="37%" VALIGN="TOP">
<FONT SIZE=3><P ALIGN="JUSTIFY">CreateTextFile(filename, overwrite)</FONT></TD>
<TD WIDTH="63%" VALIGN="TOP">
<FONT FACE="宋体" LANG="ZH-CN" SIZE=3><P ALIGN="JUSTIFY">新建一个名为</FONT><FONT SIZE=3>filename</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>的文本文件，并返回此文件的</FONT><FONT SIZE=3>TextStream</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>对象。</FONT><FONT SIZE=3>Overwrite</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>参数同上</FONT></TD>
</TR>
<TR><TD WIDTH="37%" VALIGN="TOP">
<FONT SIZE=3><P ALIGN="JUSTIFY">DeleteFile(filename, flag)</FONT></TD>
<TD WIDTH="63%" VALIGN="TOP">
<FONT FACE="宋体" LANG="ZH-CN" SIZE=3><P ALIGN="JUSTIFY">删除文件</FONT><FONT SIZE=3>filename</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>，可以使用通配符。</FONT><FONT SIZE=3>Flag</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>参数可选，它说明是否删除只读文件，若设为</FONT><FONT SIZE=3>true</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>就删除，否则不删除。若找不到</FONT><FONT SIZE=3>filename</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>，会产生一个运行错误</FONT></TD>
</TR>
<TR><TD WIDTH="37%" VALIGN="TOP">
<FONT SIZE=3><P ALIGN="JUSTIFY">DeleteFolder(foldername, flag)</FONT></TD>
<TD WIDTH="63%" VALIGN="TOP">
<FONT FACE="宋体" LANG="ZH-CN" SIZE=3><P ALIGN="JUSTIFY">删除目录</FONT><FONT SIZE=3>foldername</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>，其余同上</FONT></TD>
</TR>
<TR><TD WIDTH="37%" VALIGN="TOP">
<FONT SIZE=3><P ALIGN="JUSTIFY">DriveExists(drivename)</FONT></TD>
<TD WIDTH="63%" VALIGN="TOP">
<FONT FACE="宋体" LANG="ZH-CN" SIZE=3><P ALIGN="JUSTIFY">若</FONT><FONT SIZE=3>drivename</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>存在返回</FONT><FONT SIZE=3>true</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>，否则返回</FONT><FONT SIZE=3>false</FONT></TD>
</TR>
<TR><TD WIDTH="37%" VALIGN="TOP">
<FONT SIZE=3><P ALIGN="JUSTIFY">FileExists(filename)</FONT></TD>
<TD WIDTH="63%" VALIGN="TOP">
<FONT FACE="宋体" LANG="ZH-CN" SIZE=3><P ALIGN="JUSTIFY">若</FONT><FONT SIZE=3>filename</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>存在返回</FONT><FONT SIZE=3>true</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>，否则返回</FONT><FONT SIZE=3>false</FONT></TD>
</TR>
<TR><TD WIDTH="37%" VALIGN="TOP">
<FONT SIZE=3><P ALIGN="JUSTIFY">FolderExists(foldername)</FONT></TD>
<TD WIDTH="63%" VALIGN="TOP">
<FONT FACE="宋体" LANG="ZH-CN" SIZE=3><P ALIGN="JUSTIFY">若</FONT><FONT SIZE=3>foldername</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>存在返回</FONT><FONT SIZE=3>true</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>，否则返回</FONT><FONT SIZE=3>false</FONT></TD>
</TR>
<TR><TD WIDTH="37%" VALIGN="TOP">
<FONT SIZE=3><P ALIGN="JUSTIFY">GetAbsolutePathName (</P>
<P ALIGN="JUSTIFY">relativepathname)</FONT></TD>
<TD WIDTH="63%" VALIGN="TOP">
<FONT FACE="宋体" LANG="ZH-CN" SIZE=3><P ALIGN="JUSTIFY">返回与</FONT><FONT SIZE=3>relativepathname</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>对应的全路径名</FONT></TD>
</TR>
<TR><TD WIDTH="37%" VALIGN="TOP">
<FONT SIZE=3><P ALIGN="JUSTIFY">GetBaseName(path)</FONT></TD>
<TD WIDTH="63%" VALIGN="TOP">
<FONT FACE="宋体" LANG="ZH-CN" SIZE=3><P ALIGN="JUSTIFY">返回</FONT><FONT SIZE=3>path</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>的</FONT><FONT SIZE=3>base</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>名</FONT></TD>
</TR>
<TR><TD WIDTH="37%" VALIGN="TOP">
<FONT SIZE=3><P ALIGN="JUSTIFY">GetDrive(drivename)</FONT></TD>
<TD WIDTH="63%" VALIGN="TOP">
<FONT FACE="宋体" LANG="ZH-CN" SIZE=3><P ALIGN="JUSTIFY">返回</FONT><FONT SIZE=3>drivename</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>指定的驱动器的</FONT><FONT SIZE=3>Drive</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>对象</FONT></TD>
</TR>
<TR><TD WIDTH="37%" VALIGN="TOP">
<FONT SIZE=3><P ALIGN="JUSTIFY">GetDriveName(path)</FONT></TD>
<TD WIDTH="63%" VALIGN="TOP">
<FONT FACE="宋体" LANG="ZH-CN" SIZE=3><P ALIGN="JUSTIFY">返回</FONT><FONT SIZE=3>path</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>的驱动器名</FONT></TD>
</TR>
<TR><TD WIDTH="37%" VALIGN="TOP">
<FONT SIZE=3><P ALIGN="JUSTIFY">GetExtensionName(path)</FONT></TD>
<TD WIDTH="63%" VALIGN="TOP">
<FONT FACE="宋体" LANG="ZH-CN" SIZE=3><P ALIGN="JUSTIFY">返回</FONT><FONT SIZE=3>path</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>的扩展名</FONT></TD>
</TR>
<TR><TD WIDTH="37%" VALIGN="TOP">
<FONT SIZE=3><P ALIGN="JUSTIFY">GetFile(filepath)</FONT></TD>
<TD WIDTH="63%" VALIGN="TOP">
<FONT FACE="宋体" LANG="ZH-CN" SIZE=3><P ALIGN="JUSTIFY">返回</FONT><FONT SIZE=3>filepath</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>指定的文件的</FONT><FONT SIZE=3>File</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>对象</FONT></TD>
</TR>
<TR><TD WIDTH="37%" VALIGN="TOP">
<FONT SIZE=3><P ALIGN="JUSTIFY">GetFileName(filepath)</FONT></TD>
<TD WIDTH="63%" VALIGN="TOP">
<FONT FACE="宋体" LANG="ZH-CN" SIZE=3><P ALIGN="JUSTIFY">返回</FONT><FONT SIZE=3>filepath</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>指定的文件的名字</FONT></TD>
</TR>
<TR><TD WIDTH="37%" VALIGN="TOP">
<FONT SIZE=3><P ALIGN="JUSTIFY">GetFolder(folderpath)</FONT></TD>
<TD WIDTH="63%" VALIGN="TOP">
<FONT FACE="宋体" LANG="ZH-CN" SIZE=3><P ALIGN="JUSTIFY">返回</FONT><FONT SIZE=3>folderpath</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>指定的目录的</FONT><FONT SIZE=3>Folder</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>对象</FONT></TD>
</TR>
<TR><TD WIDTH="37%" VALIGN="TOP">
<FONT SIZE=3><P ALIGN="JUSTIFY">GetParentFolderName(folderpath)</FONT></TD>
<TD WIDTH="63%" VALIGN="TOP">
<FONT FACE="宋体" LANG="ZH-CN" SIZE=3><P ALIGN="JUSTIFY">返回</FONT><FONT SIZE=3>folderpath</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>指定的目录的父目录的名字</FONT></TD>
</TR>
<TR><TD WIDTH="37%" VALIGN="TOP">
<FONT SIZE=3><P ALIGN="JUSTIFY">GetSpecialFolder(id)</FONT></TD>
<TD WIDTH="63%" VALIGN="TOP">
<FONT FACE="宋体" LANG="ZH-CN" SIZE=3><P ALIGN="JUSTIFY">为指定的目录返回一个</FONT><FONT SIZE=3>Folder</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>对象，参数</FONT><FONT SIZE=3>id</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>指明了使用哪一个目录。</FONT><FONT SIZE=3>0</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>为</FONT><FONT SIZE=3>windows</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>目录，其中包含了操作系统文件；</FONT><FONT SIZE=3>1</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>为</FONT><FONT SIZE=3>system</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>目录，其中包含了库、字体和驱动程序；</FONT><FONT SIZE=3>2</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>为存储临时文件的目录，它由</FONT><FONT SIZE=3>TMP</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>环境变量指定</FONT></TD>
</TR>
<TR><TD WIDTH="37%" VALIGN="TOP">
<FONT SIZE=3><P ALIGN="JUSTIFY">GetTempName()</FONT></TD>
<TD WIDTH="63%" VALIGN="TOP">
<FONT FACE="宋体" LANG="ZH-CN" SIZE=3><P ALIGN="JUSTIFY">返回临时文件的名字</FONT></TD>
</TR>
<TR><TD WIDTH="37%" VALIGN="TOP">
<FONT SIZE=3><P ALIGN="JUSTIFY">MoveFile(file1, file2)</FONT></TD>
<TD WIDTH="63%" VALIGN="TOP">
<FONT FACE="宋体" LANG="ZH-CN" SIZE=3><P ALIGN="JUSTIFY">将</FONT><FONT SIZE=3>file1</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>移动到</FONT><FONT SIZE=3>file2</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>，可以在</FONT><FONT SIZE=3>file1</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>中使用通配符。注意：若</FONT><FONT SIZE=3>file1</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>只指定了一个文件而</FONT><FONT SIZE=3>file2</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>指向一个已存在的文件或路径，则会产生一个运行错误</FONT></TD>
</TR>
<TR><TD WIDTH="37%" VALIGN="TOP">
<FONT SIZE=3><P ALIGN="JUSTIFY">MoveFolder(folder1, folder2)</FONT></TD>
<TD WIDTH="63%" VALIGN="TOP">
<FONT FACE="宋体" LANG="ZH-CN" SIZE=3><P ALIGN="JUSTIFY">将</FONT><FONT SIZE=3>folder1</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>移动到</FONT><FONT SIZE=3>folder2</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>，其余同上</FONT></TD>
</TR>
<TR><TD WIDTH="37%" VALIGN="TOP">
<FONT SIZE=3><P ALIGN="JUSTIFY">OpenTextFile(filename, mode, create, format)</FONT></TD>
<TD WIDTH="63%" VALIGN="TOP">
<FONT FACE="宋体" LANG="ZH-CN" SIZE=3><P ALIGN="JUSTIFY">打开名为</FONT><FONT SIZE=3>filename</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>的文件，并返回</FONT><FONT SIZE=3>TextStream</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>对象，其余三个参数可选，若</FONT><FONT SIZE=3>mode=1</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>，则文件以只读方式打开；若</FONT><FONT SIZE=3>mode=8</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>，文件以添加方式打开；若</FONT><FONT SIZE=3>create=true</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>，则文件在不存在时也会打开。</FONT><FONT SIZE=3>Format</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>参数指定文件的格式，值</FONT><FONT SIZE=3>-2</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>、</FONT><FONT SIZE=3>-1</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>和</FONT><FONT SIZE=3>0</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>分别对应系统缺省格式、</FONT><FONT SIZE=3>Unicode</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>和</FONT><FONT SIZE=3>ASCII</FONT></TD>
</TR>
</TABLE>
</P>
<FONT FACE="宋体" LANG="ZH-CN" SIZE=3><P ALIGN="JUSTIFY"></P>
<P ALIGN="JUSTIFY">下面的例子说明如何使用这一对象，其中第五行调用</FONT><FONT SIZE=3>GetTempName</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>函数取得临时文件名，下面的语句则输出临时文件的信息到网页中。</P>
<P ALIGN="JUSTIFY"></P>
</FONT><FONT SIZE=3><P ALIGN="JUSTIFY"><%</P>
<P ALIGN="JUSTIFY">Option Explicit</P>
<P ALIGN="JUSTIFY">Dim fs, tmp</P>
<P ALIGN="JUSTIFY">Set fs = CreateObject("Scripting.FileSystemObject")</P>
<P ALIGN="JUSTIFY">tmp = fs.GetTempName</P>
<P ALIGN="JUSTIFY">Response.Write(tmp & "<br>")</P>
<P ALIGN="JUSTIFY">Response.Write(fs.GetAbsolutePathName(tmp) & "<br>")</P>
<P ALIGN="JUSTIFY">Response.Write(fs.GetBaseName(tmp) & "<br>")</P>
<P ALIGN="JUSTIFY">Response.Write(fs.GetExtensionName(tmp))</P>
<P ALIGN="JUSTIFY">%></P>
</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3><P ALIGN="JUSTIFY"></P></FONT><p>
<p>
<font color="red">此手册未经本公司允许,不得擅自转载、转贴、篡改。违者将追究其法律责任。</font>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -