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
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
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
Open "C:\windows\desktop\tif.txt" For Output As #1
For i = 0 To File1.ListCount - 1
Print #1, File1.Path & "\" & File1.List(i)
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.