[futurebasic] Re: [FB] re: Moving and deleting folders

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : January 2006 : Group Archive : Group : All Groups

From: Brian Stevens <brilor@...>
Date: Mon, 9 Jan 2006 15:42:14 -0700
On Jan 9, 2006, at 3:25 PM, Brian Stevens wrote:

> dim as FSSpec fs
>
> if usr FSFileExists(fs)  then fn FSpDelete(fs)

I sent that without checking. Sorry.  usr FSFileExists won't work for  
folders, so if you need something for the folder let me know. The  
following does kill an empty folder:


include "util_files.incl"
dim as FSSpec fs
dim as str63 s
dim as int err

s = files$(_FSSpecFolder,"pick an empty folder",,fs)
err = fn FSpDelete(fs)

do
handleevents
until gFBquit