User defined drive location for docmd.TransferText

[ProteusGak]

Hi there, can anyone tell me how to allow the user to enter in a path on there harddrive for a transfertext item? It works just fine if I set it programmatically, but I really need them to do this, because the location may change.
This is in Access 2000, btw.

Thanks, proteusgak

[ADezii]

Hi there, can anyone tell me how to allow the user to enter in a path on there harddrive for a transfertext item? It works just fine if I set it programmatically, but I really need them to do this, because the location may change.
This is in Access 2000, btw.

Thanks, proteusgak

'First, you must set a Reference to the Microsoft Office XX.X Object Library
Dim varItem As Variant, strSelectedFile As String
 
With Application.FileDialog(msoFileDialogFilePicker)
   With .Filters    'only 1 Filter needed
     .Clear
     .Add "Text Files", "*.txt"
   End With
       'The Show Method returns True if 1 or more files are selected
       .AllowMultiSelect = False
       .ButtonName = "Find Text File"
       .InitialFileName = vbNullString
       .InitialView = msoFileDialogViewDetails
       .Title = "Select Ttext File to Transfer"
              If .Show Then
                   For Each varItem In .SelectedItems
                     strSelectedFile = varItem     'will only be 1
                   Next varItem
              End If
End With
 
'Sample example
DoCmd.TransferText acImportDelim, , "<Table Name>", strSelectedFile, "<True or False>"

[ProteusGak]

First, Thank you!

For those that might look at this thread, my intent was to "export" a file that the user could manipulate in a bound table field. Thanks to aDezii
the following simple code was gleened.

Dim varItem As Variant, strSelectedFile As String
        strSelectedFile = BillingDriveLocation 'bound table field allowing for user to input variable drive locations
    DoCmd.TransferText acExportFixed, "As400MLV618", "as400", strSelectedFile

It works great!

Again, thank you.
ProteusGak

[ADezii]

First, Thank you!

For those that might look at this thread, my intent was to "export" a file that the user could manipulate in a bound table field. Thanks to aDezii
the following simple code was gleened.

Dim varItem As Variant, strSelectedFile As String
        strSelectedFile = BillingDriveLocation 'bound table field allowing for user to input variable drive locations
    DoCmd.TransferText acExportFixed, "As400MLV618", "as400", strSelectedFile

It works great!

Again, thank you.
ProteusGak

Sorry for the mix-up.