by Brandon (46 Submissions)
Category: Windows API Call/Explanation
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 22nd July 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
copy a file to your windows desktop from dialog control box.
'and enter this code into the submenu.
Private Sub mnuEditCopyFile_Click()
'copy file to new location
Dim New_Location As String
Dim Copy
CommonDialog1.DialogTitle = "Copy File"
CommonDialog1.ShowOpen
New_Location = "c:\Windows\Desktop\NewFile1.txt"
Copy = CopyFile(CommonDialog1.FileName, New_Location, 1)
End Sub