同一ディレクトリ内のファイル (ID:83999)

名前

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

本文 Dir関数を使えば同一拡張のファイルを取得できます。 Private Sub Command1_Click() Dim sPath$, sFile As String sPath = "C:\A\" sFile = Dir$(sPath & "*.log") Do Until (Len(sFile) = 0) Debug.Print sPath & sFile sFile = Dir$() Loop End Sub