Save As FileDialog (1 Viewer)

[mbentley]

I'm having trouble with the Save As FileDialog type.

My code:

Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogSaveAs)

Returns an <Object does not support this action> error.

Funny thing is that this works fine:

Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)

Unfortunately, I need to use the former (I think).

What I ultimately need to do is to use the FileDialog to return a string variable that I can use later. I don't actually need it to save a file, I just need the path and file name in a string.

Thanks!

 

[mbentley]

I found the answer to why the SaveAs doesn't work. For those interested, see this article .

So can anyone suggest how to do what I'm trying?

 

[ghudson]

Try the API: Call the standard Windows File Open/Save dialog box if you need to open the File Save As dialog box and use the "string" (file and location of the file) that the user selected.

HTH

 

[Drevlin]

Any of the file pickers will do what you want. All they do is pass you the file's location string anyway. The following code will give you an array of file names (Access 2002 ):


With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
.InitialFileName = "C:\My Documents\*.*"
.Title = "Which File(s)"
.ButtonName = "My Choice"

If .Show = -1 Then
numOfFiles = .SelectedItems.Count
' Display paths of each file selected
For lngCount = 1 To numOfFiles
textArray(lngCount) = .SelectedItems(lngCount)
Next lngCount
Else
End
End If
End With

For x = 1 to numOfFiles
Debug.Print textArray(x)
Next x

 

[mbentley]

Drevlin...thanks for you input. Unfortunately the File Open dialog doesn't let the user create a new file name. It will only let them select and already existing file name. I need to allow them to do the former.

ghudson...thanks, I'll try that suggestion.

 

[smed]

Mike,

Have you tried using the ActiveX : Common Dialogs Control ?

I use it to obtaining a file name selected/specified in both a open & save file requester.

I have attached a simple db for you to have a look at.

Hope it's helps

Smed

 

[mbentley]

Thanks Smed. I'll give that a try too.