Database Search

TechHome

Math - Random

• CD Burn Code for XP
• Change Win95 NT MenuShowDelay
• Code to Automatically Minimize Open Windows
• Deploying App Using Winbatch Wrapper Via Web
• Determining if Checkboxes are Checked
• Digital FingerPrinting using SHA1
• Directory Move
• Emergency Repair Disk Companion NT 4
• FileTimeCode-Find Newest Files
• Hexdump
• Hint of the day
• Holidays and Work Day Calculation
• KidProofwbt Provides Parental Control Over Desktop
• Massive Edit for Many Files
• Parrot Script to Playback Recorded Wave File
• Phone Dialer Example
• Quickly read last line in text file
• Rename file with file creation date
• SemiTransparent Windows
• Send Email with dialog
• Shell Window Details
• Test if App Exists before Exit Windows
• Utility to Pass Parms to WBT while in WB Studio
• Wait for AVI to finish
• WBT Scrolls across a Window and Makes it Larger
• Winbatch Script to Convert ScriptIt INI Files
• WinBatch Setup Source
• WinPopup - Send Message to Remote Machine using Mailslot
• wntRunAsUser Sample Code

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

Rename file with file creation date

Keywords: Rename fileYMDHMS create date

 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 Debug(1)
  path="C:\Temp\"
  file="test.txt"
  fullfile=strcat(path,file)
  if fileexist(fullfile)==1
	    a=FileYMDHMS(fullfile) 
	    ;;;This will separate it into 3 separate parts; param1, param2, param3
	    Year=Itemextract(1, a, ":")
	    Month=ItemExtract(2, a, ":")
	    Day=ItemExtract(3, a, ":")     
	
	    ;;;Some days and months may only have one digit.  To make sure they have two digits:
	    If StrLen(month) == 1 then month="0%month%"
	    If StrLen(day) == 1 then day= "0%day%"
	
	    ;;;Get file extension of the file		  
	    ext = FileExtension(fullfile)
	    ;;;You need to concantenate the parts together.
	    Datename=StrCat( path,month,day,year,".",ext)
	    message("NEWNAME",datename)
	    ;;;Rename the file
	    Filerename(fullfile,datename)
		 message("FileRename","SUCESSFUL")
  endif
  message("FileRename","FINISHED")

Article ID:   W13756

Filename:   Rename file with file creation date.txt

File Created: 1999:04:15:16:56:10

Last Updated: 1999:04:15:16:56:10