当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > VBS教程:方法-GetFolder 方法

VBScript
VBS教程:函数-GetLocale 函数
VBS教程:函数-FormatPercent 函数
VBS教程:函数-FormatNumber 函数
VBS教程:函数-FormatDateTime 函数
VBS教程:函数-FormatCurrency 函数
VBS教程:函数-Filter 函数
VBS教程:函数-Exp 函数
VBS教程:函数-Eval 函数
VBS教程:函数-派生数学函数
VBS教程:函数-Day 函数
VBS教程:函数-DateValue 函数
VBS教程:函数-DateSerial 函数
VBS教程:函数-DatePart 函数
VBS教程:函数-DateDiff 函数
VBS教程:函数-DateAdd 函数
VBS教程:函数-Date 函数
VBS教程:函数-CStr 函数
VBS教程:函数-CSng 函数
VBS教程:函数-CreateObject 函数
VBS教程:函数-Cos 函数

VBScript 中的 VBS教程:方法-GetFolder 方法


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-11   浏览: 125 ::
收藏到网摘: n/a

GetFolder 方法

返回与指定的路径中某文件夹相应的 Folder 对象。

object.GetFolder(folderspec)

参数

object

必选项。应为 FileSystemObject 的名称。

folderspec

必选项。folderspec 是指定文件夹的路径(绝对路径或相对路径)。

说明

如果指定文件夹不存在,则会出现错误。

下面例子举例说明如何使用 GetFolder 方法返回文件夹对象:

Sub AddNewFolder(path, folderName) Dim fso, f, fc, nf Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(path) Set fc = f.SubFolders If folderName <> "" Then Set nf = fc.Add(folderName) Else Set nf = fc.Add("New Folder") End IfEnd Sub