Changeset 345 for branches/guitools-2.0/shared/cltinit.vrs

Timestamp:

Oct 30, 2009, 4:17:35 PM (16 years ago)

Author:

Herwig Bauernfeind

Message:

GUI-Tools: EVFSGUI Version 2.0 beta3 level code

File:

• branches/guitools-2.0/shared/cltinit.vrs (modified) (1 diff)

branches/guitools-2.0/shared/cltinit.vrs

@@ -125 +125 @@
 /*:VRX */
 _SambaFinish:
-    /* Do some very basic housekeeping when leaving */
-    ok = stream(samba.!msg,'c','close')
-    ok = stream(samba.!error,'c','close')
-    ok = SysFileDelete(samba.!msg)
-    ok = SysFileDelete(samba.!error)
+    /* Do some basic housekeeping when leaving */
+    ok = SysFileTree(TempDir'smb_???.???', garbage., 'FO')
+    do I = 1 to garbage.0
+        ok = stream(garbage.I,'c','close')
+        ok = SysFileDelete(garbage.I)
+    end
 return