Get Parent Folder

Date: 02-16-2022

Return to Index

 
'Compilable Example:  (Jose Includes)
Function GetParentFolder() As String
   Local temp$, iPos As Long
   temp$ = Exe.Path$
   temp$ = Trim$(temp$,"\")
   iPos = InStr(-1,temp$,"\")
   Function = Left$(temp$,iPos)
End Function
 

created by gbSnippets
http://www.garybeene.com/sw/gbsnippets.htm