Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Sub Copy_File()
Dim file_name As String, source_path As String, target_path As String
file_name = "Search.xls"
source_path = "C:\Documents and Settings\WinblowsME\Desktop"
target_path = "C:\Documents and Settings\WinblowsME\Desktop\Temp\"
Call File_Copy(file_name, source_path, target_path)
End Sub
Private Sub File_Copy(file_name As String, source_path As String, target_path As String)
If Right(source_path, 1) <> "\" Then: source_path = source_path & "\"
If Right(target_path, 1) <> "\" Then: target_path = target_path & "\"
On Error GoTo PRINTERR
FileCopy source_path & file_name, target_path & file_name
Exit Sub
PRINTERR:
MsgBox Err.Description
End Sub