同フォルダの拡張子が違うのを再生するには？ (ID:114346)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 あの 0001.aviのファイルの拡張子ってAVIファイルだから music = music & "0001.avi" ではないでしょうか? もし、起動直後、ダイアログボックスを使わずに同フォルダにある ファイルでいろんな拡張子を再生したいということならば・・・ 下に方法を記載しておきます。 １、App.Pathを使いそのアプリケーションがあるフォルダのパスを取得 ２、上で記載したパスを使いフォルダ検索でファイルのパスを取得し、配列に入れる ３、For文を使い、配列に入れたパスの拡張子を確認し、音楽ファイルか動画ファイルだった場合別の配列に入れる。その時、コツとしては、カウンターを取っておく。 つまり、こういうこと Dim a() as String '←これはフォルダ検索でファイルのパスを取得した配列 Dim b() as String Dim i as Integer Dim k as Integer=0 for i=0 to UBound(a) If 拡張子の確認 then '動画ファイルか音楽ファイルだった場合の処理 b(k)=a(i) k=k+1 End If next ４、bの配列の数を数える ５、WindowsMediaPlayer1.URL = b(0) とこんな感じでパスをWindowsMediaPlayerに入れる。 manabuさんが書いているソースはVB6のソースですね。 あと、ここに書いてあるソースVB.NETのソースです。 でも、結果的にこのぐらいの関数はVB6でもおそらくあるでしょう。 私はVB6はさわり程度にしかやっていないので、聞かれていも答えようがありません。 VB.NETなら答えられますけどね。 とりあえず、この手順で何とかなると思います。 ダメだったら根性で・・・（笑