China DOS Union

Moderator qwe1234567, why did the program code you posted earlier under the 2000 environment disappear?

set a=%date:~4,4%%date:~9,2%%date:~12,2%@%time:~0,2%%time:~3,2%%time:~6,2% ren *.txt *%a%.txt
If you want to modify the TEST.TXT file, you just need to replace *.txt with test.txt. If you put this file in the folder where you need to change the file names, you can omit the path, and you can also change all TXT file names!

[ Last edited by qwe1234567 on 2006-10-15 at 10:57 ]

Thank you very much. I will see what other special functions the supervisor needs on Monday.

Refer to the modification by moderator qwe1234567 for 2K:

XP
@echo off set datetime=%~n1%date:~0,4%%date:~5,2%%date:~8,2%@%time:~0,2%%time:~3,2%%time:~6,2%%~x1 copy %1 %datetime%
2K
@echo off set datetime=%~n1%date:~4,4%%date:~9,2%%date:~12,2%@%time:~0,2%%time:~3,2%%time:~6,2%%~x1 copy %1 %datetime%
The operation method is: bat *.txt (with extension)

Integrated with zxcv, qwe1234567 moderators, DOS.BAT content
@echo off if "%1"=="/?" echo Rename the target file name to "source file name + current date + @ + time" &&echo.&&echo Syntax: DOS filename &&PING/n 4 127.1>NUL &&exit if "%1"=="" echo Rename the target file name to "source file name + current date + @ + time" &&echo.&&echo Syntax: DOS filename &&PING/n 4 127.1>NUL &&exit ver|find /i "xp">nul if not errorlevel 1 set datetime=%~n1%date:~0,4%%date:~5,2%%date:~8,2%@%time:~0,2%%time:~3,2%%time:~6,2%%~x1 ver|find /i "2000">nul if not errorlevel 1 set datetime=%~n1%date:~4,4%%date:~9,2%%date:~12,2%@%time:~0,2%%time:~3,2%%time:~6,2%%~x1 if "%datetime%"=="" echo This program must run on Windows xp or Windows 2000 system &&ping/n 4 127.1>nul &&exit echo %1 %datetime%

```
On Error Resume Next

Set objArgs = WScript.Arguments
If objArgs.Count < 1 Then
WScript.Echo "Drag files to this file with mouse or run with arguments!"
WScript.Quit
End If

For Each strFile In objArgs
strNewFile = Mid(strFile,1,InStrRev(strFile,".") _
- 1) & Replace(Date,"-","") & "@" _
& Replace(Time,":","") & _
Mid(strFile,InStrRev(strFile,".") )
If Len(Trim(strNewFile)) = 0 Then
strNewFile = strFile & Replace(Date,"-","") & _
"@" & Replace(Time,":","")
End If
ReName strFile , strNewFile
Next


Sub ReName (strFile,strNewFile)
WScript.Echo strFile & vbLf & strNewFile
CreateObject("Scripting.FileSystemObject") _
.MoveFile strFile,strNewFile
End Sub
```
Copy to SendTo, then select all the files to be modified and send to... That's it.
Or call with multiple parameters in bat, you can change the first line of the ReName procedure from vblf to "," to display the change details for forming a log.

I only have less than 11:00 AM here, why are you all at 2006-10-15 13:00, Moderator, is there a problem with the server time?

Dear all experts,

Just now, my supervisor told me that it was tested in the 2000 server en environment. I copied the date and time.

C:\Documents and Settings\Administrator>date
The current date is: 10/16/2006 Mon
Enter the new date: (mm-dd-yy)

C:\Documents and Settings\Administrator>time
The current time is: 10:44:17.73
Enter the new time:

fastslz, can you log in to MSN? I want to ask you some questions, thank you very much

```
set a=%date:~6,4%%date:~0,2%%date:~3,2%@%time:~0,2%%time:~3,2%%time:~6,2%%time:~9,2%
ren *.txt *%a%.txt
```

@echo off
set /p yy=Path of the file to be processed:
set /p uu=Name of the file to be processed:
for /F "tokens=1-3 delims=/- " %%A in ('date/T') do set DATE=%%A%%B%%C
for /F "tokens=1-2 delims=/: " %%A in ('time/T') do set TIME=%%A%%B
for %%i in (%yy%:\%uu%) do copy %%i %yy%:\%%~ni%DATE%@%TIME%.txt

Borrowed fastslz's code, but with the above几句 added, it can process files on any drive letter! Also: When displaying this sentence, do not enter a colon after the drive letter!

Originally posted by samzj at 2006-10-16 22:53:
Hello everyone
Just now, my supervisor told me that the test was carried out in the 2000 server en environment. I copied the date and time.
C:\Documents and Settings\Administrator>date
The current date is: 10/16/2006 Mon
Enter t ...

The time sequence in the English version is different.
If I replace
for /F "tokens=1-3 delims=/- " %%A in ('date/T') do set DATE=%%A%%B%%C

in my code with
for /F "tokens=1-3 delims=/- " %%A in ('date/T') do set DATE=%%C%%B%%A

that is, just change the order, which is easy to grasp.

The best for such a problem

echo %time%
echo %date%

Post these two displays

```batch
@echo off
set /p lj=Path of the file to be processed:
set /p wjm=Name of the file to be processed:
copy %lj%%wjm% %lj%%wjm%%date:~10,4%%date:~4,2%%date:~7,2%@%time:~0,2%%time:~3,2%%time:~6,2%.txt
```

Thanks to everyone's enthusiastic help~~~~
Today, under the remote guidance of moderator qwe1234567, this problem was finally temporarily solved.
Test environment: 2000 server en

C:\Documents and Settings\Administrator>date
The current date is: 10/16/2006 Mon
Enter the new date: (mm-dd-yy)

C:\Documents and Settings\Administrator>time
The current time is: 15:56:45.35
Enter the new time:


set a=%date:~10,4%%date:~4,2%%date:~7,2%@%time:~0,2%%time:~3,2%%time:~6,2%
copy c:\test.bat test%a%.bat

Finally successful, thank you all who posted to help!!!!

And also need to thank fastslz for the patient explanation~~~~~~ and so on and so forth