Directory Listbox Question

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.

The following code will give you the proper filename:

Code:

---

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

---

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.

Sorry, try this:

Code:

---

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

---