select and move file

[HeSaidJoe]

using commondialog I select a file
from anywhere on my system drives.

how do I move it to C:\Mynewfolder

Private Sub cmdGetPic_Click()

'Set the properties of the text control
CommonDialog1.Filter = "Pictures(*.jpg)|*.jpg*|Gif Files(*.gif,*.gif)|*.htm*|All files(*.*)|*.*"
CommonDialog1.FilterIndex = 1
CommonDialog1.FileName = "YourFile"
CommonDialog1.DefaultExt = "txt"
CommonDialog1.ShowSave

'What goes here to do the move or copy
'preferably move but if not I can kill
'the file later in the event

End Sub

[Mark Sreeves]

use Name()

Private Sub cmdGetPic_Click() 

Dim filename As String

'Set the properties of the text control 
CommonDialog1.Filter = "Pictures(*.jpg)|*.jpg*|Gif Files(*.gif,*.gif)|*.htm*|All files(*.*)|*.*" 
CommonDialog1.FilterIndex = 1 
CommonDialog1.FileName = "YourFile" 
CommonDialog1.DefaultExt = "txt" 
CommonDialog1.ShowSave 

filename = CommonDialog1.filename

Name filename As "c:\mynewfolder\" & Dir(filename)

End Sub

[HeSaidJoe]

Thank you.