aide sur suppression fichier dans vbscript,svp!

Question

Bonjour, 
voil&#224; mon script: 

Dim FSO_Read_File, Obj_Read_File, Read_File_Name 
Dim FSO_Write_File, Obj_Write_File, Write_File_Name 
Read_File_Name = "e: estvbInputFile.txt" 
Write_File_Name = "e: estvbOutFile.txt" 
' Ouvrir les objets systems 
Set FSO_Read_File = CreateObject("Scripting.FileSystemObject") 
Set FSO_Write_File = CreateObject("Scripting.FileSystemObject") 
' Ouvrir/Creer les deux fichiers 
Set Obj_Read_File = FSO_Read_File.OpenTextFile(Read_File_Name, 1) 
Set Obj_Write_File = FSO_Write_File.CreateTextFile(Write_File_Name) 
' Parcourir le fichier "Obj_Read_File" 
Do While ( Obj_Read_File.AtEndOfStream = False ) 
Ligne_Courante = Obj_Read_File.ReadLine 
Ligne_Courante =Replace(Ligne_courante,"%windir%","toto") 
' Ecrire la ligne lue dans "Obj_Write_File" 
Obj_Write_File.WriteLine ( Ligne_Courante ) 
If ( Obj_Read_File.AtEndOfStream = True ) Then 
Exit Do 
End If 
Loop 
' Refermer nos fichiers 
Obj_Read_File.Close 
Obj_Write_File.Close 
' copie du Fichier en sortie sur le fichier en entr&#233;e! 
' ouvrir fichiers 
Set Obj_Read_File = FSO_Read_File.OpenTextFile(Write_File_Name, 1) 
Set Obj_Write_File = FSO_Write_File.OpenTextFile(Read_File_Name,2) 
' Parcourir le fichier "Obj_Read_File" 
Do While ( Obj_Read_File.AtEndOfStream = False ) 
Ligne_Courante = Obj_Read_File.ReadLine 
' Ecrire la ligne lue dans "Obj_Write_File" 
Obj_Write_File.WriteLine ( Ligne_Courante ) 

If ( Obj_Read_File.AtEndOfStream = True ) Then 
Exit Do 
End If 
Loop 
FSO_Write_File.DeleteFile Write_File_Name , True 
Obj_Read_File.Close 
Obj_Write_File.Close 

J'ai permission refus&#233;e pour supprimer mon fichier! 
je suis administrateur de ma b&#233;cane.

cs_xtof · Answer

Il faut d'abord fermer ton fichier avant de l'ouvrir :

&#224; la place de :

FSO_Write_File.DeleteFile Write_File_Name , True 

Obj_Read_File.Close 
Obj_Write_File.Close 

il faudrait &#233;crire :

Obj_Read_File.Close 
Obj_Write_File.Close 

FSO_Write_File.DeleteFile Write_File_Name , True 

++,

[ XtOf ]

sanmei · Answer

Merci @XTOF!
Je suis vraiment D&#233;butant.D&#233;sol&#233; pour ce genre de question.
Je retourne &#224; mes &#233;tudes.

Aide sur suppression fichier dans vbscript,svp!

2 réponses

Discussions similaires