poporin0201 の回答履歴

全1件中1~1件表示
  • ファイルを開く時間測定のスクリプトについて

    お世話になります 会社でログ監視ツールを導入するにあたりどの程度負荷がかかるのか 計測することになりました。 まず、ファイルを開くのにかかる時間をログに記録するための スクリプトを作成しました。 プログラムの最初と最後に時間を出力するというものです。 しかし、やってみたところ前後でまったく同じ時間が記録されていました。(秒まで) Runメソッドを使用し、ファイルが開き終わってから時間を記録するように するにはどういったロジックが必要なのか教えてください。 よろしくお願いします。 【現在のスクリプト】 Option Explicit Dim objWShell Dim objFs Dim outFile Dim vbNormalFocus Dim myData Set objFs = CreateObject("Scripting.FileSystemObject") Set outFile = objFs.CreateTextFile("ログファイルのパス", True) 'Trueは上書き可 Set objWShell = CreateObject("WScript.Shell") OutFile.WriteLine Now() objWShell.Run "rundll32.exe url.dll" & _ ",FileProtocolHandler 資料のパス", 1, TRUE OutFile.WriteLine Now() OutFile.WriteLine "終了" OutFile.Close