Extracting File Path from Application.GetOpenFile

**Retec123** · 08-25-2010, 12:54 PM

Hi all,

I'm currently using the following code:-

PathName = Application.GetOpenFilename("AutoCad (*.Dwg), *.dwg", , "Drawing Files", , True) 'get Drawing Files

The variable PathName is a Variant as it can also be an array from selecting multiple file.

What I am trying to do is extract the path to the file and store as a string

I do not wish to invoke the GetOpenFilename again - Is there a simple way to do this?

Thanks in advance

Steve

**shg** · 08-25-2010, 01:23 PM

    Dim sPath As String
    Dim sFile As String
    
    sFile = "C:\myPath\myFile.xls"
    sPath = Left(sFile, InStrRev(sFile, "\"))
    MsgBox sPath

**Retec123** · 08-25-2010, 05:04 PM

Hi shg,

Sorry.. I probably didn't make it quite clear..
The path where I direct Application.GetOpenFile is not where my .xls resides..
I am trying to read the path name as a string from the App.GetOpenFile variable 'PathName' because I wish to automatically select files at that destination to read their filename without having to use the App.GetOpenFile again..

**Retec123** · 08-25-2010, 06:16 PM

Self answered as follows.......

GOFPathName = Application.GetOpenFilename("AutoCad (*.dwg), *.dwg", , "Drawing File", , True) 
JustThePathName = Left(GOFPathName(1), InStrRev(GOFPathName(1), "\") )

Many Thanks