VBSciptでの「フォルダ指定ダイアログ」について教えてください。
「フォルダ指定ダイアログ」を利用して、保存元のフォルダと保存先の
フォルダを選択し、特定ファイル(*.jpg)のコピーをするツールを作っています。
下記のプログラムで、「フォルダ指定ダイアログ」が表示されるのは
確認できたのですが、選択したフォルダの階層をテキストフォームに
表示させる方法を教えてください。(書き込みできませんのエラーになります。)
---------------------------------------------------------
Dim objShell
Dim objFolder
' オブジェクトの生成
Set objShell = CreateObject("Shell.Application")
' フォルダ選択ダイアログを表示
Set objFolder = objShell.BrowseForFolder(0, "フォルダを選択してください。", 0)
Set objShell = Nothing
---------------------------------------------------------
以上、宜しくお願い致します。
No.1ベストアンサー
- 回答日時:
私も手探りだが、下記を実行してみてください。
望むものかな。
Sub test01()
Dim objShell
Dim objFolder
Dim objfolderx
Dim objfile
' オブジェクトの生成
Set objShell = CreateObject("Shell.Application")
' フォルダ選択ダイアログを表示
Set objFolder = objShell.BrowseForFolder(0, "フォルダを選択してください", 0)
MsgBox objFolder
MsgBox objFolder.items.Item.Path
p = objFolder.items.Item.Path
'--
Set objfs = CreateObject("Scripting.FileSystemObject")
Set objfolderx = objfs.getfolder(p & "\")
MsgBox objfolderx.Name
For Each objfile In objfolderx.Files
MsgBox objfile.Name
Next
'-
Set objfs = Nothing
Set objfolderx = Nothing
Set objShell = Nothing
End Sub
ーーーー
MsgBox objFolder
が質問の答えかな。
あとFSOで引き取って、そこの中のファイル名を表示しているつもり。
MsgBoxは確認後は削除して、必要な箇所に「処理」のコードを入れてください。
imogasi さん
ありがとうございます。.htmlではエラーになってしまったので、
.htaで保存した場合には動きました。
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder( _
0, "フォルダを選択:", 0, "ssfDeskTop")
If objFolder Is nothing Then
MsgBox("フォルダを選択してください。")
Else
pathFolder = objFolder.Items().Item().Path
ifd.value = vbCr & pathFolder
Set objFolder = nothing
End If
End sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/06 17:46
- Visual Basic(VBA) VBA 参照先で選んだファイルをコピーし、出力先に別名で保存したい 8 2022/05/13 20:37
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Visual Basic(VBA) シートをコピーする下記記述でダイアログを用いた記述がわかりません?( A = Dir(ThisWor 4 2022/08/22 12:26
- その他(プログラミング・Web制作) セレクトボックスで選択された値をコントローラーで使用したい 2 2022/07/26 16:41
- Visual Basic(VBA) VBAでファイル名を指定して保存するとき 4 2023/03/26 21:55
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/05/24 08:33
- C言語・C++・C# Seleniumで「ファイルを開く」ダイアログボックスのフォルダ指定する方法を教えてください。 1 2022/05/09 07:38
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
vbscriptで、ファイル選択ダイアログを前面に出したい。
その他(プログラミング・Web制作)
-
vbsで選択ダイアログを表示したいのですがやり方が分かりません。教えて
その他(プログラミング・Web制作)
-
VBSで起動したアプリが前面表示しない
Visual Basic(VBA)
-
-
4
VBSでファイルを指定のフォルダに保存
Visual Basic(VBA)
-
5
Excelのセルにユーザー名を表示する方法
Excel(エクセル)
-
6
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
7
VBScriptで外部プログラム実行中に「処理中」のダイアログボックスを表示したい
その他(プログラミング・Web制作)
-
8
vbsからのExcelマクロ呼び出しの際に保存ダイアログが表示されてしまう
その他(プログラミング・Web制作)
-
9
VBSで変数の宣言はできないのですか?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
デスクトップの画像をhtmlに表...
-
Windows10でコマンドプロンプト...
-
ファイル名と同名のフォルダを...
-
VBA 最新のフォルダ取得
-
ExcelのVBAでフォルダ指定がで...
-
ファイル名から該当フォルダへ移動
-
【マクロ】ファイル名の日付に...
-
多量のファイルをフォルダに自...
-
パス名に2バイト文字(マルチバ...
-
VBA フォルダ名に特定の文字を...
-
同一フォルダ内の別ブックから...
-
ExcelのVBAでの複数階層からの...
-
FTPでフォルダごとにパスワード...
-
[VBS] Unicodeの文字化けを防ぎ...
-
カレントフォルダって?
-
エクセルマクロで指定フォルダ...
-
VBSでファイル名と同じフォルダ...
-
Excel VBA フォルダ存在チェッ...
-
フォルダ作成と同時に作成され...
-
あるフォルダーのファイルを違...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
windowsでテキストファイルの各...
-
VBA 最新のフォルダ取得
-
ファイル名と同名のフォルダを...
-
デスクトップの画像をhtmlに表...
-
VBA フォルダ名に特定の文字を...
-
Excelのハイパーリンクについて...
-
フォルダ内のPDFファイル名を変...
-
Excelで指定したフォルダに保存...
-
会社のネットワーク上のファイ...
-
【マクロ】ファイル名の日付に...
-
保存先のフォルダ名を指定した...
-
多量のファイルをフォルダに自...
-
パス名に2バイト文字(マルチバ...
-
ディレクトリ名変更してコピー...
-
C ファイル出力で、フォルダが...
-
Access VBA で フォルダ権限...
-
サーバ内のフォルダ名と各フォ...
-
フォルダにリンクを貼りたい
-
vbsで選択ダイアログを表示した...
おすすめ情報