Checking status of a fso.movefile, fso.copyfile etc

[uprichard]

I have a script that I use to perform filesystem functions. Is there anyway to check the status that comes back from the call?

I know I could do a check to see that a new file exists after a copy and that the file does not exist after a delete etc, but that seams very long approach.

Thanks for any help.


Set fso = CreateObject("Scripting.FileSystemObject&quot
Select Case Action_Value
Case "move"
fso.MoveFile Source_Value, Dest_Value
Case "rmdir"
fso.DeleteFolder Source_Value, TRUE
Case "mkdir"
fso.DeleteFolder Source_Value, TRUE
Case "delete"
fso.DeleteFile Source_Value, TRUE
Case "copy"
fso.CopyFile Source_Value, Dest_Value
Case Else
msgbox "Invalid arg"
End Select

 

[dilettante]

You end up doing something like:

Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Select Case Action_Value    
    Case "move"        
       fso.MoveFile Source_Value, Dest_Value
    :
    :
    Case Else
        msgbox "Invalid arg"
End Select
If Err.Number <> 0 Then
    MsgBox Action_Value & &quot; error #&quot; & CStr(Err.Number) & _
        &quot; (&quot; & Err.Description & &quot;)&quot;
    'Other stuff to handle error
    Err.Clear
End If
On Error GoTo 0

Of course you can get as fancy with your error handling as you choose. Better read up on VBScript error processing. I suggest:

http://msdn.microsoft.com/downloads...s/027/001/728/msdncompositedoc.xml&frame=true