Schwache CTR als ganze Zahl = 0
Tun
Versuch
'
'7/7/2010 Formulierung mehr…
Bevor dem Schreiben zu ihm, File.Delete (UniquefileName) 'Löschung es, wenn existiert…
Schwaches objStreamWriter als StreamWriter
objStreamWriter = File.CreateText (UniquefileName)
objStreamWriter.Write (strOutput)
'Nah der Strom
objStreamWriter.Close ()
objStreamWriter = nichts '7/7/2010 Satz zu nichts
bSuccess = richten aus
Ausgang tun
Fang ex als Ausnahme
CTR = CTR + 1
Wenn CTR = 100 dann
SendError („Weg: “ u. strUrl u. „ Error: “ u. ex. Mitteilung)
Ausgang tun
Beenden wenn
Versuch beenden
Loop |