I must store directories in a file I have named avail.txt
I can list the first Directory in the InputBox prompt -
but do not how to list all available directories.

So far I have:

Open App.Path & "\Avail.txt" For Input As #1
Input #1, direct
title = "Choose a Directory"
prompt = "Enter the Directory to be accessed. " & _
"Existing choices are:'" & direct & "'. Or enter name of " & _
"new directory to be created."

HOW to display all direct in file?????:|