Will this function return what is expected (see comments)
Function GetPathAndFile(FullPath As String)
' This function takes a FullPath and will return the Path and File
from that FullPath
' Ex: GetPathAndFile ("C:\Path\To\File.txt") will give
' SourcePath = "C:\Path\To"
' SourceFile = "File.txt"
Dim strFind As String
Do Until Left(strFind, 1) = "\"
iCount = iCount + 1
strFind = Right(FullPath, iCount)
If iCount = Len(FullPath) Then
Exit Do
End If
Loop
SourceFile = Right(strFind, Len(strFind) - 1)
SourcePath = Left(FullPath, Len(strFind))
End Function
Thank you,
Mitch Lawrence
Lead Applications Analyst
Technical Support - NPR/Automation
CHRISTUS Information Management
*: [EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]>
Send a "thank you
<http://intranet.christushealth.org/spiritBuck/Default.asp> " to
someone!
<<image001.png>>
