質問編集履歴
1
誤字の修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -18,7 +18,7 @@
|
|
|
18
18
|
Wend
|
|
19
19
|
|
|
20
20
|
'古いバックアップファイルの削除
|
|
21
|
-
strBackupFileName = Dir(
|
|
21
|
+
strBackupFileName = Dir("フォルダパス")
|
|
22
22
|
While intFileCNT > 100 '最大保存ファイル数は100個
|
|
23
23
|
If Left(strBackupFileName, 8) = "FILENAME" Then
|
|
24
24
|
Call Kill("フォルダパス" & strBackupFileName)
|