こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

回答受付中の質問

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

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

投稿日時 - 2018-09-13 10:58:26

QNo.9536832

暇なときに回答ください

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.2

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

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

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

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

投稿日時 - 2018-09-14 11:28:03

お礼

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

投稿日時 - 2018-09-14 14:13:32

ANo.1

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

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

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」で解放しておきます。

投稿日時 - 2018-09-14 07:38:11

補足

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

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

投稿日時 - 2018-09-14 08:16:10

あなたにオススメの質問