FileListBoxコントロールのMultiSelectプロパティを「2-拡張」にして、
CtrlやShiftを併用することでファイルを複数選択できるようにしました。
とりあえず動作確認段階なので、ファイル選択状態でCommandButtonを押下することで、ファイル名を表示するようにしたいのですが、
Msgbox (File1.FileName) ※File1はFileListBoxコントロール名
では、当たり前の事ながら、(複数選択したうちの)1ファイルしか表示されません。FileNameプロパティにインデックスを付けるなど素人考えで色々当たってみたのですが、どうも上手くいきません。
選択した全てのファイル名をフルパスで取得したいのですが、何かいいテクニックはないでしょうか?
No.1ベストアンサー
- 回答日時:
k_o_j_iさん、こんばんは!
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub File1_PathChange()
Dir1.Path = File1.Path
End Sub
Private Sub Command1_Click()
For I = 0 To File1.ListCount - 1
If File1.Selected(I) Then Debug.Print Dir1.Path & "\" & File1.List(I)
Next I
End Sub
でフルパスで選択したファイル名が表示されます。
即座の回答どうもありがとうございます。
>For I = 0 To File1.ListCount - 1
>If File1.Selected(I) Then Debug.Print Dir1.Path & "\" & File1.List(I)
>Next I
ListBoxと同じやり方なのですね。
FileNameプロパティに拘泥しすぎてしまったようです。
実行してみたところ上手くいきました。
ところでここで取得したファイル名を1つずつ配列変数に格納したいのですが、
配列変数を宣言するときにはあらかじめ選択ファイル数がわかっている必要があります。
こういう場合は、やはりFor~Next文2回まわし(1回目で選択ファイル数取得、Redimでその数字を変数の次元に指定、2回目で配列変数に各ファイル名を格納)しかないのでしょうか?
出来ればループ処理は少なくしたいのですが……
No.4
- 回答日時:
k_o_j_iさん、おはようございます。
選択ファイル数のプロパテイがあるかどうか、しりませんので、専門家の方、教えて下さい。
ReDim TBL(File1.ListCount)
とその時の最大配列ではマズイのでしょうか?
選択した数の分だけの配列にしなくてはいけない理由がわかりませんが、
どうしてもそうであれば、2回ループでしょうね。
ループ処理を少なくしたいのであれば、
ReDim TBL(j)
とループの中で ReDim する方法もあるけど、何か本末転倒のような気がします。
おはようございます!(もうすっかり晩ですが 笑)
>ReDim TBL(File1.ListCount)
>とその時の最大配列ではマズイのでしょうか?
割り当てられるメモリ量などは大したこと無いでしょうから、
それでもいいのですが、出来れば一旦配列変数に全選択ファイル名を格納して、
処理の前に「○個のファイルを処理します」といったメッセージを
入れたかったんです。
>ループ処理を少なくしたいのであれば、
>ReDim TBL(j)
>とループの中で ReDim する方法もあるけど、何か本末転倒のような気がします。
ループ2回まわしか、ループ内でRedim Preserveを使うか、の二者択一ですね。
とりあえず今回は後者採用でいってみたいと思います。
どうも色々とありがとうございました。
No.3
- 回答日時:
> ところでここで取得したファイル名を1つずつ配列変数に格納したいのですが、
> 配列変数を宣言するときにはあらかじめ選択ファイル数がわかっている必要があります。
> こういう場合は、やはりFor~Next文2回まわし(1回目で選択ファイル数取得、Redimでその数字を変数の次元に指定、2回目で配列変数に各ファイル名を格納)しかないのでしょうか?
> 出来ればループ処理は少なくしたいのですが……
>
これもヘルプの Redimにのっていると思うのですが、preserveという宣言方法があります。
ご教授いただきどうもありがとうございます。
Redim preserve 変数(idx)
で、変数の内容を保持したまま、再定義が出来るんですね。
となると、やはり
Option Base 1
Dim strFileName() As String
j = 1
For I = 0 To File1.ListCount - 1
Redim Preserve strFileName(j)
If File1.Selected(I) Then
strFileName(j) = Dir1.Path & "\" & File1.List(I)
j = j + 1
End If
Next I
の様にループ内部でRedim Preserveを使うのが良さそうですね。
No.2
- 回答日時:
たぶんVB6だと思いますが、ヘルプに書かれていませんか?キーワードは「Selected」です。
VB6は内容は全てヘルプに書かれています。
ヘルプに書かれていない内容は「サポート情報」を別にして誰にもわかりません。
この回答への補足
おっしゃるとおり、HELPに書かれていました。
下にも書きましたが、Selectedプロパティの例文が
ListBox主体に書かれていたので、気が付きませんでした。
>ヘルプに書かれていない内容は「サポート情報」を別にして
>誰にもわかりません。
VisualStudio6.0のHELPは確かに充実していますが、
「こういう処理をやりたい」という場合、
キーワードがわからないとかなり難渋するのが玉に瑕です……。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Windows 10 windowsのファイル複数選択について エクスプローラーなどでファイルを複数選択する際、 最初のフ 4 2022/05/22 16:39
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) 集めたシートのシート名を変更したい。 下記のコードでサブフォルダにあるファイルのSheet3を集めて 6 2022/08/23 10:38
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/06 17:46
- Visual Basic(VBA) サブフォルダ(データ)にある複数の.xlsxファイルのSheet3のA2セルの値で01から左側をB2 2 2022/08/14 15:46
- CGI htmlからパラメータで、cgiに渡したい。 1 2023/02/06 16:15
- その他(プログラミング・Web制作) セレクトボックスで選択された値をコントローラーで使用したい 2 2022/07/26 16:41
- Visual Basic(VBA) VBA 参照先で選んだファイルをコピーし、出力先に別名で保存したい 8 2022/05/13 20:37
- Excel(エクセル) EXCELのグラフを画像(JPG形式)で保存、通常実行がうまく行かない。ステップインはうまく行く 3 2022/08/30 12:06
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
array関数で格納した配列の型を...
-
ExcelのINDEXとMATCH関数でスピ...
-
Excelのセルの色指定をVBAから...
-
配列がとびとびである場合の書き方
-
表にフィルターをかけ、絞った...
-
[エクセル]連続する指定範囲か...
-
DataSetから、DataTableを取得...
-
エクセルで、絶対値の平均を算...
-
スプレットシートのGetTextにつ...
-
【VBA】ユーザーフォーム リス...
-
Datatableへの代入
-
Excel VBA 配列の分割について
-
.NET - 配列変数を省略可能の引...
-
仮想リストコントロールの表示
-
[VBA]改行入りのセルの値を配列...
-
エクセルVBAで変数をセルに一行...
-
【VBA】配列に数式を仕込む方法...
-
配列のSession格納、及び取得方...
-
VBAでの100万行以上のデータの...
-
VBAで指定期間の範囲を抽出し、...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelのセルの色指定をVBAから...
-
array関数で格納した配列の型を...
-
ExcelのINDEXとMATCH関数でスピ...
-
[エクセル]連続する指定範囲か...
-
エクセルで、絶対値の平均を算...
-
VBA listBoxについて
-
配列がとびとびである場合の書き方
-
表にフィルターをかけ、絞った...
-
VBA 配列に格納した値の平均の...
-
[VBA]改行入りのセルの値を配列...
-
エクセルでエラーを無視して一...
-
iniファイルのキーと値を取得す...
-
二次元配列の中の各行の要素を...
-
SUMPRODUCT関数を用いた最小値
-
【VBA】ユーザーフォーム リス...
-
Split関数でLong配列に格納する...
-
【VBA】配列に数式を仕込む方法...
-
.NET - 配列変数を省略可能の引...
-
スプレットシートのGetTextにつ...
-
Excelのオートフィルタで抽出し...
おすすめ情報