Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Safe directory delete
Message
 
 
To
04/01/2009 06:12:05
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
01370874
Message ID:
01370908
Views:
17
You don't have to change the current folder at all
lcFolder = ADDBS("c:\tmpfox\")
FOR i=1 TO ADIR(laFiles, lcFolder + "*.*")
	ERASE (lcFolder + laFiles(i,1))
ENDFOR
>
>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
--sb--
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform