Public Function ReplaceMultiChar(ByVal sData As String, ByVal sChar As String) As String ‘\u7528\u5355\u5b57\u7b26\u66ff\u6362\u8fde\u7eed\u5b57\u7b26
sData = Trim(sData)
Dim iBefore, iAfter As Integer
Do
iBefore = Len(sData)
sData = Replace(sData, sChar & sChar, sChar)
iAfter = Len(sData)
Loop Until iBefore = iAfter
ReplaceMultiChar = sData
End Function<\/p>\n\n\n\n
Public Function GetExtension(ByVal sName As String) As String ‘\u6269\u5c55\u540d
GetExtension = “”
If InStr(1, sName, “.”, vbTextCompare) = 0 Then Exit Function
Dim TempArray As Variant
TempArray = Split(sName, “.”, -1, vbTextCompare) ‘\u540d\u5b57\u53ef\u80fd\u4f1a\u542b .
GetExtension = TempArray(UBound(TempArray)) ‘\u6269\u5c55\u540d
End Function<\/p>\n\n\n\n
Public Function GetBare(ByVal sName As String) As String ‘\u4e0d\u5e26\u6269\u5c55\u540d\u7684\u540d
GetBare = “”
If InStr(1, sName, “.”, vbTextCompare) = 0 Then Exit Function
Dim TempArray As Variant
TempArray = Split(sName, “.”, -1, vbTextCompare) ‘\u540d\u5b57\u53ef\u80fd\u4f1a\u542b .
ReDim Preserve TempArray(LBound(TempArray) To UBound(TempArray) – 1) ‘\u53bb\u6269\u5c55\u540d
GetBare = Join(TempArray, “.”)
End Function<\/p>\n\n\n\n
Public Function GetFullName(ByVal sPath As String, ByVal sShortName As String) As String ‘\u6587\u4ef6\u5168\u540d
‘If Right(sPath, 1) = “\\” Then
‘GetFullName = sPath & sShortName
‘Else
‘GetFullName = sPath & “\\” & sShortName
‘End If
‘\u4e0b\u53e5\u7b49\u540c\u4ee5\u4e0a\u5185\u5bb9
GetFullName = IIf(Right(sPath, 1) = “\\” Or Left(sShortName, 1) = “\\”, sPath & sShortName, sPath & “\\” & sShortName)
GetFullName = ReplaceMultiChar(GetFullName, “\\”)
End Function<\/p>\n\n\n\n
Public Function GetShortName(ByVal sFullName As String) As String ‘\u6587\u4ef6\u77ed\u540d
If sFullName = “” Then
GetShortName = “”
Else
Dim TempArray As Variant
TempArray = Split(sFullName, “\\”, -1, vbTextCompare)
GetShortName = TempArray(UBound(TempArray))
End If
End Function<\/p>\n\n\n\n
Public Function GetPath(ByVal sFullName As String) As String ‘\u6587\u4ef6\u8def\u5f84
‘Dim I As Integer
‘For I = Len(sFullName) To 1 Step -1
‘If Mid(sFullName, I, 1) = “\\” Then
‘GetPath = Left(sFullName, I – 1)
‘Exit Function
‘End If
‘Next I
Dim TempArray As Variant
TempArray = Split(sFullName, “\\”, -1, vbTextCompare)
If LBound(TempArray) = UBound(TempArray) Then ‘\u77ed\u540d
GetPath = “”
Else
ReDim Preserve TempArray(LBound(TempArray) To UBound(TempArray) – 1) As String
GetPath = Join(TempArray, “\\”)
End If
End Function<\/p>\n\n\n\n
Public Function GetShortPath(ByVal sFullName As String) As String ‘\u6587\u4ef6\u5f53\u524d\u6587\u4ef6\u5939
Dim TempArray As Variant
TempArray = Split(sFullName, “\\”, -1, vbTextCompare)
GetShortPath = TempArray(UBound(TempArray) – 1)
End Function<\/p>\n\n\n\n
Public Function DirExist(ByVal sData As String) As Boolean ‘(\u5168\u540d)\u76ee\u5f55\u5b58\u5728
DirExist = False
If Trim(sData) = “” Then Exit Function ‘Dir(“”) \u51fa\u9519, \u4e14\u65e0\u58f0\u65e0\u606f
If Dir(sData, vbDirectory) = “” Then Exit Function ‘\u4e0d\u5b58\u5728
If Not (GetAttr(sData) And vbDirectory) = vbDirectory Then Exit Function ‘\u662f\u6587\u4ef6
DirExist = True
End Function<\/p>\n\n\n\n
Public Function FileExist(ByVal sData As String) As Boolean ‘(\u5168\u540d)\u6587\u4ef6\u5b58\u5728
FileExist = False
If Trim(sData) = “” Then Exit Function ‘Dir(“”) \u51fa\u9519, \u4e14\u65e0\u58f0\u65e0\u606f
If Dir(sData) = “” Then Exit Function ‘\u4e0d\u5b58\u5728
If (GetAttr(sData) And vbDirectory) = vbDirectory Then Exit Function ‘\u662f\u76ee\u5f55
FileExist = True
End Function<\/p>\n","protected":false},"excerpt":{"rendered":"