How do I write filenames to a text file?



Read and add posts to the Visual Basic 6.0 Forums

Download some of my programs and OCXs

Read the Tips here

The old style forum is still available here




From: BlackHawk
Date: 02-02-02 12:04
Subject: Can't seem to find examples of Text/file path...
Question: I am trying to do the following:
1) Browse to a directory.
2) Upon clicking a command buton Extract the path of all tiff/tif files in that are contained in that direcotry and then output that path to a text file. Each file having its own line.
Even a simple example of how to create/open/save and close a text file would be helpful. If you have any suggestions for this newbie, please help

Answer by Martin Allen:

1. Create a FileListBox, a DirListBox and a DriveListBox.  In the Click events on these, change the paths of the others the new location i.e. if the user clicked on another drive, the DirListBox and FileListBox would change, and if the user clicked on the DirListBox, only the FileListBox path would change.  You might also want to include some error trapping code.

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Set the Pattern property of the FileListBox to *.tif*.

2. Create a button on the form with this code:

Private Sub Command1_Click()
Dim i As Long
"C:\windows\desktop\tif.txt" For Output As #1
For i = 0 To File1.ListCount - 1
    Print #1, File1.Path & "\" & File1.List(i)
Next i
Close #1
End Sub

When the FileListBox path is in the place you want, click on the button.  Change the filename to the one you want.

Martin Allen 1999 - 2011.  Last updated Tuesday 09 August 2011 08:17:36 PM +0100.