By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
428,530 Members | 891 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 428,530 IT Pros & Developers. It's quick & easy.

Output to .txt

P: n/a
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
Nov 21 '05 #1
Share this Question
Share on Google+
2 Replies


P: n/a
"Darko Bazulj" <bd****@croadria.com> schrieb:
---> 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>

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>
Nov 21 '05 #2

P: n/a
Hi Herfried,

Thanks for help.

Regards,
Darko Bazulj
Nov 21 '05 #3

This discussion thread is closed

Replies have been disabled for this discussion.