corrade-nucleus-nucleons – Blame information for rev 20
?pathlinks?
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 20 | office | 1 | myfilename = "C:\Wikipedia - VBScript - Example - Hello World.txt" |
| 2 | MakeHelloWorldFile myfilename |
||
| 3 | |||
| 4 | Sub MakeHelloWorldFile (FileName) |
||
| 5 | 'Create a new file in C: drive or overwrite existing file |
||
| 6 | Set FSO = CreateObject("Scripting.FileSystemObject") |
||
| 7 | If FSO.FileExists(FileName) Then |
||
| 8 | Answer = MsgBox ("File " & FileName & " exists ... OK to overwrite?", vbOKCancel) |
||
| 9 | 'If button selected is not OK, then quit now |
||
| 10 | 'vbOK is a language constant |
||
| 11 | If Answer <> vbOK Then Exit Sub |
||
| 12 | Else |
||
| 13 | 'Confirm OK to create |
||
| 14 | Answer = MsgBox ("File " & FileName & " ... OK to create?", vbOKCancel) |
||
| 15 | If Answer <> vbOK Then Exit Sub |
||
| 16 | End If |
||
| 17 | 'Create new file (or replace an existing file) |
||
| 18 | Set FileObject = FSO.CreateTextFile (FileName) |
||
| 19 | FileObject.WriteLine "Time ... " & Now() |
||
| 20 | FileObject.WriteLine "Hello World" |
||
| 21 | FileObject.Close() |
||
| 22 | MsgBox "File " & FileName & " ... updated." |
||
| 23 | End Sub |