dosyl
asked on
Problem with the installation of my pgm.
I have this problem, when i install my pgm. and if the file that i install is more recent than the system's file.
I have this message for example with a .rpt's file(CrystalReport):
The file that you're copying IS LESS RECENT than that one on your system. You should to keep the existant'sfile.
File'sName : C:\programfiles......
Description : "
Your version : "
Do you want to keep this file?
I use VB6.0 SP3.
I make .cab for the installtion.
Setup tell the file is LESS RECENT, then in reality it is more RECENT. This message should not appear.
Too, it doesn't write the description and the version.
Someone have an idea.
P.S. I have French's VB.
I have this message for example with a .rpt's file(CrystalReport):
The file that you're copying IS LESS RECENT than that one on your system. You should to keep the existant'sfile.
File'sName : C:\programfiles......
Description : "
Your version : "
Do you want to keep this file?
I use VB6.0 SP3.
I make .cab for the installtion.
Setup tell the file is LESS RECENT, then in reality it is more RECENT. This message should not appear.
Too, it doesn't write the description and the version.
Someone have an idea.
P.S. I have French's VB.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
I fix the problem in the CopySection, but it seems i remove an Endif can you tell me where to put it:
Dim sFileDate2 As Date
sFileDate2 = FileDateTime(sFile.strDest
If DateDiff("s", StartDate, sFileDate2) > 0 Then
If sFileDate = sCurDate Then
lTime = GetFileTime(sFile.varDate)
hFile = CreateFile(sFile.strDestDi
SetFileTime hFile, lTime, lTime, lTime
DoEvents
CloseHandle hFile
Else
'
'Give a chance for the 'Cancel' button command to be processed if it was pressed
'
DoEvents
End If
'Delete the files after copy...
SetAttr gsTEMPDIR & sFile.strDestName, vbNormal
Kill gsTEMPDIR & sFile.strDestName
intIdx = intIdx + 1
Loop
Err.Clear
End Sub
Another question, do you know why SP3 remove my name for my VB's license and the serial's number?
Dim sFileDate2 As Date
sFileDate2 = FileDateTime(sFile.strDest
If DateDiff("s", StartDate, sFileDate2) > 0 Then
If sFileDate = sCurDate Then
lTime = GetFileTime(sFile.varDate)
hFile = CreateFile(sFile.strDestDi
SetFileTime hFile, lTime, lTime, lTime
DoEvents
CloseHandle hFile
Else
'
'Give a chance for the 'Cancel' button command to be processed if it was pressed
'
DoEvents
End If
'Delete the files after copy...
SetAttr gsTEMPDIR & sFile.strDestName, vbNormal
Kill gsTEMPDIR & sFile.strDestName
intIdx = intIdx + 1
Loop
Err.Clear
End Sub
Another question, do you know why SP3 remove my name for my VB's license and the serial's number?
ASKER
I forgot to remove: If sFileDate = sCurDate Then
Do you know for the name and Serial Number?
And answer to my first comment too.
Do you know for the name and Serial Number?
And answer to my first comment too.
ASKER
Must i remove Setup.exe 140KB and replace it with Setup.exe 248KB in the directory C:\ProgrmaFiles\...\Vb98\.
Donald
Donald
come on, didn't you save the original file somewhere before messing with it?
You do not need to copy the setup.exe because of the change you made to the bas file.
Sorry I don't know about the name and serial number problem. Try msdn knowledge base. I find most problems get answered there eventually. Good Luck!
You do not need to copy the setup.exe because of the change you made to the bas file.
Sorry I don't know about the name and serial number problem. Try msdn knowledge base. I find most problems get answered there eventually. Good Luck!
ASKER
I found Setup1.exe is called by setup.exe
ASKER
Non-Versioned version conflict message displays useless information (SP2 & SP3)
Before a file that has no version overwrites an existing file with the same name, the setup displays a useless message that lists the description and version number that by definition are blank. It should, instead list file date and size of new and old file so the user can make an educated decision.