Database Search

match allmatch any Look in all areasLook in current areas Check all datesPrevious dayPrevious 3 daysPrevious weekPrevious fortnightPrevious monthPrevious 2 monthsPrevious 3 monthsPrevious half-yearPrevious year

TechHome

• Build a Delimited Dir List for FileAppend File List
• Case Conversion Algorithm
• Change Old File and Path to New One
• Check File Date and Delete Older Files in Directory
• Check if File is Open or Exists
• Compare Directories
• Compute File Sizes
• Copy Files and Archive Attribute
• Copying Files from a Given Date
• Copying files XCOPY
• Count Keywords in Several Files
• Delete First Few Lines of a File
• Delete Temp Files Older Than
• Delimit a List of Files
• Display - Write File Contents to Screen
• Display Files in a Dialog with Case Sensitivity
• Fastest File Search Methods
• File Append for ASCII files with Ctrl-Zs in them
• File Counting and Item Counting Loop
• File List Sorted by Size
• File Mask Matching
• File or Item Extraction Loop
• FileCopy Error Handling
• FileOpen Error 1077 - Capture Additional Error Information
• FileVerInfo Constants
• FilVerInfo Returns Incorrect Version
• Get a List of Hidden Files in a Directory
• Get Date when File was Last Accessed Created Modified
• Get File Ownership in NT
• Get File Sizes Recursively
• Get Oldest or Newest File
• Get Users Home Directory
• Isolate Filename in a File Path
• List Files with Alternate Data Streams
• Merge Files with Binary Functions
• Parse Data from ASCII file using FileRead
• Progress Bar during FileCopy
• Read Part of File with BinaryRead
• Removing EOFs
• Renaming Files on an Incremental Basis
• Search for Upper Ascii Chars in File
• Sort a Flat File
• Tricky Bulk FileRename
• Write Various Quote Marks to Files

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Tricky Bulk FileRename

 Keywords: File Rename FileRename StrFixLeft Pad 

---

I needed to rename a folder of several hundred files, but I wanted to keep the first 6 characters and the last 8 characters the file names were and needed to be 20 characters long. They are Pattern files for a lens cutter in the doctors office I work at. An example of the file name is SILH-00000001234.PTN. Some one traced the patterns in the machine and named them SILH-0SPIRIT1234.PTN This name didn't cause any issues, but this vendor does not have a "Spirit" line of products so I wanted to fix it. Goal - Replace SPIRIT with 000000.

; Code posted to WinBatch Forum 2013.06.26 by kennytmcp 
DirChange("C:\Users\kenny\Desktop\SILH")    ;set working dir.
List1 = FileItemize("C:\Users\kenny\Desktop\SILH\*.PTN")      ;list files in the dir I want to manupilate
ptncount=ItemCount(List1,@TAB)    ;File Count
For xx=1 TO ptncount            ;Loop = to the file count
   ptn=ItemExtract(xx,List1,@TAB) ; get one file name at ta time
   ptn1 = StrFixLeft(ptn, " ",8) ;fix string left to trim off all the way to the pattern number leaving the file name as 1234.PTN  8 characters     ::)
   ptn2 = StrFixLeft(ptn1, "SILH-0000000",20) ; fix string left again, making the lenth 20 characaters using the desired padding string leaving new string ptn2
   FileCopy(ptn, "C:\Users\kenny\Desktop\SILH\NEW\temp.ptn", @FALSE) ;copy files to a new folder and NEW name to save confusion.  
   dirchange("C:\Users\kenny\Desktop\SILH\NEW\")  ; change to the new directory
   filerename("temp.ptn",ptn2) ; rename temporary file name to the variable ptn2 the correct name 
   dirchange("C:\Users\kenny\Desktop\SILH\")
   FileDelete( ptn )         ; Deletes original files
Next  ;finished loop so continue down.
Message("Thats It", "all files were copied and renamed")  ;end

---

Article ID:   W17877

Filename:   Tricky Bulk FileRename .txt

File Created: 2013:06:27:08:31:02

Last Updated: 2013:06:27:08:31:02