problèeme a l'ecrasement du fichier txtRésolu

Question

Bonjour tout le monde,
voila j'explique mon probl&#232;me :
apr&#232;s avoir extrait des informations contenues dans mon fichier texte je voudrait le supprimer. Pour cela j'effectue ce code :

 Set FSys = CreateObject("Scripting.FileSystemObject")
 Set Monfic = FSys.CreateTextFile("S:\developpement
omsip'" & z & "'.txt")
 Monfic.Close
 Path = "S:\developpement
omsip'" & z & "'.txt"
 Shell "cmd /C nslookup " & b & "  > " & Path, 0
 Open "S:\developpement
omsip'" & z & "'.txt" For Input Access Read As #2
   Do While Not EOF(2) ' Tant que la lecture n'est pas a la fin du fichier
    Line Input #2, ip ' Lit et place les lignes dans la variable ip
      tailleipsite = Len(ip)
      If tailleipsite >= 0 Then
       Select Case cptlign
        Case 3: NomSite = Mid(ip, 9, (tailleipsite + 1) - 9)
       End Select
      End If
      cptlign = cptlign + 1
   Loop
 Close #2
 Kill ("S:\developpement
omsip'" & z & "'.txt")

j'ai essayer aussi la methode .DeleteFile mais aucunes des deux commandes ne fonctionnent.

Premierement :  mon fichier de s'efface pas (a moins que j'execute mon programme pas &#224; pas)
Deuxi&#232;mement : au bout d'un certain moment (car ce bout de code fait parti d'une boucle) un message d'erreur s'affiche sur le passage : Kill ("S:\developpement
omsip'" & z & "'.txt") et m'indique que la permission et refusser et quand j'essaye de supprimer le fichier a la main celui ci de veut pas non plus .... Bizare...

donc voila je ne comprend pas trop ce qui m'arrivr alors si quelqu'un aurait deja eu ce probl&#232;me ou connaitrait la solution je suis a votre ecoute :)

Merci.



piou ('<>')

Gobillot · Accepted Answer

le probl&#232;me c'est qu'il faut laisser le temps au fichier de se cr&#233;er.

une m&#233;thode bourrin consiste &#224; faire une boucle d'attente apr&#232;s le
Shell, mais il ya d'autres m&#233;thodes plus &#233;l&#233;gantes, cherche sur le site
... ShellAndWait 







'apr&#232;s le Shell

    While Dir$(Path) = ""

          DoEvents

          Wend

    While FileLen(Path) = 0

          DoEvents

          Wend

Open Path For Input As #2

- - - - - - - -

Kill Path


Daniel

Gobillot · Answer

supprime ces lignes: ~~Set FSys = CreateObject("Scripting.FileSystemObject") Set Monfic = FSys.CreateTextFile("S:\developpement omsip'" & z & "'.txt") Monfic.Close~~ Daniel

_deadstar_ · Answer

Merci pour avoir r&#233;pondu aussi vite .
Si j'efface ces trois ligne mon fichier ne se crera plus et je ne pourrais plus l'utiliser, donc je ne pense pas qu'il faille les suprimer.
mais merci quand m&#234;me .



piou ('<>')

Gobillot · Answer

ben si tu fichier va &#234;tre cr&#233;&#233; par le Dos:



Shell "cmd /C nslookup " & b & "  > " & Path, 0



au fait c'est quoi b ?


Daniel

_deadstar_ · Answer

Ah que suis je bete ! biensur !!! Merci Merci
merci beaucoup je vais tester.
"b" est une variable reli&#233; a un autre fichier qui contient une adresse ip d'un site internet.



piou ('<>')

_deadstar_ · Answer

Oui !
Apparament ca &#224; l'air de marcher. mais maintenant j'ai un autre probl&#232;me.
ca ne veut plus ouvrir le fichier texte. un message d'erreur m'indique je le fichier est introuvable mais quand j'appuis sur deboger et que je fais F8 il le reconnait...
bizzare encore je trouve pourquoi il le reconnais en pas a pas et pas quand j'execute mon prog?
(desol&#233;e de t'embeter encore)



piou ('<>')

_deadstar_ · Answer

Merci beaucoup de m'avoir aport&#233; ton aide.
Cette m&#233;thode fonctionne tr&#233;s bien avec mon progr cependant comme tu me l'a conseill&#233; je vais me renseigner sur le  ShellAndWait .
passe une bonne apres midi 



piou ('<>')

Problèeme a l'ecrasement du fichier txt

7 réponses

Discussions similaires