ChDir 语句

改变当前的目录或文件夹。

语法

ChDir path

必要的 path 参数是一个字符串表达式,它指明哪个目录或文件夹将成为新的缺省目录或文件夹。path 可能会包含驱动器。如果没有指定驱动器,则 ChDir 在当前的驱动器上改变缺省目录或文件夹。

说明

ChDir 语句改变缺省目录位置,但不会改变缺省驱动器位置。例如,如果缺省的驱动器是 C,则下面的语句将会改变驱动器 D 上的缺省目录,但是 C 仍然是缺省的驱动器:

ChDir "D:/TMP"   
在 Power Macintosh 中,默认驱动器总是改为在 path 语句中指定的驱动器。完整路径指定由卷标名开始,相对路径由冒号 (:) 开始. ChDir 可以辨认路径中指定的别名:

ChDir "MacDrive:Tmp"    ' 在 Macintosh 中。
注意 当改变相对路径时,在 Microsoft Windows 和 Macintosh 中使用不同符号:ChDir ".."    ' 在 Microsoft Windows 中,上移一层目录.
ChDir "::"    ' 在 Macintosh 中,上移一层目录。CurDir 函数


     

返回一个 Variant (String),用来代表当前的路径。

语法

CurDir[(drive)]

可选的 drive 参数是一个字符串表达式,它指定一个存在的驱动器。如果没有指定驱动器,或 drive 是零长度字符串 (""),则 CurDir 会返回当前驱动器的路径。 在 Macintosh上,CurDir 忽略任何指定的 drive ,并只简单地返回当前驱动器的路径。

 

MkDir 语句    
创建一个新的目录或文件夹。

语法

MkDir path

必要的 path 参数是用来指定所要创建的目录或文件夹的字符串表达式。path 可以包含驱动器。如果没有指定驱动器,则 MkDir 会在当前驱动器上创建新的目录或文件夹。

MkDir "MYDIR"    ' 建立新的目录或文件夹。

================================================
RmDir 语句    

删除一个存在的目录或文件夹。

语法

RmDir path

必要的 path 参数是一个字符串表达式,用来指定要删除的目录或文件夹。path 可以包含驱动器。如果没有指定驱动器,则 RmDir 会在当前驱动器上删除目录或文件夹。

说明

如果想要使用 RmDir 来删除一个含有文件的目录或文件夹,则会发生错误。在试图删除目录或文件夹之前,先使用 Kill 语句来删除所有文件。
======================================================
FileCopy 语句
     

复制一个文件。

语法

FileCopy source, destination

FileCopy 语句的语法含有以下这些命名参数:

部分 描述
source 必要参数。字符串表达式,用来表示要被复制的文件名。source 可以包含目录或文件夹、以及驱动器。
destination 必要参数。字符串表达式,用来指定要复制的目地文件名。destination 可以包含目录或文件夹、以及驱动器。

说明

如果想要对一个已打开的文件使用 FileCopy 语句,则会产生错误。
=/=========================================================================
Kill 语句
     

从磁盘中删除文件。

语法

Kill pathname

必要的 pathname 参数是用来指定一个文件名的字符串表达式。pathname 可以包含目录或文件夹、以及驱动器。

说明

在 Microsoft Windows 中,Kill 支持多字符 (*) 和单字符 (?) 的统配符来指定多重文件。. 然而在 Macintosh 中,这些字符作为合法文件名字符使用,不能作为通配符指定多个文件。

由于 Macintosh 不支持通配符,使用文件类型识别需要删除的组文件。可以使用 MacID 函数指定文件类型而不用对每个单独文件使用重复命令。例如,下列语句删除当前文件夹内的所有TEXT文件。

Kill MacID("TEXT")

如果在 Microsoft Windows 中使用包含 MacID 函数的Kill 语句,会产生错误。

如果使用 Kill 来删除一个已打开的文件,则会产生错误。

注意 若要删除目录,使用 RmDir 语句。

