请教!这VBA语句怎样写?

ha0148

在D盘YSGL\BACKUP\目录下有5个扩展名为.JB文件,
文件名为:20100502.JB,20100619.JB,20100809.JB,20100810.JB,20100811.JB
我知道用VBA语句来删除BACKUP目录下的所有文件.
Dim YY
YY = "D:\ysgl\BACKUP\*.*"
Kill YY
也知道用VBA语句删除BACKUP目录下指定备份日期的文件.
DIM YY,ZZ,XX
YY = "D:\ysgl\BACKUP\"
ZZ=FORMAT (DATE,"YYYY-MM-DD")-3 & ".JB"
XX=YY & ZZ
KILL XX   '删除系统日期前三天的文件.
请问:如果我想删除BACKUP目录下,系统三天前的所有*.JB文件,语句怎样写,望指教,谢谢!

tmtony

ZZ=FORMAT (dateadd("d",-3,date),"YYYY-MM-DD")-3 & ".JB"

asklove

学习

ha0148

站长谢谢你的回复:可这样不行呀?
Dim YY, ZZ, XX
YY = "D:\ysgl\BACKUP\"
ZZ = Format(DateAdd("d", -3, Date), "YYYY-MM-DD") - 3 & ".JB"
XX = YY & ZZ
Kill  XX
执行这个语句时,ZZ是一个空值呀.无法执行它,请指教一下,谢谢!

ha0148

高手,请指教一下好吗?

pxsj

期待答案

ha0148

期待 等待 答案

红尘如烟

1.     Dim strPath As String
   
2.     Dim strFile As String
   
3.     Dim lngDate As Long
   
4. 
   
5.     strPath = "D:\ysgl\BACKUP"
   
6.     lngDate = Format(DateAdd("d", -3, Date), "yyyymmdd")
   
7.     strFile = Dir(strPath)
   
8.     If strFile Like "[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]*.JB" Then
   
9.         If Left(strFile, 8) < lngDate Then Kill strPath & strFile
   
10.     End If
    
11.     Do Until strFile = ""
    
12.         strFile = Dir()
    
13.         If strFile Like "[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9].JB" Then
    
14.             If Left(strFile, 8) < lngDate Then Kill strPath & strFile
    
15.         End If
    
16.     Loop
    

复制代码