VBS

VBSの配列

宣言 Dim ary() 要素数は1以上の整数でのみ指定可能。変数などはエラーになる。 〇Dim ary(10) ×Dim ary(num) 動的配列 一度宣言した配列を宣言し直す. ReDim aryString(20) こうすると配列の要素は全て空になる. ReDim Preserve aryString(20) Preserveを付…

ファイルを開く、開いているファイルを取得する

VBS

●ファイルを開く Option ExplicitDim objExcel, bkSet objExcel = CreateObject("Excel.Application")Set bk = objExcel.Workbooks.Open("ファイルパス") ●すでに開いているファイルを取得する Option ExplicitDim objExcel, bkSet objExcel = GetObject(,"E…

【WScript.Arguments】ドラッグ&ドロップしたtxtファイルの中身を配列に格納する

VBS

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

フォルダ内にある全ファイル名取得

VBS

VBSでファイルを取得してMsgを表示する Dim objFileSysDim objFolderDim objFile Set objFileSys = CreateObject("Scripting.FileSystemObject") 'フォルダオブジェクトを取得Set objFolder = objFileSys.GetFolder("ディレクトリ名") 'Folderオブジェクトの…

ログファイル作成 & 追記

VBS

VBSでログファイルを作成する Dim objFSO,objLogSet objFSO = WScript.CreateObject("Scripting.FileSystemObject")Set objLog = objFSO.OpenTextFile("ファイル名",8,True)objLog.WriteLine("任意の文字列")objLog.CloseSet objLog = Nothing Set objFSO = …

【RegExp】文字列比較

VBS

VBSで文字列を比較する Dim objRESet objRE = CreateObject("VBScript.RegExp")objRE.Pattern = "比較したい文字列"If objRE.Test("比較する文字列") Then 一致したときの動作Else 一致しないときの動作End IfSet objRE = Nothing 正規表現 文字列の先頭を指…

【メール自動作成&送信】CDO.Messageによるメール送信

VBScriptでメールを送信する。 Set objMail = CreateObject("CDO.Message") objMail.From = "username@gmail.com" objMail.To = "username@gmail.com" objMail.Subject = "SMTP認証、SSL通信によるメール送信テスト" objMail.TextBody = "CDO.Messageを利用…