Aide pour un code

Si tu dis meme pas le language..

oui dsl, en vbs

Ah, bah je m'y connais pas en VBS ^^
A la rigueuer en VB.NET mais pas VBA, désolé

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

Pas grave merci quand meme ^^=)

Oui non je voulais pas qu'on me le fasse mais qu'on m'orriente . merci pour le site j'essaye de le faire .

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

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é")

y a quel qu'un ?