FileDialog Question

[uaguy3005]

I've added a button on my form. The idea is the user will click the button and a file dialog box will open. The user will select a file (PDF) and I would like to take the file and save it to a different network location with a different name.

I don't think I'm using the File Dialog application correctly. Any suggestions?

Private Sub Upload1stTraining_Click()
Dim fd As FileDialog
Dim objfl As Variant
Dim strDestFile As String


Dim strUploadFile As String
Dim strTrainingName As String

strTrainingName = Me.ID & " - " & Me.Line & " 1st.pdf"
strDestFile = "S:\QUALITY\QUALITY ALERTS\Training Records\" & strTrainingName

Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.ButtonName = "Select"
.AllowMultiSelect = False
.Filters.Add "PDF", "*.pdf"
.Title = "Choose Transactions file to import"
.InitialView = msoFileDialogViewDetails
.Show
For Each objfl In .SelectedItems
strUploadFile = objfl
Next objfl
On Error GoTo 0
End With
Set fd = Nothing

' Enter code to save the strUploadFile to the strDestFile

Me.Ctl1st_Shift_Training = True
End Sub

[June7]

Why doesn't it work - error message, wrong results, nothing?

The loop to build strUploadFile is not correct. However, I don't think building a string of the document names will serve to do want you want. Instead of building string within the loop, copy the file to the new location. Review http://www.rondebruin.nl/folder.htm

[uaguy3005]

Why doesn't it work - error message, wrong results, nothing?

The loop to build strUploadFile is not correct. However, I don't think building a string of the document names will serve to do want you want. Instead of building string within the loop, copy the file to the new location. Review http://www.rondebruin.nl/folder.htm

Actually, I got that code to work last night. I was getting an error on FileCopy strUploadFile, strDestFile. I'm not sure what changed, perhaps a typo, but I redid that part and it started working. But to be honest, I haven't really figured out how this code works yet. Any information you can provide would be appreciated.

Private Sub Upload1stTraining_Click()
Dim fd As FileDialog
Dim objfl As Variant
Dim strDestFile As String
Dim strUploadFile As String
Dim strTrainingName As String

strTrainingName = Me.ID & " - " & Me.Line & " 1st.pdf"
strDestFile = "S:\QUALITY\QUALITY ALERTS\Training Records\" & strTrainingName

Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.ButtonName = "Select"
.AllowMultiSelect = False
.Filters.Add "PDF", "*.pdf"
.Title = "Choose Transactions file to import"
.InitialView = msoFileDialogViewDetails
.Show
For Each objfl In .SelectedItems
strUploadFile = objfl
Next objfl
On Error GoTo 0
End With
Set fd = Nothing

FileCopy strUploadFile, strDestFile

' Flips a checkbox to true alerting the user the file has been succesfully uploaded.
Me.Ctl1st_Shift_Training = True
End Sub

[June7]

The code allows you to select multiple files in the dialog and then copies all the selected files to the new location? I would be surprised if that works. From what I see only one file would be copied but if it's really doing what you want, then congratulations!

Use debugging techniques to help you understand the code. Refer to link at bottom of my post. Set a breakpoint and step through the code.

[uaguy3005]

The code allows you to select multiple files in the dialog and then copies all the selected files to the new location? I would be surprised if that works. From what I see only one file would be copied but if it's really doing what you want, then congratulations!

Use debugging techniques to help you understand the code. Refer to link at bottom of my post. Set a breakpoint and step through the code.

Actually that's correct. I only want to allow 1 file to be copied, but this was the only code I could find that would work the way I would like. Is there a better dialog box to open that would allow only 1 selection to be made? In excel I would use the Application.GetSaveAsDialog but that same functionality doesn't work in Access 2007.

[June7]

I see now that you set AllowMultiSelect to False. No, I don't know any other method.