How to run a file using VisualBasicScript (.vbs)

Question

How can I run a file with VisualBasicScript (.vbs)?

The file is 'file.bat' and it's located in the same dir as the .vbs.

@YourComputerHelpZ - you are a getting lot of great answers. Maybe you should explain what is your objective. Open the 'file.bat' and then do what? Display its contents in a message box, edit some text, run the batch file, etc? — ichiban
– ichiban, Commented Jun 5, 2009 at 15:26

Helen · Accepted Answer · 2009-06-05 15:45:08Z

21

yes i want to run it.

Then try this:

CreateObject("WScript.Shell").Run "file.bat"

answered Jun 5, 2009 at 15:45

Helen

99.7k17 gold badges280 silver badges352 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

gimel · Accepted Answer · 2009-06-05 15:16:55Z

See many examples on technet Script Center Script Repository.

A simple example is Select and Ping Computers Using a Text File:

On Error Resume Next

Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("c:\scripts\servers.txt", ForReading)

strComputers = objTextFile.ReadAll
objTextFile.Close

arrComputers = Split(strComputers, vbCrLf)
Set objShell = CreateObject("WScript.Shell")

For Each strComputer In arrComputers

    strCommand = "%comspec% /c ping -n 3 -w 1000 " & strComputer
    Set objExecObject = objShell.Exec(strCommand)
    strText = objExecObject.StdOut.ReadAll
    If Instr(strText, "Reply") > 0 Then

    ' =====================================================================
    ' Insert your code here
    ' =====================================================================

        Set objWMIService = GetObject _
            ("winmgmts:\\" & strComputer & "\root\cimv2")
        Set colItems = objWMIService.ExecQuery _
            ("Select * From Win32_OperatingSystem")
        For Each objItem In ColItems
            Wscript.Echo strComputer & ": " & objItem.Caption
        Next


    Else
        Wscript.Echo strComputer & " could not be reached."
    End If

Next

cmsjr · Accepted Answer · 2009-06-05 15:29:43Z

0

Use the FileSystemObject

Usage to open file:

Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(".\File.bat", ForReading)

edited Jun 5, 2009 at 15:29

answered Jun 5, 2009 at 15:12

cmsjr

59.6k11 gold badges76 silver badges63 bronze badges

4 Comments

cmsjr Over a year ago

see above, that will get you as file as opening a file, In this case it is being opened for reading, you can also specify for writing or appending.

cmsjr Over a year ago

Note ForWriting will overwrite any current contents.

cmsjr Over a year ago

My bad, you need to locally define the const ForReading, above edited. Please clarify, "I would like .bat"

cmsjr Over a year ago

Does it give you an exception? What exactly do you want to do with the file when you open it? Given that it is a bat file, do you actually want to "run" the batch file?

tahwos · Accepted Answer · 2017-12-03 17:37:20Z

function getFileInfo(filePath)
    dim fso, fileObj, outMsg
    set fso = createobject("Scripting.FileSystemObject")
    set fileObj = fso.getfile(filePath)
    outMsg = ""
    outMsg = outMsg & " Created: " & fileObj.DateCreated & vbcrlf
    outMsg = outMsg & " Last Accessed: " & fileObj.DateLastAccessed & vbcrlf
    outMsg = outMsg & " Last Modified: " & fileObj.DateLastModified & vbcrlf
    outMsg = outMsg & " File Type: " & fileObj.Type & vbcrlf
    if fileObj.attributes and 0 then
        outMsg = outMsg & " File Attributes: Normal File"
    else
        outMsg = outMsg & " File Attributes: "
        if fileObj.attributes and 1 then
            outMsg = outMsg & "Read Only "
        end if
        if fileObj.attributes and 2 then
            outMsg= outMsg & "Hidden "
        end if
        if fileObj.attributes and 4 then
            outMsg= outMsg & "System "
        end if
        if fileObj.attributes and 8 then
            outMsg= outMsg & "Volume "
        end if
        if fileObj.attributes and 16 then
            outMsg= outMsg & "Directory "
        end if
        if fileObj.attributes and 32 then
            outMsg= outMsg & "Archive "
        end if
        if fileObj.attributes and 1024 then
            outMsg= outMsg & "Link "
        end if
        if fileObj.attributes and 2048 then
            outMsg= outMsg & "Compressed "
        end if
    end if
    set fileObj = nothing
    set fso = nothing
    getFileInfo = outMsg
end function

Alex Casal · Accepted Answer · 2019-04-22 11:43:08Z

0

Even simplier This code works for all OS, I tried it in Windows 10 and it works so well: Try it by yourself :)

Function BrowseForFile()
  BrowseForFile = CreateObject("WScript.Shell").Exec( _
  "mshta.exe ""about:<input type=file id=f>" & _
  "<script>resizeTo(0,0);f.click();new ActiveXObject('Scripting.FileSystemObject')" & _
  ".GetStandardStream(1).WriteLine(f.value);close();</script>""" _
  ).StdOut.ReadLine()
End Function

answered Apr 22, 2019 at 11:43

Alex Casal

11 bronze badge

Comments

cello · Accepted Answer · 2016-12-29 22:11:37Z

-3

Jamb Code:

jamb(run) "%PWD%\File.bat" & display box(small) with $OUTPUT

VBS Code:

set runFile (".\file.bat")
mode console
msgbox (runFile)

edited Dec 29, 2016 at 22:11

cello

5,4963 gold badges26 silver badges29 bronze badges

answered Dec 29, 2016 at 20:36

Microsoft

1

1 Comment

Antti Haapala Over a year ago

I am not sure this answers the question

Collectives™ on Stack Overflow

How to run a file using VisualBasicScript (.vbs)

6 Answers 6

Comments

2 Comments

4 Comments

1 Comment

Comments

1 Comment

Linked

Hot Network Questions

Collectives™ on Stack Overflow

6 Answers 6

Comments

2 Comments

4 Comments

1 Comment

Comments

1 Comment

Linked

Related