Example of the File System Object

Dim fso As New FileSystemObject
'The selected drive
Dim strDrive As String
'The folderpath
Dim strFolder As String
'Collection to store the selected filepa
' ths



Private Sub cmbDrives_Click()
Dim drive As drive
Dim File As File
Dim SubFolder As Folder
Dim i As Integer
i = 0
lstFiles.Clear
If cmbDrives = "" Then Exit Sub
strDrive = cmbDrives.Text
strFolder = ""
Set drive = fso.GetDrive(cmbDrives.Text)


If drive.IsReady Then


For Each File In drive.RootFolder.Files
lstFiles.AddItem File.Name, i
i = i + 1
Next
i = lstFiles.ListCount


For Each SubFolder In _ drive.RootFolder.SubFolders
lstFiles.AddItem SubFolder, i
i = i + 1
Next
Else
MsgBox "Drives Not ready"
End If
End Sub
'Moves to the parent folder (if any)


Private Sub cmdup_Click()
Dim Folder As Folder
Dim File As File
Dim SubFolder As Folder
Dim i As Integer
If strDrive = "" Then Exit Sub
If strFolder = "" Then Exit Sub
'Get current folder
Set Folder = fso.GetFolder(strDrive & _ strFolder)
'Find parent folder
strFolder = Left(strFolder, InStrRev _(strFolder, "\") - 1)
lstFiles.Clear
'If parent exists


If Not Folder.ParentFolder Is Nothing Then
'Add all files in parent


For Each File In Folder.ParentFolder.Files
lstFiles.AddItem File.Name, i
i = i + 1
Next
i = lstFiles.ListCount
'Add all subfolders in parent


For Each SubFolder In _ Folder.ParentFolder.SubFolders
lstFiles.AddItem SubFolder, i
i = i + 1
Next
Else 'If it Not has parent


For Each File In Folder.Files
lstFiles.AddItem File.Name, i
i = i + 1
Next
i = lstFiles.ListCount


For Each SubFolder In Folder.SubFolders
lstFiles.AddItem SubFolder, i
i = i + 1
Next
End If
End Sub


Private Sub Form_Load()
Dim drive As drive
Dim i As Integer
i = 0
'Add all drives to combo


For Each drive In fso.Drives
cmbDrives.AddItem drive.Path, i
i = i + 1
Next
End Sub


Private Sub Form_Unload(Cancel As Integer)
Set fso = Nothing
End Sub


Private Sub lstFiles_Click()
Dim Folder As Folder
Dim SubFolder As Folder
Dim File As File
Dim i As Integer
i = 0


If Not lstFiles.SelCount > 1 Then
'if its a folder


If InStr(lstFiles.Text, ":\") Then
Set Folder = fso.GetFolder _(lstFiles.Text)
lstFiles.Clear
strFolder = strFolder & "\" & _ Folder.Name
'Add all files


For Each File In Folder.Files
lstFiles.AddItem File.Name, i
i = i + 1
Next
i = lstFiles.ListCount
'Add subfolders


For Each SubFolder In _ Folder.SubFolders
lstFiles.AddItem SubFolder, i
i = i + 1
Next
End If
End If
End Sub

Could you please tell me what i have to do to be able to use the filesystemobject in my project?

For instance, this code...


after typing New, 'FileSystemObject' is not offered like many others. Is there somehing I must do to be able to use this object?

Thanks,