「10日でおぼえるVisual Basic.NET 入門教室」について

質問

「10日でおぼえるVisual Basic.NET 入門教室」の「第5日1時限目」の部分なのですが、本に書いてある通りに作業を進め、コードを入力したのですが、完成後にデバックをすると、エラーがおこってしまいます。

詳細は以下の部分です。

Private Sub Listup()
　　Dim Fname As String

　　Fname = Dir("c:\date\*.jpg",FileAttribute.Archive)

　　ListBox1.Items.Add(Fname)

　　Do
　　　　Fname = Dir()
　　　　If Fname = "" Then
　　　　　　Exit Do
　　　　End If
　　　　ListBox1.Itmes.Add(Fname)
　　Loop While Fname <> ""
End Sub

デバックをすると、上記の「Fname = Dir()」の部分で、「'Dir' 関数は、'Pathname' 引数で最初に呼び出されなければなりません。」と表示されます。

どうしても解決方法が分からないものですから、よろしくお願いいたします。

回答No.1

todo36 · ベストアンサー

バグっています。
Fname = Dir("c:\date\*.jpg",FileAttribute.Archive)
でファイルが見つらないのに、さらにdir()を呼んだから。正しくは↓のようにループを回します。

参考URL：

http://www.vbvbvb.net/jp/magazine/pupa/pupa03.xml

お礼

ご回答をありがとうございました。