I posted this:
Try this
I will save your default folder first to set it back at the end
Sub test()
Dim SaveDriveDir As String
Dim TheFileName As Variant
SaveDriveDir = CurDir
ChDrive "C"
ChDir "C:\"
TheFileName = Application.GetOpenFilename("Text Files (*.txt), C:\.txt")
MsgBox "your code"
ChDrive SaveDriveDir
ChDir SaveDriveDir
End Sub
--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl
"bw" wrote in message ...
I sent this earlier, but without a subject, and the news group appears to require a subject,
so I'm sending it again....
--------------------------------------
I have the following two statements (among others, of course):
TheFileName = Application.GetOpenFilename("Text Files (*.txt), *.txt")
Workbooks.OpenText Filename:=TheFileName, Origin:=xlWindows, _
StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=myArray
I would like the default directory to begin looking in to be C:\
I have tried the following with no success:
TheFileName = Application.GetOpenFilename("Text Files (*.txt), C:\.txt")
Thanks,
Bernie