' 假设 TESTFILE是一数据文件。
Kill "TestFile"    ' 删除。

' 将当前目录下所有 *.TXT 文件全部删除。
Kill "*.TXT"   

=/=========================================================================

Name 语句     

重新命名一个文件、目录、或文件夹。

语法

Name oldpathname As newpathname

Name 语句的语法具有以下几个部分:

部分 描述
oldpathname 必要参数。字符串表达式,指定已存在的文件名和位置,可以包含目录或文件夹、以及驱动器。
newpathname 必要参数。字符串表达式,指定新的文件名和位置,可以包含目录或文件夹、以及驱动器。而由 newpathname 所指定的文件名不能存在。

说明

Name 语句重新命名文件并将其移动到一个不同的目录或文件夹中。如有必要,Name 可跨驱动器移动文件。 但当 newpathname 和 oldpathname 都在相同的驱动器中时,只能重新命名已经存在的目录或文件夹。 Name 不能创建新文件、目录或文件夹。

在一个已打开的文件上使用 Name,将会产生错误。必须在改变名称之前,先关闭打开的文件。Name 参数不能包括多字符 (*) 和单字符 (?) 的统配符。

Name 语句示例
本示例使用 Name 语句来更改文件的名称。示例中假设所有使用到的目录或文件夹都已存在。 在 Macintosh 中,默认驱动器名称是 “HD” 并且路径部分由冒号取代反斜线隔开。

Dim OldName, NewName
OldName = "OLDFILE": NewName = "NEWFILE"    ' 定义文件名。
Name OldName As NewName    ' 更改文件名。 OldName = "C:/MYDIR/OLDFILE": NewName = "C:/YOURDIR/NEWFILE"
Name OldName As NewName    ' 更改文件名,并移动文件。=/=========================================================================
name
mkdir 
dir
rmdir
chdir
curdir
filecopy
'=======================================================================================
AddFolders 方法(Folders)向 Folders 集合添加新 Folder。
object. Add(folderName)
参数
object

必选项。应为 Folders 集合的名称。

folderName

必选项。要添加的新 Folder 名称。

说明
下面例子举例说明如何利用 Add 方法添加新文件夹:

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 If
End Sub


如果 folderName 已经存在,则会出现错误。

请参阅
Add 方法(Folders)

应用于:Folders 集合

&apos;==========================
BuildPath 方法

向现有路径后添加名称。
object.BuildPath(path, name)

参数
object

必选项。应为 FileSystemObject 对象的名称。

path

必选项。要附加 name 的现有路径。可以是绝对或相对路径且无需指定现有文件夹。

name

必选项。要附加到现有 path 的名称。

说明
仅在必要时,BuildPath 方法在现有路径与该名称之间插入附加路径分隔符。

下面例子举例说明如何使用 BuildPath 方法:

Function GetBuildPath(path)
  Dim fso, newpath
  Set fso = CreateObject("Scripting.FileSystemObject")
  newpath = fso.BuildPath(path, "Sub Folder")
  GetBuildPath = newpath
End Function
请参阅
GetAbsolutePathName 方法 | GetBaseName 方法 | GetDriveName 方法 | GetExtensionName 方法 | GetFileName 方法 | GetParentFolderName 方法 | GetTempName 方法

应用于:FileSystemObject Object

&apos;=======================================================================================

CreateFolder 方法

创建文件夹。

object.CreateFolder(foldername)

参数
object

必选项。应为 FileSystemObject 对象的名称。

foldername

必选项。字符串表达式,指明要创建的文件夹。

说明
如果指定的文件夹已经存在,则会出现错误。

下面例子举例说明如何使用 CreateFolder 方法:

Function CreateFolderDemo 
  Dim fso, f
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.CreateFolder("c:/New Folder")
  CreateFolderDemo = f.Path
End Function


请参阅
CopyFolder 方法 | DeleteFolder 方法 | MoveFolder 方法

应用于:FileSystemObject 对象