Save As Window

[Coffee]

hello can anyone provide me some further information on the code contained in the following link?

http://access.mvps.org/access/api/api0001.htm

i am trying to click a button and it opens the save as window and then stores the location path as a variable.



but i have limited knowledge in programming, so if someone could explain where i should place that code and how to call it from a form would be muchly appreciated

thanks in advance

[ajetrumpet]

you don't need an api to do this. The following will work fine, using the mso:

function PickAFolder() as string
      Dim varItem As Variant
       
      With Application.FileDialog(msoFileDialogFolderPicker)
             .AllowMultiSelect = False
             .InitialFileName = "c:"
             .InitialView = msoFileDialogViewDetails
                    If .Show Then
                        PickAFolder = varItem
                    End If
      End With
end function

if all you want to do is have the user pick a file, the above does just that. I think you also need a reference to "ms office xx.0 library" though.

[Coffee]

Ok thank you!! nothing was working because i didn't have the correct imports. Does anyone know what i would have to add to assign the selected file path from that code to a string variable so i can output the file path selected in a message box?

thanks

[Coffee]

so using the function above, you cant assign the file path selected to a string?? ;/

[boblarson]

so using the function above, you cant assign the file path selected to a string?? ;/

You would use something like this:

Dim strFile As String
 
strFile = PickAFolder

[ajetrumpet]

You would use something like this:

Dim strFile As String
 
strFile = PickAFolder

I thought we would've figured that part out. Didn't see a need to include it!

But then again, ya never know!

[Coffee]

i done that, but then when i say

MsgBox strFile

it returns a blank message window and shouldn't it return the message window with the path string?

[ajetrumpet]

i done that, but then when i say

MsgBox strFile

it returns a blank message window and shouldn't it return the message window with the path string?

it might be cutting it off if it's too long a string? If you push cancel, you won't get anything I dont think.

if you double click the file or hit OK, it should return the string.

[Coffee]

ah i just tried it in my main code instead of the test form and even though it doesn't output the path in a message box it still outputs it somewhere and is working :P i feel like a giant noob wasting so much time on this where as if i just put it in the code regardless it would have worked...oh well live and learn!!

i changed it to a FileDialogSaveAs so that the user would be able to supply their own file name, but this way doesn't work and keeps saying that the file already exist when it clearly doesn't ;/

thanks guys for your help and baring with me! much appreciated xD