2018-06-01から1ヶ月間の記事一覧
Dim GetPathSet GetPath = WScript.Arguments'ドラッグ&ドロップされていなければ中断If GetPath.Count = 0 Then MsgBox "ファイルをドラッグ&ドロップしてください。",,"警告" Wscript.QuitElseIf GetPath.Count > 1 Then MsgBox "2つ以上のファイルがド…
Dim GetPathSet GetPath = WScript.Arguments'ドラッグ&ドロップされていなければ中断If GetPath.Count = 0 Then MsgBox "ファイルをドラッグ&ドロップしてください。",,"警告" Wscript.QuitElseIf GetPath.Count > 1 Then MsgBox "2つ以上のファイルがド…