EXCELVBA帮助手册.doc

Excel2023VBA
帮助文档
目录
一些对象的应用方法 4
Add 方法 5
Add方法(Dictionary) 6
Add 方法(Folders) 6
Assert 方法 7
BuildPath 方法 8
Clear 方法 8
Close 方法 9
Copy 方法 10
CopyFile 方法 10
CopyFolder 方法 11
CreateFolder 方法 12
CreateTextFile 方法 13
Delete 方法 14
DeleteFile 方法 14
DeleteFolder 方法 15
DriveExists 方法 15
Exists 方法 16
FileExists 方法 16
FolderExists 方法 17
GetAbsolutePathName 方法 17
GetBaseName 方法 18
GetExtensionName 方法 18
GetFile 方法 19
GetFileName 方法 19
GetFolder 方法 20
GetParentFolderName 方法 20
GetSpecialFolder 方法 21
GetTempName 方法 22
Hide 方法 22
Item 方法 23
Items 方法 24
Keys方法 24
Move 方法 25
Move 方法（UseForm） 25
1、应用于 25
2、请参阅 25
MoveFile 方法 25
MoveFolder 方法 26
OpenAsTextStream 方法 27
OpenTextFile 方法 28
Print 方法 30
PrintForm 方法 31
Raise 方法 31
Read 方法 33
ReadAll 方法 33
ReadLine 方法 34
Remove 方法 34
Remove 方法（FileSystemObject 对象） 35
RemoveAll 方法 35
Show 方法 36
Skip 方法 37
SkipLine 方法 37
WhatsThisMode 方法 38
Write 方法 38
WriteBlankLines 方法 39
WriteLine 方法 39
一些对象的应用方法
1、Collection 对象
⑴ADD 方法、⑵Item 方法、⑶Remove 方法
2、Debug 对象
⑴Assert 方法、⑵Print 方法
3、Dictionary对象
⑴Add方法(Dictionary)、⑵Exists 方法、⑶Items 方法、⑷Keys方法、⑸Remove 方法、⑹Remove 方法（FileSystemObject 对象）、⑺RemoveAll 方法、

4、Err 对象
⑴Clear 方法、⑵Raise 方法
5、File 对象、Folder 对象
⑴Copy 方法、⑵Delete 方法、⑶CreateTextFile 方法（Folder 对象）、⑷Move 方法、⑸OpenAsTextStream 方法（File 对象）
6、Folders集合
⑴Add 方法(Folders)
7、FileSystemObject 对象
⑴BuildPath 方法、⑵CopyFile 方法、⑶CopyFolder 方法、⑷CreateFolder 方法、⑸CreateTextFile 方法、⑹DeleteFile 方法、⑺DeleteFolder 方法、⑻DriveExists 方法、⑼FileExists 方法、⑽GetAbsolutePathName 方法、⑾GetBaseName 方法、⑿GetExtensionName 方法、⒀GetFile 方法、⒁GetFileName 方法、⒂GetFolder 方法、⒃GetParentFolderName 方法、⒄GetSpecialFolder 方法、⒅GetTempName 方法、⒆MoveFile 方法、⒇MoveFolder 方法、(21)OpenTextFile 方法
8、UserForm 对象，UserForms 集合对象
⑴Hide 方法、⑵PrintForm 方法、⑶Show 方法、⑷WhatsThisMode 方法
9、TextStream 对象
⑴Close 方法、⑵Read 方法、⑶ReadAll 方法、⑷ReadLine 方法、⑸Skip 方法、⑹SkipLine 方法、⑺Write 方法、⑻WriteBlankLines 方法、⑼WriteLine 方法
Add 方法
添加一个成员到 Collection 对象。
语法
object.Add item, key, before, after
Add 方法的语法具有下列对象限定符和命名参数：
部分
描述
object
必需的。对象表达式，其值为“应用于”列表中的对象
item
必需的。任意类型的表达式，指定要添加到集合中的成员。
key
可选的。唯一字符串表达式，指定可以使用的键字符串，代替位置索引来访问集合中的成员。
before
可选的。表达式，指定集合中的相对位置。在集合中将添加的成员放置在 before 参数辨认的成员之前。假如为一数值表达式，则 before 必须是介于 1 和集合 Count 属性值之间的值。假如为一字符串表达式，则当添加一个被引用的成员到集合时，before 必须相应于指定的 key 值。可以指定 before 位置或 after 位置，但不能同时指定这两个位置。
after
可选。表达式，指定集合中的相对位置。在集合中将添加的成员放置在 After 参数辨认的成员之后。假如为一数值表达式，则 after 必须是介于 1 和集合 Count 属性值之间的值；假如为一字符串表达式，则当添加一个被引用的成员到集合时，after 必须相应于指定的 key 值。可以指定 before 位置或 after 位置，但不能同时指定这两个位置。
说明
before 或 after 参数是字符串表达式或数值表达式，均须引用集合中现有成员，否则将导致错误发生。
假如指定的 key 和集合中现有成员的 key 发生反复，则也会导致错误发生。
1、应用于Collection 对象
2、请参阅Item方法、Remove方法
Add 方法示例
本示例使用 Add 方法将 Inst 对象（类 Class1 之示例，其中包含 Public 变量 InstanceName ）加到 MyClasses 集合对象中。若要观测程序的运作，插入一个类模块，并在 Class1 的模块级中声明公用变量 InstanceName（键入 Public InstanceName）来保存每个示例的名称。类名就用缺省的 Class1。将下列代码复制与粘贴到某个窗体模块的 Form_Load 事件过程中。
Dim MyClasses As New Collection ' 建立集合对象。
Dim Num As Integer ' 定义计数变量。
Dim Msg
Dim TheName ' 用来保存用户指定的名称的变量。
Do
Dim Inst As New Class1 ' 建立 Class1 的新示例。
Num = Num + 1 ' 将计数变量加一，并让用户输入名称。
Msg = "Please enter a name for this object." & Chr(13) _
& "Press Cancel to see names in collection."
TheName = InputBox(Msg, "Name the Collection Items")
Inst.InstanceName = TheName ' 将输入的名称存到对象的示例中。
' 假如名称不是空字符串，则将该示例加到集合对象中。
If Inst.InstanceName <> "" Then
' 将该示例加到集合对象中。
MyClasses.Add item := Inst, key := CStr(Num)
End If
' 清除对当前示例的引用，以准备下一个。
Set Inst = Nothing
Loop Until TheName = ""
For Each x In MyClasses
MsgBox x.instancename, , "Instance Name"
Next
Add方法(Dictionary)
描述
添加一对相相应的关键字和条目到 Dictionary 对象。
语法
object.Add key, item
Add方法的语法有如下几部分：
部分
描述
Object
必需的。一个 Dictionary 对象的名字。
Key
必需的。与所添加的条目相关联的关键字。
Item
必需的。与所添加的关键字相关联的条目。
说明
假如该关键字已经存在则产生一个错误。
1、应用于Dictionary 对象
2、请参阅ADD方法（Folder）、Exist方法、Items方法、Keys方法、Remove方法、RemoveAll方法
Add 方法(Folders)
描述
添加一个新的 Folder 到 Folders 集合。
语法
object.Add folderName
Add方法的语法有如下几部分：
部分
描述
Object
必需的。一个Folders集合的名称。
FolderName
必需的。新添加的Folder的名称。
说明
假如 folderName 已经存在，则产生一个错误。
1、应用于Folders 集合
2、请参阅Add方法(Dictionary)
Assert 方法
有条件地在该方法出现的行上挂起执行。
语法
object.Assert booleanexpression
Assert 方法的语法有如下的对象限定符和参数：
部分
描述
object
必需的。总是 Debug 对象。
booleanexpression
必需的。一个值为 True 或者 False 的表达式。
说明
Assert 调用只在开发环境中工作。当模块被编译成为一个可执行的文献时，调用 Debug 对象的方法就会被忽略。
所有 booleanexpression 经常被计算。例如，即使一个 And 表达式的第一部分被计算为 False，整个表达式还要被计算。
1、应用于Debug 对象
2、请参阅Print 方法
Assert 方法示例
下面的示例说明如何使用 Assert 方法。示例需要一个带有两个按纽控件的窗体。缺省的按纽名称是 Command1 和 Command2 。
当示例运营时，单击 Command1 按纽使得按纽上的文本在 0 和 1 之间进行切换。单击 Command2 按纽也许不做任何事，也也许引起一个确认，应当执行哪一个操作取决于 Command1 按纽上所显示的值。该确认将在最后一个语句执行之后使整个执行停止，并且 Debug.Assert 行被突出显式。
Option Explicit
Private blnAssert As Boolean
Private intNumber As Integer

Private Sub Command1_Click()
blnAssert = Not blnAssert
intNumber = IIf(intNumber <> 0, 0, 1)
Command1.Caption = intNumber
End Sub

