Skip to content

Instantly share code, notes, and snippets.

@eggist77
eggist77 / textRead.vbs
Created March 22, 2019 13:02
textRead
'test
'Read a text file
'iomode
Const ForReading = 1, ForWriting = 2, ForAppending = 8
txtFile = "txtfile.txt"
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(txtFile, ForReading)
メモ帳,%windir%\System32\notepad.exe
@eggist77
eggist77 / shortcutadd.vbs
Last active February 24, 2019 00:17
[VBS]ショートカットを作成する
Option Explicit
'variable declaration
Dim crDir, f, line, ary, fName
Dim fso, wsh
Set fso = CreateObject("Scripting.FileSystemObject")
Set wsh = CreateObject("WScript.Shell")