msgbox "Message in the box", 0, "Message in the title bar" |
Dim theDate theDate = Date() msgbox theDate, 0 |
Call MySub() msgbox "This is from the main body" Sub MySub() msgbox "This is from the sub routine" End Sub |
Dim MyWord MyWord = "Hi There" Call MySub(MyWord) Sub MySub(MyWord) msgbox MyWord End Sub |
txtFilepath = "in.txt" txtOut = "out.txt" Dim objFSO, objTextFilein, objTextFileout Dim sRead, sReadLine, sReadAll Const ForReading = 1, ForWriting = 2, ForAppending = 8 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFilein = objFSO.OpenTextFile(txtFilepath, ForReading) On Error Resume Next sReadLine = objTextFilein.ReadLine If Err.Number = 62 Then objTextFilein.Close Set txtFilepath = objFSO.GetFile("in.txt") txtFilepath.Delete() Else Set objTextFileout = objFSO.CreateTextFile(txtOut, ForWriting) Do While Not objTextFilein.AtEndOfStream sReadLine = objTextFilein.ReadLine objTextFileout.WriteLine(sReadLine) loop set sReadLine = Nothing objTextFilein.Close objTextFileout.Close Set txtFilepath = objFSO.GetFile("in.txt") txtFilepath.Delete() Set txtOut = objFSO.GetFile("out.txt") txtOut.Copy("in.txt") txtOut.Delete() End If |
txtFilepath = "in.txt" txtOut = "out.txt" Dim objFSO, objTextFilein, objTextFileout Dim sRead, sReadLine, sReadAll Dim LineCount Const ForReading = 1, ForWriting = 2, ForAppending = 8 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFilein = objFSO.OpenTextFile(txtFilepath, ForReading) Set objTextFileout = objFSO.CreateTextFile(txtOut, ForWriting) LineCount = 1 sReadLine = objTextFilein.ReadLine Do While Not objTextFilein.AtEndOfStream sReadLine = objTextFilein.ReadLine LineCount = LineCount + 1 loop objTextFileout.WriteLine(LineCount) set sReadLine = Nothing objTextFilein.Close |
txtFilepath = "count.txt" Dim objFSO, objTextFilein, objTextFileout Dim sRead, sReadAll, sReadLine Dim Count Const ForReading = 1, ForWriting = 2, ForAppending = 8 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFilein = objFSO.OpenTextFile("count.txt", ForReading, ForWriting) count = objTextFilein.ReadLine objTextFilein.Close count = count + 1 Set objTextFileout = objFSO.CreateTextFile(txtFilepath, ForWriting) objTextFileout.Write(count) set sReadLine = Nothing objTextFileout.Close |
With IE .navigate "C:\webPage.html" .visible=1 .Close End With |