Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Safe directory delete
Message
From
04/01/2009 06:12:05
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Safe directory delete
Miscellaneous
Thread ID:
01370874
Message ID:
01370874
Views:
58
Hi all

Help please,

I get The data path in the project start.
oApp.startdir=network\data\..
set defa to (oApp.startdir)..

Now I want to delete entire files of temp directory (only files, not directory) on local computer.

I use with the following code:
local nloop,cfilename,cOutput
Local array aFiles(1)
cOutput='c:\tmpfox\'
set default to (cOutput)
nFiles=adir(aFiles)
If nFiles>0
	for nLoop=1 to nFiles
		cFilename=cOutput+aFiles[nLoop,1]
		delete file (cFilename)
	endfor
Endif
set default to (oApp.startdir)
return .t.
I afraid about any unexpected problem that will cause the 'set defa to local' to fail and the user will delete thr real data.
Thank's
Thank you
Chaim
Next
Reply
Map
View

Click here to load this message in the networking platform