Default Folder for Dialog Box

[alexbel]

Hi,

I was wondering how I can specify the default folder of a dialog box. The dialog box is a function.

Thank you

 

[PHV]

A function like this ?
Function PickFolder(strStartDir) As String
Dim SA As Object, F As Object
Set SA = CreateObject("Shell.Application")
Set F = SA.BrowseForFolder(0, "Choose a folder", 0, strStartDir)
If (Not F Is Nothing) Then
PickFolder = F.Items.Item.Path
End If
Set F = Nothing
Set SA = Nothing
End Function

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[alexbel]

Here's the code that I currently have:

   Dim strFileName As String
       Dim oDialog As Object
       Set oDialog = [Forms]![frmForm1]!xDialog.Object
       With oDialog   ' Ask for new file location.
         .DialogTitle = "Please select a new file"
         .Filter = "Access Database(*.mdb)|" & _
         "*.mdb"
        
         .FilterIndex = 1
         .ShowOpen
         ' If user responded, put selection into text box on form.
         If Len(.FileName) > 0 Then _
         [Forms]![frmForm1]![txtFileName] = .FileName
       End With

Would I put:

 Set F = SA.BrowseForFolder(0, "Choose a folder", 0, strStartDir)

In my code?

Thank you

 

[PHV]

NO, forgive me. I misunderstood your post.