Schemerige CTR als Geheel = 0
Probeer
'
'7/7/2010 beschrijft meer…
File.Delete (UniquefileName) 'schrap het als alvorens aan het te schrijven… bestaat
Verduister objStreamWriter als StreamWriter
objStreamWriter = File.CreateText (UniquefileName)
objStreamWriter.Write (strOutput)
'Sluit de stroom
objStreamWriter.Close ()
objStreamWriter = niets de 'reeks van 7/7/2010 aan niets
bSuccess = Waar
De uitgang
Vangst ex als Uitzondering
CTR = CTR + 1
Als CTR = 100 toen
SendError („Weg: “ & strUrl & „ Error: “ & ex. Bericht)
De uitgang
Beëindig als
Het eind probeert
Van Loop |