SaveAs and Common Dialog

[3576]

Is there a function such as SaveAs in Common Dialog control?
I need to provide the user with the ability to select a file and rename it right away preferably using Common Dialog control.

Any help is appreciated.

Thanks,

TW

 

[3576]

I should add that when I used the pCommonDialog.ShowSave, the file was not saved somehow.
TW

 

[johnwm]

The commondialog control allows you to choose a filename, it doesn't do any opening or saving on it's own.

To do a 'Save As' you can use the Name...As.... command

A quick example using a CommonDialog called cdl1:

Dim myfile As String
   With cdl1
      .ShowOpen
   End With
   myfile = cdl1.FileName
   MsgBox "Choose new name"
   With cdl1
   .ShowSave
   End With
   Name myfile As cdl1.FileName

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'If we're supposed to work in Hex, why have we only got A fingers?'

http://www.essexsteam.co.uk

for steam enthusiasts

 

[3576]

What I meant by saying "I used the pCommonDialog.ShowSave" to save a file, is that when that pCommonDialog open I entered a new name and clicked on the "Save" button in the pCommonDialog control but the file wasn't saved. Shouldn't the file be saved?

Thanks,

TW

 

[HarleyQuinn]

Did you use the 'Name...As' as suggested by johnwm??
As far as I can see that will overwrite/rename the original file with the new filename?

johnwm can you confirm/deny this?

If this is so and you want to keep the original you could replace the 'Name...As' in john's code with

FileCopy myfile, cdl1.FileName

Hope this helps

Harleyquinn

---------------------------------
For tsunami relief donations

 

[johnwm]

3576,
As I said above, <q>The commondialog control allows you to choose a filename, it doesn't do any opening or saving on it's own.</q> It's up to you to save, as shown in the snippet above!

Harleyquinn,
Yes it surely will - that's what I believe OP requested <q>rename</q>

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'If we're supposed to work in Hex, why have we only got A fingers?'

http://www.essexsteam.co.uk

for steam enthusiasts

 

[3576]

Thank you both for your help. I actually can use both methods in my code.

TW