vhUnitTest.TestCase aTestName:%String 0 { Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Ftp kan het bestand niet vinden ! " _BestandNaam) } Do FtpAPI.VerwijderBestand(BestandNaam) Set BestandLijst = FtpAPI.GeefBestandLijst() if BestandLijst.Find(BestandNaam) = 1 { Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Ftp kan het bestand niet verwijderen ! " _BestandNaam) } Do FtpAPI.VerbreekVerbinding() Do ##class(TECH.File).Delete(VolledigeBestandNaam) Do $$$AssertTrue($$$True,"Verzenden gelukt.") } catch { #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() Do ##class(TECH.File).Delete(VolledigeBestandNaam) Do ..Fail(Exception.ToString()) } ]]> %String BestandNaam:%String %String VolledigeBestandsNaam:%String 1 TECH.Ftp.FtpConfiguratie