Ciemnawy ctr Jako Integer = (0)
Próba
'
'7/7/2010 czary więcej czary…
File.Delete (UniquefileName) 'deleatur ono jeżeli istnieć przed ono…
Ciemnawy objStreamWriter Jako StreamWriter
objStreamWriter = File.CreateText (UniquefileName)
objStreamWriter.Write (strOutput)
'Zamykać the strumień
objStreamWriter.Close ()
objStreamWriter = Nic '7/7/2010 set set
bSuccess = Prawdziwy
Wyjście
Chwyt wyjątek Jako Wyjątek
ctr = ctr + (1)
Jeżeli ctr = 100 Wtedy
SendError ("Ścieżka: " & strUrl & " Error: " & ex. Wiadomość)
Wyjście
Kończyć Jeżeli
Kończyć Próba
Loop |