Re: [BLACKBOX] Deleting a directory

From: [at]} <Chris>
Date: Fri, 10 Dec 2010 09:31:45 +1030

----boundary-LibPST-iamunique-653925165_-_-
Content-type: text/plain

>-----Original Message-----
>From: BlackBox [mailto:BLACKBOX{([at]})nowhere.xy
>Sent: Friday, 10 December 2010 8:31 AM
>To: BLACKBOX{([at]})nowhere.xy
>Subject: [BLACKBOX] Deleting a directory
>
>Hi,
>
>I'm sure I've done this before, but have forgotten how (and where)!
>
>
>To delete a File one calls
>
> Files.dir.Delete (loc, name$)
>
>but how do you delete a directory?
>

One way you can do it is with a direct call to the Windows API:

  PROCEDURE DeleteDir*(IN name: ARRAY OF CHAR): BOOLEAN;
  BEGIN
    RETURN WinApi.RemoveDirectory(WinStr(name)) # 0
  END DeleteDir;

DeleteDir returns TRUE if the directory could be deleted (i.e. if it is
empty, has delete permissions etc.)

The tricky part is that the RemoveDirectory function requires a parameter of
type WinApi.PtrSTR. The following function returns a WinApi.PtrSTR given an
ARRAY OF CHAR. There might be a better way but it seems to work:

  PROCEDURE WinStr(IN x: ARRAY OF CHAR): WinApi.PtrSTR;
  VAR
    p: POINTER TO ARRAY OF SHORTCHAR;
  BEGIN
    NEW(p, LEN(x$) + 1);
    p^ := SHORT(x$);
    RETURN p^
  END WinStr;

Regards,
Chris

Chris Burrows
CFB Software
http://www.cfbsoftware.com

----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-653925165_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwID4tLS0tLU9yaWdpbmFsIE1lc3NhZ2UtLS0tLVxw
YXINCj5Gcm9tOiBCbGFja0JveCBbbWFpbHRvOkJMQUNLQk9YQExJU1RTLk9CRVJPTi5DSF0gT24g
QmVoYWxmIE9mIFJvYmVydFxwYXINCj5TZW50OiBGcmlkYXksIDEwIERlY2VtYmVyIDIwMTAgODoz
MSBBTVxwYXINCj5UbzogQkxBQ0tCT1hATElTVFMuT0JFUk9OLkNIXHBhcg0KPlN1YmplY3Q6IFtC
TEFDS0JPWF0gRGVsZXRpbmcgYSBkaXJlY3RvcnlccGFyDQo+XHBhcg0KPkhpLFxwYXINCj5ccGFy
DQo+SSdtIHN1cmUgSSd2ZSBkb25lIHRoaXMgYmVmb3JlLCBidXQgaGF2ZSBmb3Jnb3R0ZW4gaG93
IChhbmQgd2hlcmUpIVxwYXINCj5ccGFyDQo+XHBhcg0KPlRvIGRlbGV0ZSBhIEZpbGUgb25lIGNh
bGxzXHBhcg0KPlxwYXINCj4gICBGaWxlcy5kaXIuRGVsZXRlIChsb2MsIG5hbWUkKVxwYXINCj5c
cGFyDQo+YnV0IGhvdyBkbyB5b3UgZGVsZXRlIGEgZGlyZWN0b3J5P1xwYXINCj5ccGFyDQpccGFy
DQpPbmUgd2F5IHlvdSBjYW4gZG8gaXQgaXMgd2l0aCBhIGRpcmVjdCBjYWxsIHRvIHRoZSBXaW5k
b3dzIEFQSTpccGFyDQpccGFyDQogIFBST0NFRFVSRSBEZWxldGVEaXIqKElOIG5hbWU6IEFSUkFZ
IE9GIENIQVIpOiBCT09MRUFOO1xwYXINCiAgQkVHSU5ccGFyDQogICAgUkVUVVJOIFdpbkFwaS5S
ZW1vdmVEaXJlY3RvcnkoV2luU3RyKG5hbWUpKSAjIDBccGFyDQogIEVORCBEZWxldGVEaXI7XHBh
cg0KXHBhcg0KRGVsZXRlRGlyIHJldHVybnMgVFJVRSBpZiB0aGUgZGlyZWN0b3J5IGNvdWxkIGJl
IGRlbGV0ZWQgKGkuZS4gaWYgaXQgaXNccGFyDQplbXB0eSwgaGFzIGRlbGV0ZSBwZXJtaXNzaW9u
cyBldGMuKVxwYXINClxwYXINClRoZSB0cmlja3kgcGFydCBpcyB0aGF0IHRoZSBSZW1vdmVEaXJl
Y3RvcnkgZnVuY3Rpb24gcmVxdWlyZXMgYSBwYXJhbWV0ZXIgb2ZccGFyDQp0eXBlIFdpbkFwaS5Q
dHJTVFIuIFRoZSBmb2xsb3dpbmcgZnVuY3Rpb24gcmV0dXJucyBhIFdpbkFwaS5QdHJTVFIgZ2l2
ZW4gYW5ccGFyDQpBUlJBWSBPRiBDSEFSLiBUaGVyZSBtaWdodCBiZSBhIGJldHRlciB3YXkgYnV0
IGl0IHNlZW1zIHRvIHdvcms6XHBhcg0KXHBhcg0KICBQUk9DRURVUkUgV2luU3RyKElOIHg6IEFS
UkFZIE9GIENIQVIpOiBXaW5BcGkuUHRyU1RSO1xwYXINCiAgVkFSXHBhcg0KICAgIHA6IFBPSU5U
RVIgVE8gQVJSQVkgT0YgU0hPUlRDSEFSO1xwYXINCiAgQkVHSU5ccGFyDQogICAgTkVXKHAsIExF
Tih4JCkgKyAxKTtccGFyDQogICAgcF4gOj0gU0hPUlQoeCQpO1xwYXINCiAgICBSRVRVUk4gcF5c
cGFyDQogIEVORCBXaW5TdHI7XHBhcg0KXHBhcg0KUmVnYXJkcyxccGFyDQpDaHJpc1xwYXINClxw
YXINCkNocmlzIEJ1cnJvd3NccGFyDQpDRkIgU29mdHdhcmVccGFyDQpodHRwOi8vd3d3LmNmYnNv
ZnR3YXJlLmNvbVxwYXINClxwYXINClxwYXINCi0tLS1ccGFyDQpUbyB1bnN1YnNjcmliZSwgc2Vu
ZCBhIG1lc3NhZ2Ugd2l0aCBib2R5ICJTSUdOT0ZGIEJMQUNLQk9YIiB0byBMSVNUU0VSVkBMSVNU
Uy5PQkVST04uQ0hcfX0AQExJ
----boundary-LibPST-iamunique-653925165_-_---

Received on Fri Dec 10 2010 - 00:01:45 UTC