Learn to Program with Small Basic

WARNING
When you call DeleteDirectory(), all the files and folders under the pathname are
deleted. So make sure you don’t have any files tucked away that you don’t want
to delete!
List Files and Directories
The File object includes the GetFiles() method, which lets you list all the
files in a directory. This method takes the path of the target directory as its
argument. The example in Listing 19-7 shows you how to use this method.
1 ' GetFilesDemo.sb
2 path = "D:\Temp"
3 fileArray = File.GetFiles(path)
4 count = Array.GetItemCount(fileArray)
5 TextWindow.WriteLine(path + " contains " + count + " files:")
6 For N = 1 To count
7 TextWindow.WriteLine(" " + fileArray[N])
8 EndFor
Listing 19-7: Demonstrating the GetFiles() method
Here is the output after running this program (change the path variable
in line 2 to a directory on your computer):
D:\Temp contains 3 files:
D:\Temp\Fig01.bmp
D:\Temp\keys.txt
D:\Temp\Test.sb
We start by specifying the path of the directory we want to list (line 2).
Next, we call GetFiles() with the desired path (line 3). This method creates
an array that contains the pathnames of all the files in the directory; we save
the identifier of the returned array in fileArray. Then we call GetItemCount()
to find out the number of elements in the returned array (line 4) and use a
For loop to display its elements (lines 6–8).
Note
If GetFiles() fails, then fileArray stores the string "FAILED". In this case, the call
to Array.GetItemCount(fileArray) returns 0. So you might not need to perform an
extra check on the return of GetFiles().
The GetDirectories() method lets you list all the subdirectories in a
given directory. Listing 19-8 shows an example of this method.
1 ' GetDirectoriesDemo.sb
2 path = "D:\Temp"
3 dirArray = File.GetDirectories(path)
4 count = Array.GetItemCount(dirArray)
5 TextWindow.WriteLine(path + " contains " + count + " directories:")
300 Chapter 19