Discussion :

[toxyco]

Bonjours,
J'ai besoin que vous m'aidiez depuis se matin j'aissez de faire un code en vbs mais je n'y arriev pas pouvez vous m'aider ? il faut que sa fasse sa .


x= exemple

Qu'il aille dans c:\xxxxx\xxx\xxxxxx\x et que les fichier qu'il y a dans x il les regarde un par un et supprime les fichiers contenant les mot "xxxxxx" .

Merci d'avance j'espère que vous m'aiderez

Coordialllement Toxyco

[SfJ5Rpw8]

Et depuis ce matin tu n'as pas écrit plus de code que cela ?

voir pour parcourir les fichiers de ton dossier :
Comment lister les fichiers d'un dossier ?

le lire :
Comment lire le contenu d'un fichier texte ?

chercher une chaine :
Comment rechercher une chaîne de caractères dans une autre ?

[toxyco]

Si mais sa marche pas et je suis pas sur que sa fasse se que j'ai fait .

[toxyco]

je c'est pas si c'est bon mias je c'est que j'ai pas reussi a mettre en relation supprimer et la recherche .

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
Dim stRep 'c:\Oracle\ora92
Dim oFSO,oFl
Set oFSO = CreateObject("Scripting.FileSystemObject")
stRep = "C:\Tmp"
If oFSO.FolderExists(stRep) Then
 For each oFl in  oFSO.GetFolder(stRep).Files
   Wscript.Echo oFl.Name	
 Next
End If
Const ForReading = 1, ForWriting = 2 
  Dim oFso, f
 
  Set oFso = CreateObject("Scripting.FileSystemObject")
  Set f = oFso.OpenTextFile("c:\tmp\fichier1.txt", ForReading)
  Wscript.echo f.ReadAll
  f.Close
pos = InStr(4, "na", "Juillet")    'renvoie 24
pos = InStr(27,"na", "Juillet")   'renvoie 0
File.Delete("c:\copyofmyfile.txt")
Console.WriteLine("Fichier c:\copyofmyfile.txt supprimé")