Vrajitorul de impachetare VB imi face figuri

Făcui și eu ceva progrămele și nu pot să le distribui pt. ca deși împachetarea merge OK (vrajitorul de împachetare merge si ruleaya OK=se creează fisierul *.cab),
cînd pornesc instalarea progrămelului (dezpachetarea) apar urmatoarele mesaje de eroare:
1Application removal logfile 'c:\winnt\st6unst.001' not found. Unable to continue.
2Setup was not completed successfully.
3Setup will now start the application removal utility to remove temporary installation files.
4Path not found
Error attempting to run aplication removal program to remove temporary installation files.

I) Ce ar putea insemna? Că nu gasește fișierul '' c:\winnt\st6unst.001''. (Windows XP2 îl am pe partiția D:\ ~ alt hard linga hardul C:\ ~ exculuisiv cu MP3-uri)
II) Am rulat in mediul Visual Basic programul Setup1 si la compilare afiseaza mesajele de eroare mentionate mai sus.
Am tras deci concluzia ca Vrajitorul de impachetare VB are o eroare in Setup1.
Afisez mai jos codul unde (apare eroarea, dupa mine). Ce parere aveti?
III) Mai exista si alte programe de impachetare astfel incit sa pot distribui programelele cu toate dependintele ce le includ (*.dll)? Altfel, ar trebui transferate manual *.dll -urile (in path -ul necesar)

Nu stiu daca ma puteti ajuta, pt mine pare imposibila chestia asta cu eroarea (la despachetare), oricum astept ceva semnale de la voi.
_____________Salutari !

Setup1 - basCommon (Code)

               '**** FileExists  - aici pare a fi problema, anume in liniile:
               '**** strPathName='c:\winnt\st6unst.001' primeste functia
    Function FileExists(ByVal strPathName As String) As Integer
    Dim intFileNum As Integer

    On Error Resume Next

    '
    ' If the string is quoted, remove the quotes.
    '
    strPathName = strUnQuoteString(strPathName)
    '
    'Remove any trailing directory separator character              '  ----------  EROARE    ----------
    '
    If Right$(strPathName, 1) = gstrSEP_DIR Then                '********* NU gaseste ********
        strPathName = Left$(strPathName, Len(strPathName) - 1)
    End If

    '
    'Attempt to open the file, return value of this function is False
    'if an error occurs on open, True otherwise
    '
    intFileNum = FreeFile
    Open strPathName For Input As intFileNum

    FileExists = IIf(Err = 0, True, False)

    Close intFileNum

    Err = 0
End Function

Salut, presupun ca ai incercat Package & Deployment Wizard pentru VB6?   incearca InnoSetup e free , uite si un script pentru innoSetup care instaleaza runtime-ul VB-ului, DCOM si MDAC
bafta!

nu merge installeru' pe windows 2000 sau xp..
dar ai putea lua free microsoft visual studio installer (upgrade la package and deployment wizard), care are niste optiuni mult mai ca lumea