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:
ce a 95% donc au codeEnvoyé par runtime error 430
Si j'ouvre une sauvegarde faites sur un autre PC ( celui qui tourne) il me met comme erreur:
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
et ce a 20% donc au code:Envoyé par RunTime error 52
Sur les autres PC, il marche tres bien ( WinXp)
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
La question est:
- sa plante pasque c'est Win98
- obiwane kenoby
Partager