|
Private mstrFullFileName As String
Private mstrDrive As String
Private mstrPath As String
Private mstrName As String
Public Property Get FullFileName() As String
FullFileName = mstrFullFileName
End Property
Public Property Let FullFileName(ByVal strFileName As String)
Call GetDrive(strFileName)
Call GetPath(strFileName)
Call GetName(strFileName)
End Property
Public Property Get Drive() As String
Drive = mstrDrive
End Property
Public Property Get Path() As String
Path = mstrPath
End Property
Public Property Get Name() As String
Name = mstrName
End Property
Private Sub GetDrive(ByVal strFile As String)
'Everything before the : is the drive
mstrDrive = Left(strFile, _
InStr(strFile, ":"))
End Sub
Private Sub GetPath(ByVal strFile As String)
'Everything up until the last backslash
'is the path
mstrPath = _
Mid(strFile, 1, InStrRev(strFile, "\"))
End Sub
Private Sub GetName(strFile)
'Everything after the last backslash
'is the name
mstrName = _
Mid(strFile, InStrRev(strFile, "\") + 1)
End Sub
|