mirror of
https://github.com/filebrowser/filebrowser.git
synced 2025-05-10 04:02:57 +00:00
0afb9e732c
Former-commit-id: bdede6ed1b6f578f2ef046c338caf02d0b29d453 [formerly 7187de361b53e9c8ec121df379b762f2db736ea2] Former-commit-id: 447d58460fbbfd05ffe08428a1288e392637561d
23 lines
916 B
Plaintext
23 lines
916 B
Plaintext
myfilename = "C:\Wikipedia - VBScript - Example - Hello World.txt"
|
|
MakeHelloWorldFile myfilename
|
|
|
|
Sub MakeHelloWorldFile (FileName)
|
|
'Create a new file in C: drive or overwrite existing file
|
|
Set FSO = CreateObject("Scripting.FileSystemObject")
|
|
If FSO.FileExists(FileName) Then
|
|
Answer = MsgBox ("File " & FileName & " exists ... OK to overwrite?", vbOKCancel)
|
|
'If button selected is not OK, then quit now
|
|
'vbOK is a language constant
|
|
If Answer <> vbOK Then Exit Sub
|
|
Else
|
|
'Confirm OK to create
|
|
Answer = MsgBox ("File " & FileName & " ... OK to create?", vbOKCancel)
|
|
If Answer <> vbOK Then Exit Sub
|
|
End If
|
|
'Create new file (or replace an existing file)
|
|
Set FileObject = FSO.CreateTextFile (FileName)
|
|
FileObject.WriteLine "Time ... " & Now()
|
|
FileObject.WriteLine "Hello World"
|
|
FileObject.Close()
|
|
MsgBox "File " & FileName & " ... updated."
|
|
End Sub |