Directory Listbox Question

[hipopony66]

This should be an easy one. What I want to do is on the
Dir1 click event I want to create a text file. This I can do. However, want the created file to be named after the folder that was clicked in the Dir1. So Say I click the "ROCK" folder, I want a textfile to be created that is called "Rock.txt". The trouble I'm having is it just creates a folder named "dir1.txt" no matter what folder is clicked. I hope this makes sense. So I guess I don't really want the textfile named: Dir1.name

Is there a way to create a file based on the name of the selected folder in the Directory Listbox? Any help is appreciated.

[JohnVB6]

The following code will give you the proper filename:

Private Sub File1_Click()
  Dim sFileName As String
  sFileName = File1.List(File1.ListIndex)
  sFileName = Left(sFileName, InStr(sFileName, ".") - 1) & ".txt"
End Sub

[hipopony66]

What I'm wanting to do is Name the file after the FOLDER that is clicked in the directory listbox, not the name of the file in the filelistbox.

[JohnVB6]

Sorry, try this:

Private Sub Dir1_Click()
  Dim sDirName As String
  sDirName = Dir1.List(Dir1.ListIndex)
  sDirName = Right(sDirName, Len(sDirName) - InStrRev(sDirName, "\")) & ".txt"
End Sub