How many Cell is filled in Row

Having the ability to check the length of Row will give you the option to run script for the list of items in your EXCEL spreadsheet

Here we are checking the current Spreadsheet’s Row A length and declared “LastRow” for future reference

With ActiveSheet

LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

End With

Wait command

Sometime we want the script to run a little bit slower than the time we executed them.

Here is the command to wait for 6 sec

Wscript.Echo "Time Start"

WScript.sleep 6000

Wscript.Echo "6 Second Gone"

Check file exist

Here is how to check for file exist while we copy to or from machine’s data

Example below show the checking of CMD.exe in Windows\system32 folder

'Set Object

Set fso = CreateObject("Scripting.FileSystemObject")

'Create Condition

If (fso.FileExists("C:\windows\system32\cmd.exe")) Then

'Alert User

WScript.Echo("File exists!")

WScript.Quit()

Else

'Alert User

WScript.Echo("File does not exist!")

End If

'Exit Script

WScript.Quit()

Check folder Existence

Checking of folder existence to minimise extra step in your script.

Below is an example to check for C:\Windows folder

set objDRV = CreateObject("Scripting.FileSystemObject")

If  objDRV.FolderExists("c:\windows") Then

(DO SOMETHING)

else

(DO ANOTHER THING)

End if 

Folder Creation

Here is how you create a folder

Just put in the folder destination on the 2^nd line and the name of the folder follow by “\”

Set objFSO = CreateObject("Scripting.FileSystemObject")

objFSO.CreateFolder("c:\(FOLDER NAME)\")

Done

Run CMD in VBS

create a blank text file and put in the code below

Set objShell = CreateObject("WScript.Shell")

objShell.run("ping 127.0.0.1")

Save the file as RunCMD.vbs

Create Input Box

create a blank text file and put in the code below

myInputBox = Inputbox("Here will show up the detail of the description","This is Input Box")

Save the file as InputBox.vbs

Saying Hello

This is the most basic thing we can do with VBS.

Just create a blank text file and put in the code below

WScript.Echo("HELLO! This is VBS")

Save the file as Hello.vbs

Double click and you will get a message on your screen.