WD: Macro: Displaying a List of Directories (121890)

MORE INFORMATION

WARNING: ANY USE BY YOU OF THE CODE PROVIDED IN THIS ARTICLE IS AT YOUR OWN RISK. Microsoft provides this macro code "as is" without warranty of any kind, either expressed or implied, including but not limited to the implied warranties of merchantability and/or fitness for a particular purpose.

The following example macro inserts the directory names from the current directory into a new document window:

   Sub MAIN
      FileNewDefault
      num  = CountDirectories()
      For i = 1 To num
         Insert GetDirectory$(i)
         InsertPara
      Next i
   End Sub
				

The following example macro determines how many directories stem from the current directory and defines an array named SubDirs$() to hold the directory names:

   Sub MAIN
      REM Define an array for the directory names
      Dim subdirs$(CountDirectories())
      subdirs$(0) = "[..]"
      For i = 1 To CountDirectories()
         subdirs$(i) = LCase$(GetDirectory$(i))
      Next
      REM Sort the array of directories and display them in a list box.
      SortArray subdirs$()
      Begin Dialog UserDialog 396, 154, "Directories Available"
         OKButton 254, 88, 88, 21
         CancelButton 254, 113, 88, 21
         ListBox 18, 21, 215, 114, subdirs$(), .ListBox1
      End Dialog
      Dim dlg As UserDialog
      n = Dialog(dlg)
   End Sub
				

NOTE: The disk that accompanies the Word Developer's Kit includes a macro that allows you to browse through files in any directory. The macro uses a dynamic dialog box to display a file and directory list similar to the Open dialog box in Word. The macro is named ch05ex06FileBrowser and is located in the Examples.dot file.