map read

[CYberc()()l]

Hello every one,

I have a question ,

I must make a program that runs between 2 computers, (a laptop, and a Network drive)

And the program must check, if files are old on the server or laptop so they can be overritten by the files on the server on the laptop or reverse!!

The stucture from the Directory tree is the same, but how do i read in all the files in the differant, directory's and sub directory's??
Does anyone know a loop for that?
Maybe with an array??


Thanks!! greetings CYbercool

[JordanChris]

I thought that I had already posted this for you..... but it doesn't seem to be in the forum anymore:

This uses the FSO, and so needs a reference to Microsoft Scripting Runtime:

Private Sub Command3_Click()
    ListFolder "C:\Temp\"
End Sub
 
Private Sub ListFolder(sFolderPath As String)
    Dim FS As New FileSystemObject
    Dim FSfile
    Dim FSfolder As Folder
    Dim subfolder As Folder
   
    Set FSfolder = FS.GetFolder(sFolderPath)
    'Add files to the list:
    MsgBox "Looking in " & FSfolder
    For Each FSfile In FSfolder.Files
        '
        '... e.g. List1.AddItem FSfile
        '
    Next FSfile
 
    For Each subfolder In FSfolder.SubFolders
            Call ListFolder(subfolder.Path)
    Next subfolder
    Set FSfolder = Nothing
End Sub

[CYberc()()l]

That does not work!!

[JordanChris]

It certainly does work here!
Where are you having problems?


Have you just cut and pasted the code? Or did you read it to realise that this line:

'... e.g. List1.AddItem FSfile

had to be changed??
You can change this line to:
MSGBOX FSfile
or
List1.AddItem FSfile
or anything else that you need to track all the files that you have in all your sub-directories.


Similarly, the first line (ListFolder "C:\Temp\") will need changing so that you start from a particular point.


Of course, you might be having problems with :

This uses the FSO, and so needs a reference to Microsoft Scripting Runtime:

[CYberc()()l]

my problems are in here:
Dim FS As New FileSystemObject
Dim FSfile
Dim FSfolder As Folder
Dim subfolder As Folder

[JordanChris]

Have you added the reference that you need?

See the last line of my previous post.

[CYberc()()l]

there are mistakes in the declaration, i think
They do not match, with whats in the list!!!

[JordanChris]

IF you have a vali reference to the FSO (Mirosoft Scripting Runtime) in your References under the Project menu.
AND
IF you have cut and pasted the code correctly.

THEN

the only other thing I can think of is that you are using a different version of Visual Basic.

'cos this code works happily for me on my Visual Basic V6 system.