Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Remove Folder Problem
Message
From
05/05/2005 11:26:17
 
 
To
05/05/2005 07:38:44
Cetin Basoz
Engineerica Inc.
Izmir, Turkey
General information
Forum:
Visual FoxPro
Category:
Other
Environment versions
Visual FoxPro:
VFP 6
OS:
Windows '98
Network:
Windows 98
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01011193
Message ID:
01011323
Views:
16
Of course you are correct. I should have added the caveat regarding subdirectories and readonly objects.

Glenn

>Glenn,
>I'm also not a fan of fso and try to avoid it (using filer.dll and winAPI instead). However this command wouldn't work as is (it might contain subfolders, readonly etc). Actually I don't know of a way to do it in pure VFP:) I have a FileIO class that's utilizing filer.dll and winAPI and using taht class I can copy,delete,move etc individual or complete folders (there is an older public version in fox4um site).
>Cetin
>
>
>>You can also remove the directory using "strict" VFP:
>>
>>if directory(cFolder2)
>>  lcWasSafe = set('safety')
>>  set safety off
>>  delete file (addbs(cFolder2)+'*.*')
>>  rmdir (cfolder2)
>>  if lcWasSafe = 'ON'
>>    set safety on
>>  endif
>>endif
>>
>>
>>Glenn
>>
>>>Dear Sir,
>>>
>>>I want to remove a folder and use following code but it generates error.
>>>The line on which error appears is the second last line.
>>>
>>>Please modify codes or suggest some other codes to delete any folder.
>>>
>>>
>>>cFolder1 = alltrim(Thisform.text4.value)
>>>cFolder2 = alltrim(thisform.text8.value)
>>>
>>>&& test if folder already exists
>>>fso =createobject("Scripting.FileSystemObject")
>>>aoo= fso.FolderExists(cFolder2)
>>>
>>>&& if folder already exists then delete
>>>if aoo=.t.
>>>fso =createobject("Scripting.FileSystemObject")
>>>fldr=fso.DeleteFolder(cFolder2) && GENERATES ERROR ON THIS LINE
>>>endif
>>>
Previous
Reply
Map
View

Click here to load this message in the networking platform