GetOpenFilename help
On Mar 23, 6:26 pm, Pedro Costa
wrote:
Is it possible to use : "FileName = Application.GetOpenFilename("All files,
*.*")" but instead of ("All files, *.*") to put in there the exact location
and name of the file?
savpath = CurDir
savdrive = Left(CurDir, 1)
ChDrive ("d") 'ChDir can't change drive
ChDir ("mydir") '
Application.GetOpenFilename ("Test data (*.),*.")
ChDrive (savdrive)
ChDir (CurDir)
|