In the previous post I warned about possible synchronization issues while copying a complex and/or large file-folder structure. To ensure reliability of the operation performed we may verify the structure that was created.

We need to answer the following questions before designing the script.

• Which folders and files should it verify?
• Which way should it verify specified object?
• Where this information is stored?
• What is the format of data provided?

For this example, we make the following assumptions.

• A file named “folders.txt” is stored in the root folder of a template and automatically copied with it while creating a user folder.
• The file is in raw text format
• Only folders are specified

Assuming that we use sample structure from the previous example as a baseline, “folders.txt” file will contain the following lines.

Application Data\Application1
Application Data\Application2
Application Data\Application1\INI
Documents
Documents\Back-up

Order of the folders specified is not important.

CheckFolderStructure function provided below performs a sequential checking.

Public Function CheckFolderStructure(ByVal sTargetFolder)
Dim boolRC
Dim sCheckFile, objCheckFile
Dim sCheckLine, sCheckPath

Set objFSO = CreateObject("Scripting.FileSystemObject")

boolRC = objFSO.FolderExists(sTargetFolder)
If Not boolRC Then
    Set objFSO = Nothing
    CheckFolderStructure = False
    Exit Function
End If

sCheckFile = sTargetFolder & "\folders.txt"
boolRC = objFSO.FileExists(sCheckFile)
If Not boolRC Then
    Set objFSO = Nothing
    CheckFolderStructure = False
    Exit Function
End If

Set objCheckFile = objFSO.OpenTextFile(sCheckFile, 1)

Do While (Not objCheckFile.AtEndOfStream)
    sCheckLine = objCheckFile.ReadLine()
    sCheckPath = sTargetFolder & "\" & sCheckLine
    boolRC = objFSO.FolderExists(sCheckPath)
    If Not boolRC Then
        objCheckFile.Close
        Set objCheckFile = Nothing
        Set objFSO = Nothing
        CheckFolderStructure = False
        Exit Function
    End If
Loop

objCheckFile.Close
Set objCheckFile = Nothing
Set objFSO = Nothing
CheckFolderStructure = True

End Function