Erreur OVERFLOW comment la régler?

Question

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:	emptemp.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?

cs_raff · Answer

la variable doit être booléenne (ou variant) !!!!

Alexandre Gauthier · Answer

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!!!

Alexandre Gauthier · Answer

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!

Erreur OVERFLOW comment la régler?

3 réponses

Discussions similaires