Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jean-Marc
"jc2nantes" a écrit dans le message de news:uZ$
Salut
Existe t'il un composant qui permette de modifier, de trouver... le chemin d'un fichier ?
un truc plus light que les dirlistbox et autre filelistbox...
Hello,
pour trouver le chemin, tu peux le faire de façon très "light" par une petite fonction comme ça:
Private Function FindFile(CurrentPath As String, Optional sFileToFind As String) As String Dim i As Integer Dim nDirectory As Integer Dim sFileName As String Dim sDirectoryList() As String Static tofind As String Static szFilefound As String
' init lors du premier appel If sFileToFind <> "" Then tofind = sFileToFind szFilefound = "" End If ' on traite d'abord les fichiers (pas les répertoires) sFileName = Dir(CurrentPath, vbNormal + vbHidden + vbReadOnly + vbSystem + vbArchive) Do While sFileName <> "" If sFileName = tofind Then szFilefound = CurrentPath + sFileName 'ok c'est trouve End If sFileName = Dir 'hop on boucle Loop ' maintenant on cherche les repertoires sFileName = Dir(CurrentPath, vbDirectory) Do While sFileName <> "" ' on ignore le repertoire lui meme et le pere If sFileName <> "." And sFileName <> ".." Then ' on ne garde que les repertoires If GetAttr(CurrentPath & sFileName) And vbDirectory Then nDirectory = nDirectory + 1 ReDim Preserve sDirectoryList(nDirectory) ' on ajoute à la liste sDirectoryList(nDirectory) = CurrentPath & sFileName End If End If sFileName = Dir Loop ' maintenant, on s'appelle recursivement For i = 1 To nDirectory FindFile sDirectoryList(i) & "" Next i FindFile = szFilefound End Function
et l'utilisation comme ça:
Dim result As String result = FindFile("c:hp", "hphghl03.exe")
-- Jean-marc
"jc2nantes" <NOSPAMjc2nantes@hotmail.com> a écrit dans le message de
news:uZ$KZ7qjEHA.2500@TK2MSFTNGP09.phx.gbl...
Salut
Existe t'il un composant qui permette de modifier, de trouver... le chemin
d'un fichier ?
un truc plus light que les dirlistbox et autre filelistbox...
Hello,
pour trouver le chemin, tu peux le faire de façon très "light" par une
petite fonction comme ça:
Private Function FindFile(CurrentPath As String, Optional sFileToFind As
String) As String
Dim i As Integer
Dim nDirectory As Integer
Dim sFileName As String
Dim sDirectoryList() As String
Static tofind As String
Static szFilefound As String
' init lors du premier appel
If sFileToFind <> "" Then
tofind = sFileToFind
szFilefound = ""
End If
' on traite d'abord les fichiers (pas les répertoires)
sFileName = Dir(CurrentPath, vbNormal + vbHidden + vbReadOnly + vbSystem
+ vbArchive)
Do While sFileName <> ""
If sFileName = tofind Then
szFilefound = CurrentPath + sFileName 'ok c'est trouve
End If
sFileName = Dir 'hop on boucle
Loop
' maintenant on cherche les repertoires
sFileName = Dir(CurrentPath, vbDirectory)
Do While sFileName <> ""
' on ignore le repertoire lui meme et le pere
If sFileName <> "." And sFileName <> ".." Then
' on ne garde que les repertoires
If GetAttr(CurrentPath & sFileName) And vbDirectory Then
nDirectory = nDirectory + 1
ReDim Preserve sDirectoryList(nDirectory) ' on ajoute à la
liste
sDirectoryList(nDirectory) = CurrentPath & sFileName
End If
End If
sFileName = Dir
Loop
' maintenant, on s'appelle recursivement
For i = 1 To nDirectory
FindFile sDirectoryList(i) & ""
Next i
FindFile = szFilefound
End Function
et l'utilisation comme ça:
Dim result As String
result = FindFile("c:hp", "hphghl03.exe")
Existe t'il un composant qui permette de modifier, de trouver... le chemin d'un fichier ?
un truc plus light que les dirlistbox et autre filelistbox...
Hello,
pour trouver le chemin, tu peux le faire de façon très "light" par une petite fonction comme ça:
Private Function FindFile(CurrentPath As String, Optional sFileToFind As String) As String Dim i As Integer Dim nDirectory As Integer Dim sFileName As String Dim sDirectoryList() As String Static tofind As String Static szFilefound As String
' init lors du premier appel If sFileToFind <> "" Then tofind = sFileToFind szFilefound = "" End If ' on traite d'abord les fichiers (pas les répertoires) sFileName = Dir(CurrentPath, vbNormal + vbHidden + vbReadOnly + vbSystem + vbArchive) Do While sFileName <> "" If sFileName = tofind Then szFilefound = CurrentPath + sFileName 'ok c'est trouve End If sFileName = Dir 'hop on boucle Loop ' maintenant on cherche les repertoires sFileName = Dir(CurrentPath, vbDirectory) Do While sFileName <> "" ' on ignore le repertoire lui meme et le pere If sFileName <> "." And sFileName <> ".." Then ' on ne garde que les repertoires If GetAttr(CurrentPath & sFileName) And vbDirectory Then nDirectory = nDirectory + 1 ReDim Preserve sDirectoryList(nDirectory) ' on ajoute à la liste sDirectoryList(nDirectory) = CurrentPath & sFileName End If End If sFileName = Dir Loop ' maintenant, on s'appelle recursivement For i = 1 To nDirectory FindFile sDirectoryList(i) & "" Next i FindFile = szFilefound End Function
et l'utilisation comme ça:
Dim result As String result = FindFile("c:hp", "hphghl03.exe")
-- Jean-marc
François Picalausa
Hello,
Je ne suis pas sûr d'avoir compris la question, mais peut-être s'agit-il d'afficher une boite de dialogue de sélection de fichier pour trouver le fichier? Dans ce cas la fiche suivante de la faq serait appropriée: http://faq.vb.free.fr/index.php?question
-- François Picalausa (MVP VB) http://faq.vb.free.fr --- http://msdn.microsoft.com
"Jean-Marc" a écrit dans le message de news:413372d4$0$3887$
"jc2nantes" a écrit dans le message de news:uZ$
Salut
Existe t'il un composant qui permette de modifier, de trouver... le chemin d'un fichier ?
un truc plus light que les dirlistbox et autre filelistbox...
Hello,
pour trouver le chemin, tu peux le faire de façon très "light" par une petite fonction comme ça:
Private Function FindFile(CurrentPath As String, Optional sFileToFind As String) As String
Hello,
Je ne suis pas sûr d'avoir compris la question, mais peut-être s'agit-il
d'afficher une boite de dialogue de sélection de fichier pour trouver le
fichier?
Dans ce cas la fiche suivante de la faq serait appropriée:
http://faq.vb.free.fr/index.php?question
--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
"Jean-Marc" <nospamjean_marc_n2@yahoo.fr> a écrit dans le message de
news:413372d4$0$3887$ba620e4c@news.skynet.be
"jc2nantes" <NOSPAMjc2nantes@hotmail.com> a écrit dans le message de
news:uZ$KZ7qjEHA.2500@TK2MSFTNGP09.phx.gbl...
Salut
Existe t'il un composant qui permette de modifier, de trouver... le
chemin d'un fichier ?
un truc plus light que les dirlistbox et autre filelistbox...
Hello,
pour trouver le chemin, tu peux le faire de façon très "light" par une
petite fonction comme ça:
Private Function FindFile(CurrentPath As String, Optional sFileToFind
As String) As String
Je ne suis pas sûr d'avoir compris la question, mais peut-être s'agit-il d'afficher une boite de dialogue de sélection de fichier pour trouver le fichier? Dans ce cas la fiche suivante de la faq serait appropriée: http://faq.vb.free.fr/index.php?question
-- François Picalausa (MVP VB) http://faq.vb.free.fr --- http://msdn.microsoft.com
"Jean-Marc" a écrit dans le message de news:413372d4$0$3887$
"jc2nantes" a écrit dans le message de news:uZ$
Salut
Existe t'il un composant qui permette de modifier, de trouver... le chemin d'un fichier ?
un truc plus light que les dirlistbox et autre filelistbox...
Hello,
pour trouver le chemin, tu peux le faire de façon très "light" par une petite fonction comme ça:
Private Function FindFile(CurrentPath As String, Optional sFileToFind As String) As String
jc2nantes
si si tu as compris! c'est pile poil ça... merci à tous!!!
"François Picalausa" a écrit dans le message de news:%
Hello,
Je ne suis pas sûr d'avoir compris la question, mais peut-être s'agit-il d'afficher une boite de dialogue de sélection de fichier pour trouver le fichier? Dans ce cas la fiche suivante de la faq serait appropriée: http://faq.vb.free.fr/index.php?question
-- François Picalausa (MVP VB) http://faq.vb.free.fr --- http://msdn.microsoft.com
"Jean-Marc" a écrit dans le message de news:413372d4$0$3887$ > "jc2nantes" a écrit dans le message de > news:uZ$ >> Salut >> >> Existe t'il un composant qui permette de modifier, de trouver... le >> chemin d'un fichier ? >> >> un truc plus light que les dirlistbox et autre filelistbox... > > Hello, > > pour trouver le chemin, tu peux le faire de façon très "light" par une > petite fonction comme ça: > > Private Function FindFile(CurrentPath As String, Optional sFileToFind > As String) As String
si si tu as compris! c'est pile poil ça... merci à tous!!!
"François Picalausa" <fpicalausa@chez.com> a écrit dans le message de
news:%237BVhIsjEHA.704@TK2MSFTNGP12.phx.gbl...
Hello,
Je ne suis pas sûr d'avoir compris la question, mais peut-être s'agit-il
d'afficher une boite de dialogue de sélection de fichier pour trouver le
fichier?
Dans ce cas la fiche suivante de la faq serait appropriée:
http://faq.vb.free.fr/index.php?question
--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
"Jean-Marc" <nospamjean_marc_n2@yahoo.fr> a écrit dans le message de
news:413372d4$0$3887$ba620e4c@news.skynet.be
> "jc2nantes" <NOSPAMjc2nantes@hotmail.com> a écrit dans le message de
> news:uZ$KZ7qjEHA.2500@TK2MSFTNGP09.phx.gbl...
>> Salut
>>
>> Existe t'il un composant qui permette de modifier, de trouver... le
>> chemin d'un fichier ?
>>
>> un truc plus light que les dirlistbox et autre filelistbox...
>
> Hello,
>
> pour trouver le chemin, tu peux le faire de façon très "light" par une
> petite fonction comme ça:
>
> Private Function FindFile(CurrentPath As String, Optional sFileToFind
> As String) As String
si si tu as compris! c'est pile poil ça... merci à tous!!!
"François Picalausa" a écrit dans le message de news:%
Hello,
Je ne suis pas sûr d'avoir compris la question, mais peut-être s'agit-il d'afficher une boite de dialogue de sélection de fichier pour trouver le fichier? Dans ce cas la fiche suivante de la faq serait appropriée: http://faq.vb.free.fr/index.php?question
-- François Picalausa (MVP VB) http://faq.vb.free.fr --- http://msdn.microsoft.com
"Jean-Marc" a écrit dans le message de news:413372d4$0$3887$ > "jc2nantes" a écrit dans le message de > news:uZ$ >> Salut >> >> Existe t'il un composant qui permette de modifier, de trouver... le >> chemin d'un fichier ? >> >> un truc plus light que les dirlistbox et autre filelistbox... > > Hello, > > pour trouver le chemin, tu peux le faire de façon très "light" par une > petite fonction comme ça: > > Private Function FindFile(CurrentPath As String, Optional sFileToFind > As String) As String
