Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Copying files into a non-exsting folder
Message
From
24/10/2006 16:34:55
 
 
To
24/10/2006 16:14:37
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
01164128
Message ID:
01164185
Views:
15
You're welcome!

>Thanks this workded.
>
>>>The COPY FILE command does not seem to work if the destination folder deos not exist. For example if I use the command
>>>
>>> COPY FILE 'C:\X\Y\A.*' TO 'A:\X\Y\A.*'
>>>
>>>if either the folder "X" or the sub-folder "Y" do not exist. What is the best way of check that the destination folders exist and to create them if the do not?
>>>
>>>TIA
>>
>>
>>if ADir(temp,JustPath('C:\X\Y\A.*'),"D")=0
>>  messagebox('Master directory does not exist')
>>else
>>  if ADir(temp,JustPath('A:\X\Y\A.*'),"D")=0
>>    md (JustPath('A:\X\Y\A.*'))
>>    COPY FILE 'C:\X\Y\A.*' TO 'A:\X\Y\A.*'
>>  endif
>>endif
>>or more generic:
>>lcMasterfile='C:\X\Y\A.*'
>>lcTargetfile='A:\X\Y\A.*'
>>if ADir(temp,JustPath(lcMasterfile),"D")=0
>>  messagebox('Master directory does not exist')
>>else
>>  if ADir(temp,JustPath(lcTargetfile'),"D")=0
>>    md (JustPath(lcTargetfile))
>>    COPY FILE (lcMasterfile) TO (lcTargetfile)
>>  endif
>>endif
Previous
Reply
Map
View

Click here to load this message in the networking platform