[prob php] recherche à partir d'un bout de ti
Fermé
sebalab
-
11 déc. 2007 à 00:37
phil232 Messages postés 607 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 31 janvier 2008 - 12 déc. 2007 à 10:35
phil232 Messages postés 607 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 31 janvier 2008 - 12 déc. 2007 à 10:35
A voir également:
- [prob php] recherche à partir d'un bout de ti
- Creer un groupe whatsapp a partir d'un autre groupe - Guide
- Comment faire une recherche à partir d'une photo - Guide
- Annuaire portable gratuit a partir d'un nom ✓ - Forum Mobile
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Trouver un nom à partir d'une adresse ✓ - Forum Loisirs / Divertissements
3 réponses
phil232
Messages postés
607
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
31 janvier 2008
178
11 déc. 2007 à 12:10
11 déc. 2007 à 12:10
Sub SearchFiles(SearchFolder, SearchName)
Dim fso 'As Scripting.FileSystemObject
Dim f 'As File
Dim fld 'As Folder
Dim fi
Dim SearchFolder
Dim SearchName
SearchFolder = "C:\UserTemp"
SearchName = "rg"
Set fso = CreateObject("Scripting.FileSystemObject")
Set fld = fso.GetFolder(SearchFolder)
Set fi = fso.OpenTextFile("c:\UserTemp\testfile.txt", 2, True) 'ForWriting
For Each f In fld.Files
If InStr(UCase(f.Name), UCase(SearchName)) > 0 Then
fi.WriteLine f.Name
End If
Next
fi.Close
Set fso = Nothing
Set fld = Nothing
Set fi = Nothing
Set f = Nothing
End Sub
Dim fso 'As Scripting.FileSystemObject
Dim f 'As File
Dim fld 'As Folder
Dim fi
Dim SearchFolder
Dim SearchName
SearchFolder = "C:\UserTemp"
SearchName = "rg"
Set fso = CreateObject("Scripting.FileSystemObject")
Set fld = fso.GetFolder(SearchFolder)
Set fi = fso.OpenTextFile("c:\UserTemp\testfile.txt", 2, True) 'ForWriting
For Each f In fld.Files
If InStr(UCase(f.Name), UCase(SearchName)) > 0 Then
fi.WriteLine f.Name
End If
Next
fi.Close
Set fso = Nothing
Set fld = Nothing
Set fi = Nothing
Set f = Nothing
End Sub
Merci , mais c'est du php ca ???
ca y resemble pas trop.
parce que la j'y comprend rien du tout, si tu peut commenter !
merci a+
ca y resemble pas trop.
parce que la j'y comprend rien du tout, si tu peut commenter !
merci a+
phil232
Messages postés
607
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
31 janvier 2008
178
12 déc. 2007 à 10:35
12 déc. 2007 à 10:35
oups, j'ai pas fait attention. c'est du VBScript. mais peut-etre l'algorithme peut t'aider. sinon tu peut toujours sauver ça dans un fichier *.vbs et après qq modifs tu aurais un script externe (sous Windows bien sur).
sry
sry