気軽に「こんなソフトありませんか？｣ Part.103

気軽に「こんなソフトありませんか？｣ Part.103 at SOFTWARE

420:名無しさん＠お腹いっぱい。
09/02/15 19:38:00 J1vbVhNS0
>>419
その程度だとソフトはないと思う

TextFileName = "C:\Test.txt" '出力ファイル名フルパスで
strHead = "aaaa" '先頭に付加する文字
strFood = "bbb" '後方に付加する文字

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(TextFileName, True)
Set objArgs = WScript.Arguments
For i = 0 to objArgs.Count - 1
a.WriteLine strHead & fs.GetBaseName(objArgs(i)) & strFood
Next
a.Close

'拡張子vbsで保存

次ページ

続きを表示

1を表示