Aide pour un code

Fermé
toxyco - Modifié par toxyco le 9/06/2010 à 12:07
toxyco Messages postés 7 Date d'inscription mercredi 9 juin 2010 Statut Membre Dernière intervention 11 juin 2010 - 10 juin 2010 à 11:45
Bonjour,

Pour mon stage mon tutuer me demande de faire un script dans bloc note pour que qu'on puisse le mettre sur des serveur et qu'il fasse automatiquement cete action .

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



9 réponses

kouki1000 Messages postés 108 Date d'inscription dimanche 8 février 2009 Statut Membre Dernière intervention 5 novembre 2010 9
9 juin 2010 à 12:12
Si tu dis meme pas le language..
0
toxyco Messages postés 7 Date d'inscription mercredi 9 juin 2010 Statut Membre Dernière intervention 11 juin 2010
9 juin 2010 à 12:29
oui dsl, en vbs
0
kouki1000 Messages postés 108 Date d'inscription dimanche 8 février 2009 Statut Membre Dernière intervention 5 novembre 2010 9
9 juin 2010 à 12:55
Ah, bah je m'y connais pas en VBS ^^
A la rigueuer en VB.NET mais pas VBA, désolé
0
dna.factory Messages postés 23829 Date d'inscription mercredi 18 avril 2007 Statut Contributeur Dernière intervention 24 mars 2023 1 625
9 juin 2010 à 13:01
oui et ?
ho j'ai compris, il faut qu'on le fasse à ta place...
ce site est là pour aider, pas pour faire les devoir à la place des autres.

si tu nous montres ce que tu as fait, ce que tu penses faire, ton algo, là où tu bloques, on pourras t'aider.
mais là, comme tu n'as rien fait, on ne peut pas t'aider.

https://www.google.fr/search?hl=fr&q=tutoriel+vbs+&meta=&gws_rd=ssl
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
toxyco Messages postés 7 Date d'inscription mercredi 9 juin 2010 Statut Membre Dernière intervention 11 juin 2010
9 juin 2010 à 13:10
Pas grave merci quand meme ^^=)
0
toxyco Messages postés 7 Date d'inscription mercredi 9 juin 2010 Statut Membre Dernière intervention 11 juin 2010
9 juin 2010 à 13:11
Oui non je voulais pas qu'on me le fasse mais qu'on m'orriente . merci pour le site j'essaye de le faire .
0
toxyco Messages postés 7 Date d'inscription mercredi 9 juin 2010 Statut Membre Dernière intervention 11 juin 2010
Modifié par toxyco le 9/06/2010 à 15:13
dim path
path = "c:\QUEUS\cro\rebut"
Const Texte = "na"
Const sChaine = "na"
'Instruction Dim:
Dim aPos() , iPos
'Instruction ReDim:
ReDim aPos(0)
'Fonction InStr:
iPos = InStr(1, Texte, sChaine)
'Instruction While...Wend:
While iPos <> 0
'Fonction UBound:
ReDim Preserve aPos(UBound(aPos) + 1)
aPos(UBound(aPos)) = iPos
iPos = InStr(iPos + 1, Texte, sChaine)
Wend
'Instruction If...Then...Else:
If UBound(aPos) > 0 Then
Dim i , Resultat
Resultat = "L'occurrence """ & sChaine & """ na " & UBound(aPos) & " fois " &_
"dans l'expression " na """" & Texte & """" na
'Instruction For...Next:
'Fonction CS :
'Fonction Len:
For i = 1 To UBound(aPos)
Resultat = Resultat na "Postion: " & CStr(aPos(i)) & "," & CStr(aPos(i)) + Len(sChaine)
Next
Else

Resultat = "L'occurrence """ & sChaine & """ n'a pas été trouvée dans l'expression " na_
"""" & Texte & """"
End If
MsgBox Resultat
if resultat 1 = delete
0
toxyco Messages postés 7 Date d'inscription mercredi 9 juin 2010 Statut Membre Dernière intervention 11 juin 2010
10 juin 2010 à 09:58
celui la et mieux masi marche pas
Dim stRep 'c:\xxxx\xxx\x
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é")
0
toxyco Messages postés 7 Date d'inscription mercredi 9 juin 2010 Statut Membre Dernière intervention 11 juin 2010
10 juin 2010 à 11:45
y a quel qu'un ?
0