Visual Basic

• If it is a directory, then you need to get its contents into a new list, then pass the directory and new list back into the same subroutine.
• If it is a normal file do whatever processing for a file.
• If there are no more items in the list then return from the subroutine.

Function ListDirectory: Param rootPath, Param ListOfFiles
    ForEach file in ListOfFiles    ' loop through all files in the list
        If file == typeof.Directory Then
            Path newPath = rootPath+"\"+file ' get the full path of this directory
            List newList = new List(newPath.Files)  ' get a list of the files (and folders) in the directory we just found
            ListDirectory(newPath, newList) ' and process this new directory by recursively calling the ListDirectory function
        Else
            Display(file) ' if it's a normal file do whatever
        EndIf
    EndFor
EndFunction

Process.Start("takeown /F directoryname /R /A")

Sub HandleDir(directory As String)

   Try
      System.Diagnostics.Debug.WriteLine("I'm in directory " & directory)
      For Each subdir As String In System.IO.Directory.GetDirectories(directory)
         HandleDir(subdir)
      Next subdir
   Catch exception As System.Exception
      System.Diagnostics.Debug.WriteLine(exception.Message)
   End Try

End Sub

HandleDir("C:\")

Sub HandleDir(directory As String, userName as String)

   Try
      ChangeOwner(directory, userName)
      For Each subdir As String In System.IO.Directory.GetDirectories(directory)
         HandleDir(subdir, userName)
      Next subdir
   Catch exception As System.Exception
      System.Diagnostics.Debug.WriteLine(exception.Message)
   End Try
End Sub

HandleDir(Me.folderName.Text, strUser)