Public Function OpenDir(DirString)
Dim Dr As String
Dim TmpStr As String
If Not IsNull(DirString) Then
If Right(DirString, 1) = "\" Then
TmpStr = DirString
ElseIf Right(DirString, 1) = ":" Then
TmpStr = DirString & "\"
Else
TmpStr = Mid(DirString, 1, Len(DirString) - Len(Dir(DirString)))
End If
If FIsFileDIR(TmpStr, vbDirectory) Then
Dr = "explorer " & TmpStr
Shell Dr, vbNormalFocus
End If
End If
End Function
Access软件网交流QQ群(群号:198465573) |