FP2000: How to Loop Through All Files in a Web Using VBA

Sub MyProcedure()
    'Call the PrintName function.  We pass the root folder of the
    'active web to the PrintName function as a WebFolder object.
    PrintName ActiveWeb.RootFolder
End Sub

Function PrintName(myFolder As WebFolder) As Boolean

    'Set up the variables.
    Dim myFile As WebFile
    Dim mySubFolder As WebFolder

    'This For loop loops through the all of the files in the folder
    'represented by the myFolder variable.
    For Each myFile In myFolder.Files
        'Display the name of the current file in a message box.
        MsgBox myFile.Name
    Next myFile

    'Recursion is used below to loop through all folders.
    'This allows us to loop through every file in the web.
    'Recursion means that the function calls itself from
    'within itself.
    
    'This For loop loops through all of the folders in the web.
    'It calls the PrintName function each time and passes the current
    'folder name.  This allows us to assign the folder represented by 
    'the myFolder variable.
    For Each mySubFolder In myFolder.Folders
        'Call the PrintName function and pass the current subfolder 
        'as a WebFolder object.  
        PrintName mySubFolder
    Next mySubFolder

    'Assign value of True to PrintName
    PrintName = True    

    'A function must return a value.  The PrintName function returns
    'a boolean value.

    'Code can be added to a macro to check the value of PrintName.
    'If the value of PrintName is True, it indicates that this function
    'completed successfully.
    
End Function