browsing for a text file, set default as My Documents

[Jaymond Flurrie]

So I have a "file picker" and I would need to default the location it opens to My Documents. How to do it?

Here's the code I have now:

Me.txtSourceFile.Text = Application.GetOpenFilename("TextFiles (*.txt), *.txt", , "Pick a file:")

 

[jim may]

Sample:

Sub Foo()
ChDir "C:\Users\James\Documents\Stan"
FileToOpen = Application.GetOpenFilename("TextFiles (*.txt), *.txt", , "Pick a file:")
End Sub

 

[RoryA]

You could use the FileDialog:

   Dim dlg As FileDialog
   Set dlg = Application.FileDialog(msoFileDialogFilePicker)
   With dlg
      .InitialFileName = "C:\test\"
      .Filters.Clear
      .Filters.Add "Text Files", "*.txt"
      .Title = "Please choose text file"
      If .Show = -1 Then
         ' do something with file
      End If
   End With

 

[Jaymond Flurrie]

Thanks!