teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

2

誤記修正

2020/02/14 01:47

投稿

Y.H.
Y.H.

スコア7918

answer CHANGED
@@ -6,7 +6,7 @@
6
6
  ```
7
7
 
8
8
  ```cmd
9
- echo WScript.Echo dt = DateAdd("d",-3, Date) > tmp.vbs
9
+ echo dt = DateAdd("d",-3, Date) > tmp.vbs
10
10
  echo WScript.Echo right("0000"&Year(dt),4) & right("00"&Month(dt),2) & right("00"&Day(dt),2) >> tmp.vbs
11
11
  for /f "usebackq" %J in (`cscript //nologo aaa.vbs`) do set OLD=%J
12
12
  del tmp.vbs

1

回答修正

2020/02/14 01:47

投稿

Y.H.
Y.H.

スコア7918

answer CHANGED
@@ -1,3 +1,21 @@
1
+ 環境依存が無いようにtmp.vbsを以下のようにしてyyyymmdd形式で返してしまった方がいいです。
2
+
3
+ ```vbscript
4
+ dt = DateAdd("d",-3, Date)
5
+ WScript.Echo right("0000"&Year(dt),4) & right("00"&Month(dt),2) & right("00"&Day(dt),2)
6
+ ```
7
+
8
+ ```cmd
9
+ echo WScript.Echo dt = DateAdd("d",-3, Date) > tmp.vbs
10
+ echo WScript.Echo right("0000"&Year(dt),4) & right("00"&Month(dt),2) & right("00"&Day(dt),2) >> tmp.vbs
11
+ for /f "usebackq" %J in (`cscript //nologo aaa.vbs`) do set OLD=%J
12
+ del tmp.vbs
13
+ for /d %%D in (TEST_BACKUP_????????*) do if %%D LSS %OLD% rd /s /q %%D
14
+ ```
15
+
16
+
17
+ ----
18
+
1
19
  `SetLocale 1031`とドイツのロケールを指定するといけませんかね?
2
20
 
3
21
  [GetLocale 関数](https://docs.microsoft.com/ja-jp/previous-versions/windows/scripting/cc410233(v=msdn.10))