add.modify.date.vbs

Set fileSystemObject = CreateObject("Scripting.FileSystemObject")

inputFilePathFull = WScript.Arguments(0)

Set fileObject = fileSystemObject.GetFile(inputFilePathFull)

inputFileName = fileSystemObject.GetFileName(fileObject)

inputFilePath = fileSystemObject.GetParentFolderName(fileObject)

outputFilePath = inputFilePath & "\" & Year(fileObject.DateLastModified) & Right("0" & Month(fileObject.DateLastModified), 2) & Right("0" & Day(fileObject.DateLastModified), 2) & " - " & inputFileName

If fileSystemObject.FileExists(inputFilePathFull) Then
	fileSystemObject.MoveFile inputFilePathFull, outputFilePath
End If

Set fileSystemObject = Nothing