Find folder names in specified folder

[LittleSmudge]

I'm using A2k, running on Win2000 server machine.

Given that I can define a Server/Path name to a specific folder - how do I then gather the names of the folders within that into VB.

And once I've navigated to the bottom level - gather the names of the files therein.



( I'm needing to allow certain users { via the database } to view a limited portion of the file structure in order to retrieve SnapShots of reports that are stored there.
I don't want to use the CommonDialog because I can't limit their viewing to just the area I want.
So I'm planning to use the Tree control and populate it with the folders/subfolders/files that are in the relevant area.

- Or can anyone see an obvious solution that I've missed )





G LS
spsinkNOJUNK@yahoo.co.uk
Remove the NOJUNK to use.

 

[RoyVidar]

Hi!

Could a recursive sub like the one PHV suggests here thread705-805195, be a start?

Roy-Vidar

 

[LittleSmudge]

Thanks Roy

The first part - checking if a folder exists and creating it if it doesn't I fixed based on your link using

Dim fso As Object
Dim strTargetFolder As String
strTragetFolder = "\\server\path\folder\"

Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(strTargetFolder) Then
' Folder Exists so no action needed
Else
fso.Createfolder (strTargetFolder)
End If


and that's given me enough clues for the rest I think.

Thanks

G LS
spsinkNOJUNK@yahoo.co.uk
Remove the NOJUNK to use.

 

[Waud]

Hi

I've used code similair to that below (in A97 but it should work with A2k).

Which takes the file path as an argument and also has an optional file extention argument.
Then returns an array of the files found in the specified location.

Public Function strGetFiles(astrPath, Optional astrFileExtension As String)
    Dim strFileName As String
    Dim aryFileNames() As String
    Dim intAryCount As Integer
        
    strFileName = Dir(astrPath & "*" & astrFileExtension)
    Do Until strFileName = ""
        ReDim Preserve aryFileNames(intAryCount)
        aryFileNames(intAryCount) = strFileName
        
        intAryCount = intAryCount + 1
        strFileName = Dir()
    Loop

    strGetFiles = aryFileNames()
End Function

hope this helps