Private Sub Button1_Click(s ender As System.Object, e As System.EventArg s) Handles Button1.Click
Dim FileToCopy As String
Dim NewCopy As String
FileToCopy = "C:\Users\????\ Desktop\fileNam e"
NewCopy = "C:\Users\???\D esktop\new\file Name"
If System.IO.File. Exists(FileToCo py) = True Then
System.IO.File. Copy(FileToCopy , NewCopy)
MsgBox("File Copied")
End If
End Sub
Dim FileToCopy As String
Dim NewCopy As String
FileToCopy = "C:\Users\????\ Desktop\fileNam e"
NewCopy = "C:\Users\???\D esktop\new\file Name"
If System.IO.File. Exists(FileToCo py) = True Then
System.IO.File. Copy(FileToCopy , NewCopy)
MsgBox("File Copied")
End If
End Sub
Comment