Revcoders

ON makeFoldersIfNecessary pLocalFilePath

    set the itemdel to "/"

    put "/" into tPath

    REPEAT WITH x = 2 to the number of items of pLocalFilePath

        put item x of pLocalFilePath & "/" after tPath

        IF there is not a folder tPath THEN

            create folder tPath

        END IF

    END REPEAT

END makeFoldersIfNecessary