vbscript.vbs 938 B

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