rabit/r3/Module_FileFunctions.bas

Attribute VB_Name = "Module_FileFunctions"
Option Explicit
'

Public Function GetFilenameOfFullPath(ByVal FullPath As String) As String

Dim LastSlashPos As Integer
Dim SlashPos As Integer

    SlashPos = InStr(1, FullPath, "\")

    While SlashPos > 0

        LastSlashPos = SlashPos
        SlashPos = InStr(SlashPos + 1, FullPath, "\")

    Wend

    GetFilenameOfFullPath = Right(FullPath, Len(FullPath) - LastSlashPos)

End Function

Public Function GetPathOfFullPath(ByVal FullPath As String) As String

Dim LastSlashPos As Integer
Dim SlashPos As Integer

    SlashPos = InStr(1, FullPath, "\")

    While SlashPos > 0

        LastSlashPos = SlashPos
        SlashPos = InStr(SlashPos + 1, FullPath, "\")

    Wend

    GetPathOfFullPath = Left(FullPath, LastSlashPos)

End Function

1	Attribute VB_Name = "Module_FileFunctions"
2	Option Explicit
3	'
4
5	Public Function GetFilenameOfFullPath(ByVal FullPath As String) As String
6
7	Dim LastSlashPos As Integer
8	Dim SlashPos As Integer
9
10	SlashPos = InStr(1, FullPath, "\")
11
12	While SlashPos > 0
13
14	LastSlashPos = SlashPos
15	SlashPos = InStr(SlashPos + 1, FullPath, "\")
16
17	Wend
18
19	GetFilenameOfFullPath = Right(FullPath, Len(FullPath) - LastSlashPos)
20
21	End Function
22
23	Public Function GetPathOfFullPath(ByVal FullPath As String) As String
24
25	Dim LastSlashPos As Integer
26	Dim SlashPos As Integer
27
28	SlashPos = InStr(1, FullPath, "\")
29
30	While SlashPos > 0
31
32	LastSlashPos = SlashPos
33	SlashPos = InStr(SlashPos + 1, FullPath, "\")
34
35	Wend
36
37	GetPathOfFullPath = Left(FullPath, LastSlashPos)
38
39	End Function
40
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26