☰

画面解像度を取得してテキスト ファイルに保存するにはどうすればよいでしょうか?

tag-icon • tag-icon vbscript screenresolution
画面解像度を取得してテキスト ファイルに保存するにはどうすればよいでしょうか?

画面解像度を取得するための次のVBSスクリプトを見つけました

しかし、結果をテキストファイルに保存したいのですが、助けてください

    Dim HTM, wWidth, wHeight
    Set HTM = CreateObject("htmlfile")
    wWidth = HTM.parentWindow.screen.Width
    wHeight = HTM.parentWindow.screen.Height
    wscript.echo wWidth & "X" & wHeight

答え1

新しいテキスト ファイルに保存するには、必要に応じて次の VBScript を使用することをお勧めします。

Dim HTM, wWidth, wHeight
Set HTM = CreateObject("htmlfile")
wWidth = HTM.parentWindow.screen.Width
wHeight = HTM.parentWindow.screen.Height
wscript.echo wWidth & "X" & wHeight

Set objFileToWrite = CreateObject("Scripting.FileSystemObject").OpenTextFile("D:\file.txt",2,true)
objFileToWrite.WriteLine("--- screen resolution start -------------------------")
objFileToWrite.WriteLine( wWidth & "X" & wHeight)
objFileToWrite.WriteLine("--- screen resolution end   -------------------------")
objFileToWrite.Close
Set objFileToWrite = Nothing

既存のテキストファイルの末尾にテキストを追加したい場合は、IOModeパラメータを8次のように簡単に変更できます。

("D:\file.txt",8,true)

パラメータtrueは、ファイルが新しく作成されたか、またはすでに存在しているかを確認しますfalse。

関連情報