-
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
-
use Name()
Code:
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
-
