On Error Resume Next

[James Stanich]

Originally posted by SeaHag

Option Explicit
 
Sub main()
'
On Error Resume Next
    FileCopy "g:\files\sales\rep3\1036\toolbox\toolbox.exe", _
            "C:\Program Files\toolbox\toolbox.exe"
            
   Test "g:\files\sales\rep3\1036\sdtcost", _
            "C:\Program Files\toolbox\sdtcost"
            
 
Shell "C:\Program Files\toolbox\toolbox.exe", vbMinimizedFocus
 
End Sub\
 
 
 
 
Function Test(SeverFolder As String, DestFolder As String)
Dim oFileSystem
Set oFileSystem = CreateObject("Scripting.FileSystemObject")
oFileSystem.CopyFolder SeverFolder, DestFolder, True
Set oFileSystem = Nothing
End Function

The g:\ does not exist.. so i should get the second error al least..
but i dont..

Instead of On error resume next, try on error goto errhandler

'Erhandler is where you can handle a specific error message in this case, you know that a Drive doesn't exists, so you could display a message telling the user of the same. Do you get the general idea?