Erreur OVERFLOW comment la régler?

Signaler
Messages postés
30
Date d'inscription
mardi 22 août 2000
Statut
Membre
Dernière intervention
12 décembre 2003
-
Messages postés
30
Date d'inscription
mardi 22 août 2000
Statut
Membre
Dernière intervention
12 décembre 2003
-
Voici mon code:

Dim site As Integer
Dim filename As String

ChDir "C:"
filename = "temptemp.txt"
Open "temptemp.txt" For Append As #111
Print #111, "open ftp.multimania.com"
Print #111, "USER xxxxxxx"
Print #111, "xxxxxxx"

Print #111, "cd " + "/allo/" + Text4
Print #111, "delete Used.txt"
Print #111, "put c:\Used.txt"
Print #111, "quit"
Close #111


site = Shell("ftp -n -s:c:\temptemp.txt")

Kill "Used.txt"
Kill "temptemp.txt"

Lorsque que je l'execute, une erreur aparait "OVERFLOW". Le problème est je crois
Dim site As Integer

La commande FTP en DOS s'execute par exemple parfaitement.

Qqun peu m'aider?

3 réponses

Messages postés
182
Date d'inscription
dimanche 18 août 2002
Statut
Membre
Dernière intervention
5 janvier 2004
3
la variable doit être booléenne (ou variant) !!!!
0
Messages postés
30
Date d'inscription
mardi 22 août 2000
Statut
Membre
Dernière intervention
12 décembre 2003

J'ai essayer avec:
Dim site As Variant
et
Dim site As Boolean

Sa ne fonctionne pas!!! Je ne comprend pas ... C'est juste avec INTEGER que l'erreur apparait et que la commande ftp dos a executer marche parfaitement!!!
0
Messages postés
30
Date d'inscription
mardi 22 août 2000
Statut
Membre
Dernière intervention
12 décembre 2003

Merci raff j'ai compris pourquoi sa ne marchais pas ... Je l'ai mit en Boolean sa amrche le problème était qu'à la fin du code je suprimait le fichier temptemp.txt avant même que la commande dos soit terminée.. merci encore!
0