Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Copying files to another directory
Message
From
09/11/2016 10:46:08
 
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
01642909
Message ID:
01642954
Views:
42
>>>>>I have an unknown number of files in directory A
>>>>>I want to copy just the first to another directory B
>>>>>
>>>>>My present code copies them all COPY FILE *.* to c:\citisprint\attachxls\latest.xlsx
>>>>>
>>>>>How do I just copy the first and then delete it so it doesn't get copied again or can I move the first file to directory B? If so how?
>>>>>
>>>>>Thanks
>>>>
>>>>
>>>>How do you know what file is first?
>>>
>>>Say I have 10 files in a directory
>>>
>>>The first one in the directory - I want to move it to another directory process it and then delete it
>>>
>>>The next time I run the program the original 2nd file is now no !
>>>
>>>And so on until I have processed all 10 files
>>>
>>>Colin
>>
>>
>>lcFileName = SYS(2000,"D:\test\*.*")
>>DO WHILE NOT EMPTY(lcFileName)
>>   RENAME ("D:\test\"+lcFileName) TO ("D:\NewFolder\"+lcFileName) && Be careful, this will MOVE file not just copy
>>   lcFileName = SYS(2000,"D:\test\*.*",1)
>>ENDDO
>>
>
>
>I have attemted to run the following code in my live program - the files are in the attach directory but nothing gets moved - waht am I doing wrong?
>
>
>SET DEFAULT TO c:\citisprint\attach
>
>lcFileName = SYS(2000,"c:\citisprint\sttach\*.*")
>DO WHILE NOT EMPTY(lcFileName)
> RENAME (lcFileName) TO ("c:\citisprint\attachxls\"+lcFileName) && Be careful, this will MOVE file not just copy
> lcFileName = SYS(2000,"c:\citisprint\attach\*.*",1)
>ENDDO

The files must be on the same drive for this code to work. If they are on separate drives, you must first copy the files, make sure that they are actually copied and then delete the old ones.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform