Public Function IsVulnerableDirectory (DirectoryName As String) As Boolean

    Dim DirectoryLevel As Integer
    Dim ReturnValue As Boolean
    ReturnValue = False
    
    'Case insensitive matching
    DirectoryName = LCase(DirectoryName)
    
    'Find out how close it is to the root folder
    DirectoryLevel = CountIn(DirectoryName, "\")
    
    
    'Top level directories unsafe
    If DirectoryLevel = 1 Then ReturnValue = True
    
    'My documents folder unsafe (but not its subdirectories)
    If (DirectoryLevel <= 2) And _
        Search(DirectoryName, "My Documents") _
        Then ReturnValue = True
        
    'Windows/Program files and their subdirectories unsafe
    If (Search(DirectoryName, "windows") Or _
        Search(DirectoryName, "Program Files")) _
        Then ReturnValue = True

    IsVulnerableDirectory = ReturnValue
End Function