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

質問

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

回答No.2

Prome_Lin

少し調べてはみましたが、お望みのようなサイトは発見できませんでした。

また、デスクトップに配置する場合、ディスプレイの解像度に依存しますので、もし、できたとしても、かなり複雑なプログラムになるはずです。

「yoko = 20」「tate = 50」と言っても、それぞれのパソコンのディスプレイによって、位置が異なるのです。

もう少し調べてみますが、期待しないでください。

お礼

調べてくださりありがとうございます。
ディスプレイ解像度に依存という考えにも思い至りませんでした。
私も別の視点からもう一度考えてみようと思います。
二度もご回答いただきありがとうございました。

回答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でデスクトップ 画面上の好きな場所にアイコンを移動することは可能でしょうか？