IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB 6 et antérieur Discussion :

[appli vb6] Zip et Win98


Sujet :

VB 6 et antérieur

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé Avatar de riesseg
    Profil pro
    Inscrit en
    Mars 2006
    Messages
    415
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2006
    Messages : 415
    Par défaut [appli vb6] Zip et Win98
    coucou !!

    J'vous ai manqué, hein ?
    J'ai mon appli qui marche plutot bien et tout, et je suis en train de l'installer sur une machine sous win98.

    Sur cette machine, mon appli se lance, mon Restaure se Lance, mon Sauv se lance (Restaure et Sauv sont des .exe vb6)
    Restaure et Sauv manipules des fichiers .zip

    Et ca plante sur le Win98 sur lequel j'installe.
    En comparant le pourcentage du restaure a laquelle il plante, je tombe sur:
    bon, je reviens avec des nouvelles fraiches:

    J'ai installé Winrar sur le dit PC et:

    Le Save marche tout a fait.
    Si j'ouvre un fichier de sauvegarde.zip fait avec l'application de W98, il me fait dans le Restaure.exe l'erreur:
    Citation Envoyé par runtime error 430
    Class does not support Automation
    or
    does not support expected Interface
    ce a 95% donc au code
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    Label16.Caption = 95 & "%"
    ProgressBar1.Visible = True
    ProgressBar1.Value = 95
    Refresh
    Sleep 250
     
    Refresh
     
     
    For I = 0 To File2.ListCount - 1
     If fso.FileExists(App.Path & "\" & File2.List(I)) Then
        fso.DeleteFile App.Path & "\" & File2.List(I)
    End If
    Next I
    Si j'ouvre une sauvegarde faites sur un autre PC ( celui qui tourne) il me met comme erreur:
    Citation Envoyé par RunTime error 52
    Bad File name or number
    et ce a 20% donc au code:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    Label16.Caption = 20 & "%"
    ProgressBar1.Visible = True
    ProgressBar1.Value = 20
    Refresh
    Sleep 100
     
     
     
    Dir1.Enabled = False
    Command1.Enabled = False
    Command2.Enabled = False
    Drive1.Enabled = False
     
     
     
     
     
    Set zip = New ZipExtractionClass
     
     
    If zip.OpenZip(Dir1.Path & "\" & File1) Then
     
     
        If zip.Extract(App.Path, True, True) Then
        End If
       zip.CloseZip
     
    End If
    Set zip = Nothing
    Sur les autres PC, il marche tres bien ( WinXp)

    La question est:
    - sa plante pasque c'est Win98
    - obiwane kenoby

  2. #2
    Membre éclairé Avatar de riesseg
    Profil pro
    Inscrit en
    Mars 2006
    Messages
    415
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2006
    Messages : 415
    Par défaut
    pas d'idée ?

  3. #3
    Membre éclairé Avatar de riesseg
    Profil pro
    Inscrit en
    Mars 2006
    Messages
    415
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2006
    Messages : 415
    Par défaut
    bon, je reviens avec des nouvelles fraiches:

    J'ai installé Winrar sur le dit PC et:

    Le Save marche tout a fait.
    Si j'ouvre un fichier de sauvegarde.zip fait avec l'application de W98, il me fait dans le Restaure.exe l'erreur:
    Citation Envoyé par runtime error 430
    Class does not support Automation
    or
    does not support expected Interface
    ce a 95% donc au code
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    Label16.Caption = 95 & "%"
    ProgressBar1.Visible = True
    ProgressBar1.Value = 95
    Refresh
    Sleep 250
     
    Refresh
     
     
    For I = 0 To File2.ListCount - 1
     If fso.FileExists(App.Path & "\" & File2.List(I)) Then
        fso.DeleteFile App.Path & "\" & File2.List(I)
    End If
    Next I
    Si j'ouvre une sauvegarde faites sur un autre PC ( celui qui tourne) il me met comme erreur:
    Citation Envoyé par RunTime error 52
    Bad File name or number
    et ce a 20% donc au code:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    Label16.Caption = 20 & "%"
    ProgressBar1.Visible = True
    ProgressBar1.Value = 20
    Refresh
    Sleep 100
     
     
     
    Dir1.Enabled = False
    Command1.Enabled = False
    Command2.Enabled = False
    Drive1.Enabled = False
     
     
     
     
     
    Set zip = New ZipExtractionClass
     
     
    If zip.OpenZip(Dir1.Path & "\" & File1) Then
     
     
        If zip.Extract(App.Path, True, True) Then
        End If
       zip.CloseZip
     
    End If
    Set zip = Nothing
    Sur les autres PC, il marche tres bien ( WinXp)

  4. #4
    Membre éclairé Avatar de riesseg
    Profil pro
    Inscrit en
    Mars 2006
    Messages
    415
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2006
    Messages : 415
    Par défaut
    siouplais, vnez me dire que vous savez pas, mais me laissez pas tout seul

    je suis sur le point de trouver une corde et une poutre

  5. #5
    Inactif  
    Avatar de jmfmarques
    Profil pro
    Inscrit en
    Décembre 2005
    Messages
    3 784
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Décembre 2005
    Messages : 3 784
    Par défaut
    T'es pas tout seul, Riesseg, t'es pas tout seul...
    C'est juste que (moi par exemple) nous ne voyons pas comment traiter un zip sans l'appli qui le traite !
    Pourquoi ne pas te servir de Winzip, gratuit et que tu peux distribuer en même temps que ton setup ?
    Pouirquoi zupper, d'ailleurs ?
    N'est-il pas préférable de faire un setup plus "propre", avec ses fichiers non zippés ?
    Pourquoi passer par une disquette (ceci pourrait expliquer celà, sûrement)... alors que certaines machines n'ont même plus de lecteurs de disquette (je suis dans ce cas : je l'ai enlevé et ne le remettrai qu'en cas de grande catastrophie, pour booter sur une disquette spéciale)
    Un CD te permet de distribuer de façon plus conviviale et sans forcer à dézipper ...
    Enfin... c'est ce que j'en pense...

  6. #6
    Membre éclairé Avatar de riesseg
    Profil pro
    Inscrit en
    Mars 2006
    Messages
    415
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2006
    Messages : 415
    Par défaut
    l'install est 100% operationnelle 100% propre. (c'est pus le probleme jmfmarques, celui la est resolu pour de bon)

    J'ai finalement installe sur le PC Winrar, donc je peux tres bien gerer les Zip.

    Comment tu sais que j'utilise une disquette, je l'ai meme pas dit...
    La c'est vraiment un pb de mon appli sur le PC.

    Est ce que ca pourrait etre un pb de version entre WinXP et Win98 ??
    Pourquoi si je lance mon restaure a partir de mon application il plante a 95% et si je la lance directement a 20% ?

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. retrouver une appli vb6 qui a été empaqueté
    Par prison_break dans le forum VB 6 et antérieur
    Réponses: 10
    Dernier message: 27/03/2007, 07h50
  2. Portabilité appli vb6 sur le net
    Par tdm17 dans le forum Installation, Déploiement et Sécurité
    Réponses: 2
    Dernier message: 11/01/2007, 09h11
  3. intégrer une appli VB6 en service windows
    Par manupatia dans le forum VB 6 et antérieur
    Réponses: 2
    Dernier message: 18/07/2006, 15h27
  4. [VB6]zip et fichier de 0Ko
    Par riesseg dans le forum VB 6 et antérieur
    Réponses: 18
    Dernier message: 29/05/2006, 14h04
  5. Probleme deploiement appli vb6 sur serveur 2003
    Par rivierem dans le forum VB 6 et antérieur
    Réponses: 2
    Dernier message: 12/04/2006, 16h02

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo