VBA第三十期 VBA的一些自编的拿来即用的函数

FileExists 函数。该函数接收一个参数（带文件名的路径）。如果文件存在，那么返回True。用法如下：

Private Function FileExists (fname) As Boolean

FileExists=(Dir(fname)＜＞ "")

End Function

FileNameOnly 函数。该函数接收一个参数（带文件名的路径），它只返回文件名。就是从路径中提取文件名，实例如下：

Private Function FileNameOnly (pname) As String

Dim temp As Variant

Length=Len (pname)

Temp= Split (pname,Application.PathSeparator)

FileNameOnly-temp (UBound (temp) )

End Function

该函数使用了VBA的Split 函数，Split 函数接收一个字符串（包含分隔符），并返回包含分隔符之间的元素的Variant数组。在本例中，temp变量包含一个由Application. PathSeparater(通常是一个反斜杠）之间的每个文本字符串组成的数组。如果该参数是c:lexcel files\2013\backuplbudget.xlsx,函数将返回字符串budget.xlsx.FileNameOnly函数可以对任意的路径和文件名进行处理（即使文件不存在也可以）。

PathExists 函数。该函数接收一个参数（路径）。如果路径存在，那么返回True。实例如下：

Private Function PathExists (pname) As Boolean

Returns TRUE if the path exists

If Dir (pname, vbDirectory) ="" Then

PathExists-False

Else

PathExists= (GetAttr (pname) And vbDirectory) -vbDirectory

End If

End Function