① 下のプログラムをコピーしてメモ帳に張り付けて、『ファイル作成.vbs』という名前でデスクトップに保存する。(ファイル名は何でもいい)
この下からコピー
Dim objArgs, arg, outputFile, fso, file
Set objArgs = WScript.Arguments
Set fso = CreateObject("Scripting.FileSystemObject")
If objArgs.Count > 0 Then
outputFile = CreateOutputFilePath()
Set file = fso.CreateTextFile(outputFile, True)
For Each arg In objArgs
file.WriteLine fso.GetBaseName(arg) & "." & fso.GetExtensionName(arg)
Next
file.Close
End If
Function CreateOutputFilePath()
Dim desktopPath
desktopPath = CreateObject("https://t.co/qyDInvTjP3").SpecialFolders("Desktop")
CreateOutputFilePath = desktopPath & "\" & fso.getbasename(WScript.ScriptName) & ".log"
End Function
この上までをコピー