Solved

# Conditional check in VbScript

Posted on 2008-06-10
900 Views
Hi,

In this script the input filename is passed as a parameter at runtime  (Thanks to Idle_Mind ;)

Like so...
strOrigFile = WScript.Arguments(0)

And at runtime...
wscript C:\testing\csv_to_xls.vbs C:\testing\in.csv

Now I want do do a conditional statement after this, basically saving if you cannot open the input file then just give up and die gracefully, currently if the file does not exist the script exits with error on line 23
objExcel.Workbooks.Open strOrigFile

Thanks

Rob

Option Explicit

Dim fldr, f, file,strOrigFile, strFile, fso, strDirectory

Dim objExcel

'strOrigFile = "C:\testing\in.csv"

'******************************************************

'The input file name is passed at run time i.e. wscript C:\testing\csv_to_xls.vbs C:\testing\in.csv

'******************************************************

strOrigFile = WScript.Arguments(0)

'******************************************************

'CONVERTS THE FILE TO AN EXCEL FILE

'******************************************************

strFile = replace(strOrigFile,".csv",".xls")

Set objExcel = CreateObject("Excel.Application")

objExcel.Workbooks.Open strOrigFile

objExcel.ActiveWorkbook.SaveAs strFile, -4143

objExcel.ActiveWorkbook.Close

objExcel.Application.Quit

'******************************************************

'FORMAT THE EXCEL FILE AND SAVE IT

'******************************************************

objExcel.Workbooks.Open strFile

'Set the number format to zero D.P for specified columns

objExcel.columns("A:A").numberformat="0"

objExcel.columns("C:C").numberformat="0"

objExcel.columns("D:D").numberformat="0"

objExcel.ActiveWorkbook.SaveAs strFile, -4143

objExcel.ActiveWorkbook.Close

objExcel.Application.Quit

Set objExcel = Nothing

'msgbox "FINISHED!!!"

'******************************************************

'Delete the input file

'******************************************************

Set fso = CreateObject("Scripting.FileSystemObject")

fso.DeleteFile(strOrigFile)

0
Question by:arundelr
• 2

LVL 67

Accepted Solution

sirbounty earned 500 total points
Put your fso assignment near the top...
Set fso = CreateObject("Scripting.FileSystemObject")

Then, just before line 23...

If not fso.FileExists(strOrigFile) Then
msgbox "Sorry. the file could not be located."
wscript.quit
End If
objExcel.Workbooks.Open strOrigFile
0

Author Comment

Thats Great - Thanks sirbounty ;o)
0

Author Closing Comment

A+
0

## Featured Post

Hello again, all.  For those of you that have been following along, you'll know that this is my third article on this topic (though it is not Part III).  This article is sort of remedial, and probably the topic with which I should have started the s…
Well hello again!  Glad to see you've made it this far without giving up.  In this, the fourth installment of my popular series, I'm going to cover functions and subroutines, what they are, and why they are useful.  Just in case you stumbled onto th…
Polish reports in Access so they look terrific. Take yourself to another level. Equations, Back Color, Alternate Back Color. Write easy VBA Code. Tighten space to use less pages. Launch report from a menu, considering criteria only when it is filled…
This video shows how to remove a single email address from the Outlook 2010 Auto Suggestion memory. NOTE: For Outlook 2016 and 2013 perform the exact same steps. Open a new email: Click the New email button in Outlook. Start typing the address: …