Function GetFilePath(strFileName) As String
'返回路径名称
Dim I As Integer
For I = Len(strFileName) To 1 Step -1
If Mid$(strFileName, I, 1) = "\" Then
GetFilePath = Mid$(strFileName, 1, I)
Exit Function
End If
Next I
GetFilePath = strFileName
End Function