VBSで新規フォルダ作成について

質問

デスクトップ に新規フォルダを作成する際に配置を指定することは可能でしょうか？
方法があればどなたかご教示願います。

回答No.1

Prome_Lin

「配置を指定する」とはどういう意味でしょうか？

もちろん、デスクトップフォルダに新規フォルダを作成するのは、以下で出来ます。

Option Explicit
Dim dt, so, ws
Set so = CreateObject("Scripting.FileSystemObject")
Set ws = CreateObject("WScript.Shell")
dt = ws.SpecialFolders("Desktop")
so.CreateFolder(dt & "\abc")
Set ws = Nothing
Set so = Nothing

簡単な説明です。

Option Explicit

「厳密に」とか「明確に」というような意味で、このオプションを設定すると、変数は、その使用の前に、必ず「Dim」等によって宣言しておかなければなりません。

Set so = CreateObject("Scripting.FileSystemObject")

ファイルやフォルダを扱えるようにしています。

Set ws = CreateObject("WScript.Shell")

「デスクトップ」フォルダの取得に必要です。

dt = ws.SpecialFolders("Desktop")

「デスクトップ」フォルダを文字列変数「dt」に入れています。

so.CreateFolder(dt & "\abc")

「デスクトップ」フォルダに「abc」というサブフォルダを新規作成しています。

Set ws = Nothing
Set so = Nothing

「Set」で使った変数は、「Nothing」で解放しておきます。

補足

作成時の詳しい解説ありがとうございます。
勉強になります。
ご指摘いただいた「配置」について補足します。
デスクトップ画面 上に表示されるアイコンの設定について、「アイコンの自動整列」をオフにするとアイコンを、デスクトップ 画面上の好きな場所に配置出来るようになると思います。この事を指して「配置」と書かせていただきました。

VBSでデスクトップ 画面上の好きな場所にアイコンを移動することは可能でしょうか？