Output to .txt

[Darko Bazulj]

Hi,

How to make output in .txt file in next situation

Dim folderspec1 As String = "e:\a"
Dim n As String

Dim di As DirectoryInfo = New DirectoryInfo(folderspec1)
Dim dirs As DirectoryInfo() = di.GetDirectories

Dim diNext As DirectoryInfo

For Each diNext In dirs
Dim sw As New StreamWriter("e:\a\vvv-" & diNext.Name & ".txt")
n = "e:\a\vvv-" & diNext.Name & ".txt"
sw.WriteLine(diNext.FullName)
sw.Close()


---> Shell("fileacl " & diNext.FullName & " /QUOTE /SIMPLE /SUB
/ LINE", AppWinStyle.NormalFocus, True, 20000)
'How to write output to .txt file(Always get 0 in file for each folder.)


re2(diNext.FullName, n)
Console.WriteLine("++++++++++++++++++++")
sw.Close()
Nex

Thanks for help.

Regards,
Darko Bazulj

 

[Herfried K. Wagner [MVP]]

---> Shell("fileacl " & diNext.FullName & " /QUOTE /SIMPLE /SUB
/ LINE", AppWinStyle.NormalFocus, True, 20000)
'How to write output to .txt file(Always get 0 in file for each folder.)

RedirectConsole
<URL:http://dotnet.mvps.org/dotnet/samples/misc/RedirectConsole.zip>

 

[Darko Bazulj]

Hi Herfried,

Thanks for help.

Regards,
Darko Bazulj