5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

だいなファイラー使いが一日中張り付くスレ Part3

241 :名無しさん@お腹いっぱい。:05/02/07 00:35:42 ID:GTwVHGk4
VBSで新規作成じゃダメかな。
一番最初と最後とSet ws〜を削れば作成だけして終了も出来るお。
Const EDITOR = "JmEdit2.exe"
Set arg = WScript.Arguments
Set fso = CreateObject("Scripting.FileSystemobject")
Set ws = CreateObject("WScript.Shell")
If arg.count = 0 Then WScript.Quit
CurrDir = arg(0)
if fso.FolderExists(CurrDir) = False Then WScript.Quit
If Not Right(CurrDir, 1) = "\" Then CurrDir = CurrDir & "\"
tName = InputBox("Input file name.")
if tName = "" Then WScript.Quit
fn = CurrDir & tName
fso.CreateTextFile(fn)
ws.Run(EDITOR & " " & fn)

ってかぶったw既にあるあるwww

95 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)