Dim sw As New System.IO.StreamWriter("C:\xdos.txt")
        Dim prog As Process = New Process
        prog.StartInfo.FileName = "cacls "
        prog.StartInfo.Arguments = s & "\text.exe /G" & " " & Label4.Text & ":F"
        prog.StartInfo.UseShellExecute = False
        prog.StartInfo.RedirectStandardOutput = True
        prog.StartInfo.CreateNoWindow = True
        prog.Start()
        sw.Write(prog.StandardOutput.ReadToEnd())
        prog.WaitForExit()
        sw.Close()