回答編集履歴

2

誤記修正

2020/02/14 01:47

投稿

Y.H.
Y.H.

スコア7914

test CHANGED
@@ -14,7 +14,7 @@
14
14
 
15
15
  ```cmd
16
16
 
17
- echo WScript.Echo dt = DateAdd("d",-3, Date) > tmp.vbs
17
+ echo dt = DateAdd("d",-3, Date) > tmp.vbs
18
18
 
19
19
  echo WScript.Echo right("0000"&Year(dt),4) & right("00"&Month(dt),2) & right("00"&Day(dt),2) >> tmp.vbs
20
20
 

1

回答修正

2020/02/14 01:47

投稿

Y.H.
Y.H.

スコア7914

test CHANGED
@@ -1,3 +1,39 @@
1
+ 環境依存が無いようにtmp.vbsを以下のようにしてyyyymmdd形式で返してしまった方がいいです。
2
+
3
+
4
+
5
+ ```vbscript
6
+
7
+ dt = DateAdd("d",-3, Date)
8
+
9
+ WScript.Echo right("0000"&Year(dt),4) & right("00"&Month(dt),2) & right("00"&Day(dt),2)
10
+
11
+ ```
12
+
13
+
14
+
15
+ ```cmd
16
+
17
+ echo WScript.Echo dt = DateAdd("d",-3, Date) > tmp.vbs
18
+
19
+ echo WScript.Echo right("0000"&Year(dt),4) & right("00"&Month(dt),2) & right("00"&Day(dt),2) >> tmp.vbs
20
+
21
+ for /f "usebackq" %J in (`cscript //nologo aaa.vbs`) do set OLD=%J
22
+
23
+ del tmp.vbs
24
+
25
+ for /d %%D in (TEST_BACKUP_????????*) do if %%D LSS %OLD% rd /s /q %%D
26
+
27
+ ```
28
+
29
+
30
+
31
+
32
+
33
+ ----
34
+
35
+
36
+
1
37
  `SetLocale 1031`とドイツのロケールを指定するといけませんかね?
2
38
 
3
39