I got it.. that's what i did Dim fileName As String Dim path As String Dim index As Integer path = "c:\temp\testing\folder" path = frmPrinterProperties.IDpath.Text ' deleting the last folder name.. index = InStrRev(path, "\", -1, 1) ' find "\" reversly in the path string path = Mid(path, 1, index) ' get what ever right before "\" fileName = path & "new folder" ' now "c:\temp\testing\new folder"