Index: FTP.mac.rou
===================================================================
diff -u -r734 -r2415
--- FTP.mac.rou	(.../FTP.mac.rou)	(revision 734)
+++ FTP.mac.rou	(.../FTP.mac.rou)	(revision 2415)
@@ -1,13 +1,13 @@
 SendFile(OrigFile,DestDirectory,DestFile,Server,UserName,Password)
  #Include %occInclude
-
+ 
  ;Bestaat de file?
  Quit:('##class(%File).Exists(OrigFile)) "Het opgegeven bestand '"_OrigFile_"' bestaat niet en kan dus niet verstuurd worden."
-
+ 
  New FTP,RtnMsg
  Set FTP=##class(%Net.FtpSession).%New()
  Set RtnMsg="(no extra information available)"
-
+ 
  ;----------------------------------------------------------------------------------------------------------------------
  ; CONNECT
  ;----------------------------------------------------------------------------------------------------------------------
@@ -17,7 +17,7 @@
  If 'FTP.Connect(Server,UserName,Password) Do  Quit "Kan geen ftp-verbinding maken met '"_Server_"': "_RtnMsg
  . Set RtnMsg=FTP.ReturnMessage
  . Do FTP.%Close()
-
+ 
  ;----------------------------------------------------------------------------------------------------------------------
  ; DIRECTORY WIJZIGEN
  ;----------------------------------------------------------------------------------------------------------------------
@@ -26,20 +26,20 @@
  . Set RtnMsg=FTP.ReturnMessage
  . Do FTP.Logout()
  . Do FTP.%Close()
-
+ 
  ;----------------------------------------------------------------------------------------------------------------------
  ; TE VERSTUREN FILE OPBOUWEN
  ;----------------------------------------------------------------------------------------------------------------------
  New OrigFileAsStream
  Set OrigFileAsStream=##class(%FileCharacterStream).%New()
-
+ 
  New Status
  Set Status=OrigFileAsStream.LinkToFile(OrigFile)
  If $$$ISERR(Status) Do  Quit "Fout tijdens het linken van het bestand '"_OrigFile_"' met het file-object: "_$$ParseStatus^vhLib(Status)_"."
  . Do OrigFileAsStream.%Close()
  . Do FTP.Logout()
  . Do FTP.%Close()
-
+ 
  ;----------------------------------------------------------------------------------------------------------------------
  ; SEND
  ;----------------------------------------------------------------------------------------------------------------------
@@ -48,16 +48,17 @@
  . Do OrigFileAsStream.%Close()
  . Do FTP.Logout()
  . Do FTP.%Close()
-
+ 
  Do OrigFileAsStream.%Close()
-
+ 
  ;----------------------------------------------------------------------------------------------------------------------
  ; DISCONNECT
  ;----------------------------------------------------------------------------------------------------------------------
  If 'FTP.Logout() Do  Quit "Kan ftp-verbinding met '"_Server_"' niet verbreken: "_RtnMsg
  . Set RtnMsg=FTP.ReturnMessage
  . Do FTP.%Close()
-
+ 
  Do FTP.%Close()
-
+ 
  Quit ""
+ 
\ No newline at end of file