Private Sub Command2_Click()
Debug.Assert blnAssert
End Sub

Private Sub Form_Load()
Command1.Caption = intNumber
Command2.Caption = "Assert Tester"
End Sub
BuildPath 方法
描述
追加一个名字到一个已经存在的途径。
语法
object.BuildPath(path, name)
BuildPath 方法语法有如下几部分：
部分
描述
object
必需的。始终是 FileSystemObject 的名字。
path
必需的。要对其追加名字的已存在途径。途径可以是绝对的也可以是相对的不必指定一个已存在的文献夹。
name
必需的。要追加到已存在途径上的名字。
说明
只有在需要时，BuildPath 方法才在已存在途径和名字之间插入一个附加的途径分隔符。
1、应用于FileSystemObject 对象。
Clear 方法
清除 Err 对象的所有属性设立。
语法
object.Clear
objec 总是 Err 对象。
说明
在解决错误之后使用 Clear 来清除 Err 对象，例如，在对 On Error Resume Next 使用迟延错误解决时就可使用 Clear。每当执行下列语句时就会自动调用 Clear 方法：
· 任意类型的 Resume 语句。
· Exit Sub, Exit Function, Exit Property
· 任何 On Error 语句。
注意 当解决因访问其他对象产生的错误时，与其使用 On Error GoTo，不如使用 On Error Resume Next。每一次与对象打交道之后都检查 Err，则可消除代码访问对象时的含混之处。可以确认是哪个对象将错误引入 Err.Number 中，也可以确认最初是哪个对象产生了这个错误（Err.Source 中指定的对象）。
1、应用于Err 对象
2、请参阅Description 属性、Err 对象、HelpContext 属性、HelpFile 属性、LastDLLError 属性、Number 属性、On Error 语句、Raise 方法、Source 属性。
Clear 方法示例
本示例使用 Err 对象的 Clear 方法将 Err 对象之数值属性重新设立为零，并将其字符串属性设立为零长度字符串。假如在代码中省略 Clear 方法，则每完毕一次循环便会显示一次错误信息（发生错误之后），不管程序中的计算结果是否真的有错误。
Dim Result(10) As Integer ' 声明数组变量
'其元素容易溢出
Dim indx
On Error Resume Next ' 将错误解决的方式改为“继续下一行”。
Do Until indx = 10
' 下面计算若有错误发生，便显示错误信息。
Result(indx) = Rnd * indx * 20230
If Err.Number <> 0 Then
MsgBox Err, , "Error Generated: ", Err.HelpFile, Err.HelpContext
Err.Clear ' 清除 Err 对象的属性。
Else
indx = indx + 1
End If
Loop
Close 方法
描述
关闭一个打开的 TextStream 文献。
语法
object.Close
object始终是一个 TextStream 对象的名字。
1、应用于TextStream 对象
2、请参阅Read方法、ReadAll方法、ReadLine方法、Skip方法、SkipLine方法、Write方法、WriteBlankLines方法、WriteLine方法。
Copy 方法
描述
把一个指定的文献或文献夹从一个地方复制到另一个地方。
语法
object.Copy destination[, overwrite]
Copy 方法语法有如下几部分：
部分
描述
object
必需的。始终是一个 File 或 Folder 对象的名字。
destination
必需的。文献或文献夹要复制到的接受端。不允许有通配符。
overwrite
可选的。Boolean 值，假如该值为 True （缺省），则已存在的文献或文献夹将被覆盖。假如为 False，则它们不被覆盖。
说明
对一个 File 或 Folder，Copy 方法的结果和执行 FileSystemObject.CopyFile 或FileSystemObject.CopyFolder 操作的结果是同样的，在后者中， object所引用的文献或文献夹是作为参数传递的。应当注意，后面的方法可以复制多个文献或文献夹。
1、应用于File 对象、Folder 对象
2、请参阅CopyFile 方法、CopyFolder 方法、Delete 方法、Move 方法、OpenAsTextStream 方法
CopyFile 方法
描述
把一个或多个文献从一个地方复制到另一个地方。
语法
object.CopyFile source, destination[, overwrite]
CopyFile 方法语法有如下几部分：
部分
描述
object
必需的。object始终是一个 FileSystemObject 的名字。
source
必需的。指明一个或多个要被复制文献的字符串文献说明，它可以涉及通配符。
destination
必需的。指明 source 中的一个或多个文献要被复制到的接受端的字符串，不允许有通配符。
overwrite
选项的。Boolean 值，它表达存在的文献是否被覆盖。假如是 True，文献将被覆盖；假如是 False，它们不被覆盖。缺省值是 True。注意假如 destination 具有只读属性设立，不管 overwrite 值如何，CopyFile 都将失败。
说明
通配符只能用在 source 参数的最后一个途径部件。例如，你可以在下面请况使用通配符：
FileSystemObject.CopyFile "c:\mydocuments\letters\*.doc", "c:\tempfolder\"
但下面情况不能使用：
FileSystemObject.CopyFile "c:\mydocuments\*\R1???97.xls", "c:\tempfolder"
假如 source 包含通配符或 destination 以途径分隔符（\）为结尾，则认为 destination 是一个已存在文献夹，在其中复制相匹配的文献。否则认为 destination 是一个要创建文献的名字。不管是那种情况，当复制一个文献时，也许发生三种事件。
· 假如 destination 不存在，source 得到复制。这是通常的情况。
· 假如 destination 是一个已存在的文献，则当 overwrite 值为 False 时发生一个错误，否则，source的复制文献将试图覆盖已存在文献。
· 假如 destination 是一个目录，发生一个错误。
假如使用通配符的 source 不能和任何文献匹配，同样产生一个错误。CopyFile 方法停止在它碰到的第一个错误上。不要试图回卷或撤消错误发生前所做的任何改变。
1、应用于FileSystemObject 对象
2、请参阅Copy 方法、CopyFolder 方法、CreateFolder 方法、DeleteFolder 方法、MoveFolder 方法
CopyFolder 方法
描述
从一个地方递归地复制一个文献夹到另一个地方。
语法
object.CopyFolder source, destination[, overwrite]
CopyFolder 方法语法有如下几部分：
部分
描述
Object
必需的。始终为一个 FileSystemObject 的名字。
source
必需的。指明一个或多个被复制文献夹的字符串文献夹说明，可以涉及通配符。
destination
必需的。指明 source 中被复制文献夹和子文献夹的接受端的字符串不允许有通配符。
overwrite
选项的。Boolean 值，它表达已存在的文献夹是否被覆盖。假如为 True，文献被覆盖。假如为 False，文献不被覆盖。缺省值为 True。
说明
通配符仅可用于 source 参数的最后一个途径部件。例如你可以在下面情况使用它：
FileSystemObject.CopyFolder "c:\mydocuments\letters\*", "c:\tempfolder\"
但不能在下面情况使用它：
FileSystemObject.CopyFolder "c:\mydocuments\*\*", "c:\tempfolder\"
假如 source 包含通配符或 destination 以途径分隔符（\）为结尾，则认为 destination 是一个已存在的文献夹，在其中复制相匹配的文献夹和子文献夹。否则认为 destination 是一个要创建的文献夹的名字。不管何种情况，当复制一个文献夹时，也许发生四种事件。
· 假如 destination 不存在，source 文献夹和它所有的内容得到复制。这是通常的情况。
· 假如 destination 是一个已存在的文献，则发生一个错误。
· 假如 destination 是一个目录，它将尝试复制文献夹和它所有的内容。假如一个包含在 source 的文献已在 destination 中存在，当 overwrite 为 False 时发生一个错误，否则它将尝试覆盖这个文献。
· 假如 destination 是一个只读目录，当尝试去复制一个已存在的只读文献到此目录并且 overwrite为 False 时，则发生一个错误。
假如 source 使用的通配符不能和任何文献夹匹配，也发生一个错误。
CopyFolder 方法停止在它碰到的第一个错误上。不要尝试回卷错误发生前所做的任何改变。
1、应用于FileSystemObject 对象
2、请参阅Copy 方法、CopyFile 方法、CreateFolder 方法、DeleteFolder 方法、MoveFolder 方法
CreateFolder 方法
描述
创建一个文献夹。
语法
object.CreateFolder(foldername)
CreateFolder 方法有如下几部分：
部分
描述
object
必需的。始终是一个 FileSystemObject 的名字。
foldername
必需的。字符串表达式，它标记创建的文献夹。
说明
假如指定的文献夹已经存在，则发生一个错误。
1、应用于FileSystemObject 对象
2、请参阅CopyFolder 方法、CreateTextFile 方法、DeleteFolder 方法、MoveFolder 方法。
CreateTextFile 方法
描述
创建一个指定的文献名并且返回一个用于该文献读写的 TextStream 对象。
语法
object.CreateTextFile(filename[, overwrite[, unicode]])
CreateTextFile 方法有如下几部分：
部分
描述
object
必需的。始终是一个 FileSystemObject 或 Folder 对象的名字。
filename
必需的。字符串表达式，它标记创建的文献。
overwrite
可选的。Boolean 值，表达一个已存在文献是否可被覆盖假如可被覆盖其值为 True，其值为 False 时不能覆盖。假如它被省略，则已存在文献不能覆盖。
unicode
可选的。Boolean 值，表达文献是作为一个 Unicode 文献创建的还是作为一个ASCII 文献创建的。假如作为一个 Unicode 文献创建，其值为 True，作为一个 ASCII 文献创建，其值为 False。假如省略的话，则认为是一个 ASCII 文献。
说明
下面的代码举例说明如何使用 CreateTextFile 方法创建和打开文本文献。
Sub CreateAfile
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\testfile.txt", True)
a.WriteLine("This is a test.")
a.Close
End Sub
对于一个已经存在的 filename，假如 overwrite 参数是 False 或者没有提供，则发生一个错误。
1、应用于FileSystemObject 对象、Folder 对象
2、请参阅CopyFile 方法、DeleteFile 方法、OpenAsTextStream 方法、OpenTextFile 方法
Delete 方法
描述
删除一个指定的文献或文献夹。
语法
object.Delete force
Delete 方法语法有如下几部分：
部分
描述
object
必需的。始终是一个 File 或 Folder 对象的名字。
force
可选的。Boolean 值，假如要删除具有只读属性设立的文献或文献夹，其值为True。当其值为 False 时（缺省），不能删除具有只读属性设立的文献或文献夹。
说明
假如指定的文献或文献夹不存在，则发生一个错误。
对于一个 File 或 Folder，Delete 方法的结果和 执行 FileSystemObject.DeleteFile 或FileSystemObject.DeleteFolder 操作的结果是同样的。
Delete 方法对于文献夹内是否有内容不做区别。不管指定的文献夹是否有内容，它都被删除。
1、应用于File对象、Folder对象。
2、请参阅Copy方法、Delete方法、DeleteFolder方法、Move方法、OpenAsTextStream方法。
DeleteFile 方法
描述
删除一个指定的文献。
语法
object.DeleteFile filespec[, force]
DeleteFile 方法语法有如下几部分：
部分
描述
object
必需的。始终是一个 FileSystemObject 的名字。
filespec
必需的。要删除文献的名字。Filespec 可以在最后的途径部件中包含通配符。
force
可选的。Boolean 值，假如要删除具有只读属性设立的文献，其值为 True。假如其值为 False （缺省），则不能删除具有只读属性设立的文献。
说明
假如没有发现相匹配的文献，则产生一个错误。DeleteFile 方法停在它碰到的第一个错误上。不要尝试回卷或撤消错误发生前所做的任何改变。
1、应用于FileSystemObject 对象
2、请参阅Copy方法、Delete方法、DeleteFolder方法、MoveFile方法
DeleteFolder 方法
描述
删除一个指定的文献夹和它的内容。
语法
object.DeleteFolder folderspec[, force]
DeleteFolder 方法语法有如下几部分：
部分
描述
object
必需的。始终是一个 FileSystemObject 的名字。
folderspec
必需的。要删除的文献夹的名字。 Folderspec 可以在最后的途径部件中包含通配符。
force
可选的。Boolean 值，假如要删除具有只读属性设立的文献夹，其值为 True，假如值为 False （缺省），则不能删除具有只读属性设立的文献夹。
说明
DeleteFolder方法对文献夹中有无内容不做区别。不管指定的文献夹中是否有内容，它都被删除。
假如没有发现相匹配的文献夹，则发生一个错误。DeleteFolder 方法停止在它碰到的第一个错误上，不要尝试回卷或撤消错误发生前所做的任何改变。
1、应用于FileSystemObject 对象
2、请参阅CopyFolder方法、CreateFolder方法、Delete方法、DeleteFile方法、MoveFolder方法。
DriveExists 方法
描述
假如指定的驱动器存在，返回 True，假如不存在返回 False。
语法
object.DriveExists(drivespec)
DriveExists 方法语法有如下几部分：
部分
描述
Object
必需的。始终是一个 FileSystemObject 的名字。
Drivespec
必需的。一个驱动器字符或一个完整的途径说明。
说明
对于可删除介质的驱动器，即使没有介质存在， DriveExists 方法也返回 True。使用 Drive 对象的 IsReady 属性拟定驱动器是否准备好。
1、应用于FileSystemObject
2、请参阅FileExists 方法、FolderExists 方法
Exists 方法
描述
假如在 Dictionary 对象中指定的关键字存在，返回 True，若不存在，返回 False。
语法
object.Exists(key)
Exists 方法语法有如下几部分：
部分
描述
Object
必需的。始终是一个 Dictionary 对象的名字。
Key
必需的。在 Dictionary 对象中搜索的 Key 值。
1、应用于Dictionary 对象
2、请参阅Add方法(Dictionary)、Items 方法、Keys方法、Remove 方法、RemoveAll 方法
FileExists 方法
描述
假如指定的文献存在，返回 True，若不存在，则返回 False。
语法
object.FileExists(filespec)
FileExists 方法语法有如下几部分：
部分
描述
object
必需的。始终是一个 FileSystemObject 的名字。
filespec
必需的。要拟定是否存在的文献的名字。假如认为文献不在当前文献夹中，必须提供一个完整的途径说明（绝对的或相对的）。
1、应用于FileSystemObject 对象
2、请参阅DriveExists 方法、FolderExists 方法
FolderExists 方法
描述
假如指定的文献夹存在返回 True，不存在返回 False。
语法
object.FolderExists(folderspec)
FolderExists 方法语法有如下几部分：
部分
描述
object
必需的。始终是一个 FileSystemObject 对象的名字。
folderspec
必需的。要拟定是否存在的文献夹名字。假如认为文献夹不在当前文献夹中，必须提供一个完整的途径说明（绝对的或相对的）。
1、应用于FileSystemObject 对象
2、请参阅DriveExists 方法、FileExists 方法
GetAbsolutePathName 方法
描述
从提供的途径说明中返回一个完整、明确的途径。
语法
object.GetAbsolutePathName(pathspec)
GetAbsolutePathName 方法语法有如下几部分：
部分
描述
object
必需的。始终是一个 FileSystemObject 的名字。
pathspec
必需的。要改变到一个完整、明确途径的途径说明。
说明
一个途径假如提供了从指定驱动器根目录的一个完整引用，则该途径是完整、明确的。一个完整的途径假如指定一个被映射驱动器的根文献夹，它只能以途径分隔符（\）为结尾。
假设当前目录是 c:\mydocuments\reports，下面的表说明了 GetAbsolutePathName 方法的行为。
Pathspec
返回的途径
"c:"
"c:\mydocuments\reports"
"c:.."
"c:\mydocuments"
"c:\\\"
"c:\"
"c:*.*\may97"
"c:\mydocuments\reports\*.*\may97"
"region1"
"c:\mydocuments\reports\region1"
"c:\..\..\mydocuments"
"c:\mydocuments"
1、应用于FileSystemObject 对象
2、请参阅BuildPath 方法、GetBaseName 方法、GetDrive 方法、GetDriveName 方法、GetExtensionName 方法、GetFile 方法、GetFileName 方法、GetFolder 方法、GetParentFolderName 方法、GetSpecialFolder 方法、GetTempName 方法
GetBaseName 方法
描述
返回一个包含途径中最后部件的基本名字（去掉任何文献扩展名）的字符串。
语法
object.GetBaseName(path)
GetBaseName 方法语法有如下几部分：
部分
描述
object
必需的。始终是一个 FileSystemObject 的名字。
path
必需的。 要返回其基本名字的部件的途径说明。
说明
假如没有部件和 path 参数匹配，GetBaseName 方法返回一个长度为零的字符串（""）。
注意   GetBaseName 方法只对提供的 path 字符串起作用。它既不试图去辨认途径，也不检查指定途径是否存在。
1、应用于FileSystemObject 对象
2、请参阅BuildPath 方法、GetAbsolutePathName 方法、GetDrive 方法、GetDriveName 方法、GetExtensionName 方法、GetFile 方法、GetFileName 方法、GetFolder 方法、GetParentFolderName 方法、GetSpecialFolder 方法、GetTempName 方法
GetExtensionName 方法
描述
返回一个包含途径中最后部件扩展名的字符串。
语法
object.GetExtensionName(path)
GetExtensionName 方法语法有如下几部分：
部分
描述
object
必需的。始终是一个 FileSystemObject 的名字。
path
必需的。.要返回其扩展名的部件的途径说明。

说明
对于网络驱动器，根目录（\）被认为是一个部件。
假如没有部件和 pat