[[20221201114854]]　『パス指定でエラー』（コンスト）　ページの最後に飛ぶ

『パス指定でエラー』（コンスト）

path を設定する場合
　　Const path As String = "D:\test\"
で上手く処理できる時に
毎回コードを書き換えるのは面倒なので
ダイアログでPathを選択するようにしたく
以下のようにコードを変更してみましたが

.SelectedItems(1)で
　　コンパイルエラー：　定数式が必要です
となります。

どうすれば良いでしょうか　？

'ダイアログでPathを選択
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = True Then
Const path As String = .SelectedItems(1) & "\"
End If
End With

＜使用 Excel：Office365、使用 OS：Windows10 ＞

 定数にする意味がないので、素直に変数でやればよいのでは?

（白茶） 2022/12/01(木) 12:01:35

マクロ内で変動しない場合でも、宣言時に右辺が関数等で変動する値の時はConstできないですよ
（ngk） 2022/12/01(木) 12:26:45

 横から失礼します。

 参考まで。

http://www.officetanaka.net/excel/vba/variable/13.htm
（MK） 2022/12/01(木) 13:10:01

定数にする意味がないので、素直に変数でやればよいのでは?

Const path As String = "D:\test\" を以下に置き換えると

Dim path As String
path = "D:\test\"

Set Shel = CreateObject("Shell.Application")
Set Foldr = Shel.Namespace(path)

Target = Dir(path & "*.mp4")

以後のDo While 文内でエラーが出ます。
実行エラー９１：　オブゼクト変数またはwithブロック変数が設定されていません。
　Cells(cnt, 1) = Foldr.GetDetailsOf(Foldr.ParseName(Target), 0) ' ファイル名

（コンスト） 2022/12/01(木) 13:14:41

コメント返信：

[ 一覧(最新更新順) ]

[[20221201114854]] 『パス指定でエラー』（コンスト） ページの最後に飛ぶ

[[20221201114854]]　『パス指定でエラー』（コンスト）　ページの最後に飛ぶ