投稿

3月, 2024の投稿を表示しています

JScriptでフォルダ操作

新規ディレクトリの作成 : // FileSystemObject オブジェクトを生成する var oFS = WScript . CreateObject ( "Scripting.FileSystemObject" ); // ディレクトリを新規作成する oFS. CreateFolder ( "c:\\sample01" ); この例では、Cドライブ直下に sample01 というディレクトリを作成しています。 ディレクトリのコピー : // FileSystemObject オブジェクトを生成する var oFS = WScript . CreateObject ( "Scripting.FileSystemObject" ); // ディレクトリをコピーする // コピーではなく移動させたい場合は MoveFolder メソッドを利用する oFS. CopyFolder ( "c:\\sample01" , "c:\\sample02" ); この例では、作成した sample01 ディレクトリを sample02 という名前でコピーしています。 ディレクトリの削除 : // FileSystemObject オブジェクトを生成する var oFS = WScript . CreateObject ( "Scripting.FileSystemObject" ); // 既存ディレクトリを削除する oFS. DeleteFolder ( "c:\\sample01" ); この例では、 sample01 ディレクトリを削除しています。 ディレクトリ名の変更 : // FileSystemObject オブジェクトを生成する var oFS = WScript . CreateObject ( "Scripting.FileSystemObject" ); // 名前を変更したいディレクトリをオブジェクト化する var oDir = oFS. GetFolder ( "c:\\sample02" ); // ディレクトリ名を変更する oDir. Nam...

HTA+VBScriptでフォルダ選択ダイアログボックスを表示する方法

HTA(HTML Application)と VBScript を組み合わせてフォルダ選択ダイアログボックスを表示する方法はいくつかありますが、一般的なのは Shell.Application オブジェクトの BrowseForFolder メソッドを使用する方法です。 以下に基本的なコード例を示します。 HTML <!DOCTYPE html > < html > < head > < title > フォルダ選択 </ title > < hta:application applicationname = "FolderSelect" border = "thin" caption = "yes" icon = "" maximizebutton = "no" minimizebutton = "yes" scroll = "no" showintaskbar = "yes" singleinstance = "yes" sysmenu = "yes" windowstate = "normal" > < script language = "VBScript" > Sub SelectFolder() Dim objShell, objFolder, strFolderPath ' Shell.Application オブジェクトを作成 Set objShell = CreateObject("Shell.Application") ' フォルダ選択ダイアログを表示 ' 引数の説明: ' 0: 親ウィンドウのハンドル (通常は 0) ' "フォルダを選択してください": ダイ...