Public Function getFilePathAndName(ByVal absPath As String) 'abspath为绝对路径
filePath = CurDir()
fileName = Right$(absPath, Len(absPath) - Len(filePath))
End Function
filePath = CurDir()
fileName = Right$(absPath, Len(absPath) - Len(filePath))
End Function