Loading ...
Sorry, an error occurred while loading the content.

[Clip] Convert Image Files to Lower Case.

Expand Messages
  • Charles M. Raine
    Hi NoteTabbers: The included clip will allow mass change of Image file names to Lower Case. This was a problem mentioned on the Album Express List. Mixed case
    Message 1 of 1 , Nov 8, 1999
    • 0 Attachment
      Hi NoteTabbers:

      The included clip will allow mass change of Image file names to Lower Case.
      This was a problem mentioned on the Album Express List. Mixed case can
      cause problems in accessing files on some servers, so the general and
      safest standard is LOWER CASE, (from my experience).

      Here is my clip:

      ---------< start clip >---------
      H="Lower Case Names"
      ; Charles M. Raine <rainec@...>
      ; 11/08/1999, 08:14:53 PM
      ; You must first select a specific folder.
      ; The purpose of this clip is to convert file names of a specific Type
      ; of files to Lower Case.
      ^!ClearVariables
      ^!SetWizardTitle "Select Folder containing Images"
      ^!Set %folder%=^?{(T=D)Select Drive/Directory Path=}; %type%=^?{Image
      Type=_*.jpg|*.gif|*.jpeg|*.png}; %us%=^?{Checkmark files automatically in
      file list to process==_Yes^=_|No^=}
      ^!SetScreenUpdate Off
      ^!SetWizardTitle "Images in process."
      ^!Set %Full%=^$GetFileName(^$GetFileFirst(^%folder%;"^%type%";NAME)$)$
      :Loop1
      ^!IfTrue ^$IsEmpty(^%Full%)$ DoArray
      ^!Append %Files%=^%us%^%Full%|
      ^!Set %Full%=^$GetFileName(^$GetFileNext$)$
      ^!GoTo Loop1

      :DoArray
      ^!CloseFileFind
      ^!If ^$StrCount("|";"^%Files%";no;no)$<1 Next ELSE Skip_2
      ^!Info No ^%type% files where found in that folder !
      ^!GoTo End
      ^!SetWizardLabel "Checkmarked Items will be RENAMED in Lower Case"
      ^!SetArray %EditList%=^?{(T=A;H=25)Pick as required=^%Files%}
      ^!Set %p_Count%=^%EditList0%
      ^!Set %Index%=0

      :Loop2
      ^!Inc %Index%
      ^!If ^%Index% > ^%p_Count% End
      ^!Set %new%=^$StrLower("^%EditList^%Index%%")$
      ^!Skip ^%EditList^%Index%% - - - - Rename ?
      ^!GoTo Loop2
      ^!RenameFile "^%folder%^%EditList^%Index%%" "^%folder%^%new%"
      ^!Goto Loop2
      ---------< end clip >-----------
      |----< Copy between wrappers >----|
      | right click over the clipbook |
      | and choose "Add from Clipboard" |
      |---------------------------------|

      Charlie.

      Charles M. Raine Home Page: http://www.escape.ca/~rainec
      Phone (204) 895-0940 ICQ # 300058
      Winnipeg, Manitoba, Canada
    Your message has been successfully submitted and would be delivered to recipients shortly.