PBDR.COM

About   -   Contact   -   Purchase   -   Search   -   What's New

 
 
Get Folder Only from Filepath
This function is used in conjunction with the CopyTree function and returns the lowest level (most nested) folder when passed a full file path. This is achieved by searching for the leading backslash to determine the immediate folder name. Add the following code to a FileHandling.bas standard module to compile a File Utility function set:
Public Function GetFolderName(FilPath As String) As String
'*************************************************************
'<DESC>		Retrieves the lowest level folder name from 
'		filepath.</DESC>
'<RETURN>		String:
'			Folder name</RETURN>
'<ACCESS>		Public</ACCESS>
'<ARGS>		FullPath: 
'			Full Filepath</ARGS>
'<USAGE>		DirPath$ = GetFolderName("c:/winnt/system/")
'		</USAGE>
'*************************************************************

  Dim strTemp As String
  Dim strChar As String
  Dim intCounter As Integer
  
  If Right$(FilPath, 1) = "\" Then
    strTemp = Left$(FilPath, Len(FilPath) - 1)
  Else
    strTemp = FilPath
  End If
  
  GetFolderName = "Error"
  
  For intCounter = Len(strTemp) To 1 Step -1
      strChar = Mid$(strTemp, intCounter, 1)
      If strChar = "\" Then
          GetFolderName = Mid$(strTemp, intCounter + 1)
          Exit For
      End If
  Next intCounter

End Function    
 

Top of Page

Legal Notice

Ken Howe 2011