■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#24640-0DIR命令での複数拡張子指定匿名246402000-06-30(金) 03:33
     #24641-0RE#24640:DIR命令での複数拡張子指定S.P2000-06-30(金) 08:10
#24640-0
DIR命令での複数拡張子指定
さっそくですが
DIR命令について教えてください
(というよりワイルドカードについて)

windowsフォルダーで
すべてのbmpファイルとjepgファイルの
ファイル名を取得したいのですが
bmpファイルだけの場合は

Private Sub Command1_Click()
Dim i As Long
Dim temp As String
Dim are As String
Text1.Text = ""
are = "C:\WINDOWS\*.bmp"
temp = Dir(are)
Text1.Text = temp
For i = 1 To 10000
temp = Dir()
If temp = "" Then Exit For
Text1.Text = Text1.Text & vbNewLine & temp
Next i
End Sub

でOKだったのですが
jepgファイルも取得するにはどうしたらいいのでしょうか?
教えてください
#24641-0
RE#24640:DIR命令での複数拡張子指定
> windowsフォルダーで
> すべてのbmpファイルとjepgファイルの
> ファイル名を取得したいのですが
> bmpファイルだけの場合は
> 
> Private Sub Command1_Click()
> Dim i As Long
> Dim temp As String
> Dim are As String
>
> Text1.Text = ""
> are = "C:\WINDOWS\*.bmp"
> temp = Dir(are)
> Text1.Text = temp
> End Sub
> > For i = 1 To 10000
>    temp = Dir()
>    If temp = "" Then Exit For
>    Text1.Text = Text1.Text & vbNewLine & temp
> Next i

> でOKだったのですが
> jepgファイルも取得するにはどうしたらいいのでしょうか?
> 教えてください

複数回やるしかないようですね。
で、一つ突っ込みですが、
> For i = 1 To 10000
>    temp = Dir()
>    If temp = "" Then Exit For
>    Text1.Text = Text1.Text & vbNewLine & temp
> Next i
ではなく、
temp = Dir(are)
Do Until temp=""
   Text1.Text = Text1.Text & vbNewLine(またはvbCrlf) & temp
   temp = Dir()
Loop
のほうがよいと思いますよ。
このページと関連する記事:
#28180-0超初心者です 教えてください T△T2002-04-11(木) 20:23
#36343-0テキスト連続読み込みによる計算処理2001-01-04(木) 15:35
#6986-0ディレクトリ検索方法2000-03-29(水) 17:33
#24142-0自動的に増える配列2001-10-29(月) 03:25
#28627-0VBでPING2000-08-24(木) 19:27
#20568-0INIファイルからの文字列取得について2002-04-12(金) 21:47
#20942-0テキストの書き方2002-05-28(火) 10:36
#1491-2改行表示2002-07-08(月) 11:42
#574-1桁数の読み方を教えて下さい2002-08-30(金) 04:36
#22999-0一行づつ読み取り、各テキストボックスへ・・・2001-09-06(木) 19:35
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)