Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Renaming a file goes in lowercase
Message
 
 
To
23/09/2004 14:47:17
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00945469
Message ID:
00945487
Views:
21
You can use MoveFile to rename so you don't have to delete anything.

>>You can use Win API to preserve destination file name case. See Re: Rename a file long file name from lower to upper case Message #801674
>
>Well, based on this, this is how I succeeded to achieve that:
>
>
>DECLARE INTEGER CopyFile IN KERNEL32.DLL ;
>   STRING SourceFileName, ;
>   STRING DestFileName, ;
>   INTEGER bFailIfExists
>
>ADIR(laFile,'*.*','',1)
>FOR lnCompteur=1 TO ALEN(laFile,1)
>   lcFile=laFile[lnCompteur,1]
>   lcFileNew=UPPER(SUBSTR(lcFile,1,1))+SUBSTR(lcFile,2)
>   RENAME laFile[lnCompteur,1] TO (lcFileNew+'a')
>   CopyFile(laFile[lnCompteur,1]+'a',lcFileNew,0)
>NEXT
>
>
>Then, I removed the temporary files which have been renamed in order to keep the same name.
>
>Thanks
--sb--
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform