Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Copying files to another directory
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
01642909
Message ID:
01642959
Vues:
34
>>>>>>>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.
>
>Both directories are on the C drive
>
>c:\citisprint\attach
>
>c:\citisprint\attachxls


You've got a typo in there Colin

>>>lcFileName = SYS(2000,"c:\citisprint\sttach\*.*")

should be

>>>lcFileName = SYS(2000,"c:\citisprint\attach\*.*")
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform