プログラムでフォルダー内のファイルを印刷

ＶＢのプログラムを使って、指定したフォルダー内のサブフォルダー内も含めて、そこにあるファイル名を印刷するには、どのようにコーディングすれば良いか、ご存知の方は教えてください。よろしくお願いします。

No.1 回答者： kougasha 回答日時： 2001/12/15 02:36

DIR関数で、ループしながら素直に処理を記述する方式では駄目なのでしょうか？

プログラムそのものを書いて欲しいというのなら、ちょっと虫が良すぎかも．．．（笑）。
VBのオンラインヘルプに使用例が載っていると思いますよ。

No.2 ベストアンサー 回答者： osaosa42 回答日時： 2001/12/18 14:01

こんなんでどう？

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

'指定ファイルを印刷します。
Function MyPrintFile(srtPath As String) As Long
MyPrintFile=ShellExecute(Me.hwnd, "Print", strPath, "", "", 0)
End Function

この回答へのお礼

どうも有難うございました。お礼が遅れて申し訳ございませんでした。今後ともよろしく。

お礼日時：2002/01/13 14:26