1 >
Тусклый ctr как интежер = 0 Сделайте Попытка ' '7/7/2010 произношений по буквам вне больше… Delete File.Delete (UniquefileName) 'оно если существует перед писанием к ему…, то Тусклое objStreamWriter как StreamWriter objStreamWriter = File.CreateText (UniquefileName) objStreamWriter.Write (strOutput) 'Близко поток objStreamWriter.Close () objStreamWriter = ничего '7/7/2010 комплектов к ничего bSuccess = True Выход делает Задвижка ex как исключение ctr = ctr + 1 Если ctr = 100 после этого SendError («курс: » & strUrl & «Error: » & ex. Сообщение) Выход делает Закончитесь если Закончите попытку Кодий приложения >file class= Loop