Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Creating a directory
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Environment versions
Visual FoxPro:
VFP 9 SP1
Miscellaneous
Thread ID:
01110310
Message ID:
01110340
Views:
15
>>Hi everybody,
>>
>>I have the following code:
>>
>>if not directory(thisform.cInputDirectory)
>>			md (thisform.cInputDirectory)
>>		endif
>>		lcDir = thisform.cInputDirectory + "Batch_" + ;
>>				transform(crsBatch_Imports.iBatch_Number)
>>		if not directory(m.lcDir)
>>			md (m.lcDir)
>>		endif
>>
>>The cInputDirectory has a \ at the end.
>>
>>The first portion of the code returns an error "The directory already exists" on md (thisform.cInputDirectory) command.
>>
>>What could be the problem? \ at the end or user rights? If the second, the error message is misleading.
>
>The problem maybe that directory is hidden. If so, use adir instead:
>?adir(atemp,justpath(thisform.cInputDirectory),"DH") && No backslash at the end !

Hi Yuri,

I checked directory() function and it allows to specify flags. But I may still have some problems with the rights, e.g. MD may still fail. So, I just put this piece of code into TRY/CATCH.
If it's not broken, fix it until it is.


My Blog
Previous
Reply
Map
View

Click here to load this message in the networking platform