我寫了一段代碼;
BackupName = Replace(str(Filedate), "/", "-")
FileName = App.Path + "\Backup\" + BackupName + ".mdb"
If IsNull(Dir(FileName)) = True Then
MsgBox "File is not exist!", , "Waring!"
Exit Sub
Else
SHFileOp.wFunc = FO_COPY
SHFileOp.pFrom = FileName
SHFileOp.pTo = App.Path + "\info.mdb"
SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMMKDIR
Call SHFileOperation(SHFileOp)
End If我的FileName 調試時值="..\backup\2004-3-18.mdb"
可是不管文件是否存在,dir(Filename)都不能正確判斷,
但是如果寫成Dir("..\backup\2004-3-18.mdb")這樣才行
為啥///?????
BackupName = Replace(str(Filedate), "/", "-")
FileName = App.Path + "\Backup\" + BackupName + ".mdb"
If IsNull(Dir(FileName)) = True Then
MsgBox "File is not exist!", , "Waring!"
Exit Sub
Else
SHFileOp.wFunc = FO_COPY
SHFileOp.pFrom = FileName
SHFileOp.pTo = App.Path + "\info.mdb"
SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMMKDIR
Call SHFileOperation(SHFileOp)
End If我的FileName 調試時值="..\backup\2004-3-18.mdb"
可是不管文件是否存在,dir(Filename)都不能正確判斷,
但是如果寫成Dir("..\backup\2004-3-18.mdb")這樣才行
為啥///?????
FileName = App.Path & "\Backup\" & BackupName & ".mdb"
fileName 也改"+"為"&"....天,沒道理!!!!!!!!!!!