Je voudrais lister les fichiers existants dans un répertoire partagé sur un
ordinateur sur réseau
J'ai pensé à faire:
Dir "\\MonOrdi\DossierPartagé\"
mais ca ne marche pas.
Pourriez vous m'aider svp?
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
ng
Bonjour,
Sisi avec Dir$() cela fonctionne parfaitemement :
Public Function FileList(ByVal strPath As String) As String() Dim strRep As String, iIndex As Integer Dim tblOut() As String If Not strPath Like "*" Then strPath = strPath & "" strRep = Dir$(strPath) Do While strRep <> "" If strRep <> "" And strRep <> "." And strRep <> ".." Then ReDim Preserve tblOut(iIndex) Let tblOut(iIndex) = strRep iIndex = iIndex + 1 End If strRep = Dir$ Loop If iIndex = 0 Then ReDim tblOut(0) FileList = tblOut: Erase tblOut: strRep = "" End Function
Private Sub Form_Load() Dim tblList() As String, i As Integer tblList = FileList("pcdossier") For i = 0 To UBound(tblList) Debug.Print tblList(i) Next Erase tblList End Sub
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
Majid a écrit :
Bonjour,
Je voudrais lister les fichiers existants dans un répertoire partagé sur un ordinateur sur réseau J'ai pensé à faire: Dir "MonOrdiDossierPartagé" mais ca ne marche pas. Pourriez vous m'aider svp?
Merci
Bonjour,
Sisi avec Dir$() cela fonctionne parfaitemement :
Public Function FileList(ByVal strPath As String) As String()
Dim strRep As String, iIndex As Integer
Dim tblOut() As String
If Not strPath Like "*" Then strPath = strPath & ""
strRep = Dir$(strPath)
Do While strRep <> ""
If strRep <> "" And strRep <> "." And strRep <> ".." Then
ReDim Preserve tblOut(iIndex)
Let tblOut(iIndex) = strRep
iIndex = iIndex + 1
End If
strRep = Dir$
Loop
If iIndex = 0 Then ReDim tblOut(0)
FileList = tblOut: Erase tblOut: strRep = ""
End Function
Private Sub Form_Load()
Dim tblList() As String, i As Integer
tblList = FileList("\pcdossier")
For i = 0 To UBound(tblList)
Debug.Print tblList(i)
Next
Erase tblList
End Sub
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
Majid <l_majid@hotmail.com> a écrit :
Bonjour,
Je voudrais lister les fichiers existants dans un répertoire partagé
sur un ordinateur sur réseau
J'ai pensé à faire:
Dir "\MonOrdiDossierPartagé"
mais ca ne marche pas.
Pourriez vous m'aider svp?
Public Function FileList(ByVal strPath As String) As String() Dim strRep As String, iIndex As Integer Dim tblOut() As String If Not strPath Like "*" Then strPath = strPath & "" strRep = Dir$(strPath) Do While strRep <> "" If strRep <> "" And strRep <> "." And strRep <> ".." Then ReDim Preserve tblOut(iIndex) Let tblOut(iIndex) = strRep iIndex = iIndex + 1 End If strRep = Dir$ Loop If iIndex = 0 Then ReDim tblOut(0) FileList = tblOut: Erase tblOut: strRep = "" End Function
Private Sub Form_Load() Dim tblList() As String, i As Integer tblList = FileList("pcdossier") For i = 0 To UBound(tblList) Debug.Print tblList(i) Next Erase tblList End Sub
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
Majid a écrit :
Bonjour,
Je voudrais lister les fichiers existants dans un répertoire partagé sur un ordinateur sur réseau J'ai pensé à faire: Dir "MonOrdiDossierPartagé" mais ca ne marche pas. Pourriez vous m'aider svp?
Merci
Majid
Si tu le dis :) Je te remercie!
"ng" a écrit dans le message de news:
Bonjour,
Sisi avec Dir$() cela fonctionne parfaitemement :
Public Function FileList(ByVal strPath As String) As String() Dim strRep As String, iIndex As Integer Dim tblOut() As String If Not strPath Like "*" Then strPath = strPath & "" strRep = Dir$(strPath) Do While strRep <> "" If strRep <> "" And strRep <> "." And strRep <> ".." Then ReDim Preserve tblOut(iIndex) Let tblOut(iIndex) = strRep iIndex = iIndex + 1 End If strRep = Dir$ Loop If iIndex = 0 Then ReDim tblOut(0) FileList = tblOut: Erase tblOut: strRep = "" End Function
Private Sub Form_Load() Dim tblList() As String, i As Integer tblList = FileList("pcdossier") For i = 0 To UBound(tblList) Debug.Print tblList(i) Next Erase tblList End Sub
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
Majid a écrit :
> Bonjour, > > Je voudrais lister les fichiers existants dans un répertoire partagé > sur un ordinateur sur réseau > J'ai pensé à faire: > Dir "MonOrdiDossierPartagé" > mais ca ne marche pas. > Pourriez vous m'aider svp? > > Merci
Si tu le dis :)
Je te remercie!
"ng" <ng@ngsoft-fr.com> a écrit dans le message de news:
ej2K76BiEHA.3264@tk2msftngp13.phx.gbl...
Bonjour,
Sisi avec Dir$() cela fonctionne parfaitemement :
Public Function FileList(ByVal strPath As String) As String()
Dim strRep As String, iIndex As Integer
Dim tblOut() As String
If Not strPath Like "*" Then strPath = strPath & ""
strRep = Dir$(strPath)
Do While strRep <> ""
If strRep <> "" And strRep <> "." And strRep <> ".." Then
ReDim Preserve tblOut(iIndex)
Let tblOut(iIndex) = strRep
iIndex = iIndex + 1
End If
strRep = Dir$
Loop
If iIndex = 0 Then ReDim tblOut(0)
FileList = tblOut: Erase tblOut: strRep = ""
End Function
Private Sub Form_Load()
Dim tblList() As String, i As Integer
tblList = FileList("\pcdossier")
For i = 0 To UBound(tblList)
Debug.Print tblList(i)
Next
Erase tblList
End Sub
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
Majid <l_majid@hotmail.com> a écrit :
> Bonjour,
>
> Je voudrais lister les fichiers existants dans un répertoire partagé
> sur un ordinateur sur réseau
> J'ai pensé à faire:
> Dir "\MonOrdiDossierPartagé"
> mais ca ne marche pas.
> Pourriez vous m'aider svp?
>
> Merci
Public Function FileList(ByVal strPath As String) As String() Dim strRep As String, iIndex As Integer Dim tblOut() As String If Not strPath Like "*" Then strPath = strPath & "" strRep = Dir$(strPath) Do While strRep <> "" If strRep <> "" And strRep <> "." And strRep <> ".." Then ReDim Preserve tblOut(iIndex) Let tblOut(iIndex) = strRep iIndex = iIndex + 1 End If strRep = Dir$ Loop If iIndex = 0 Then ReDim tblOut(0) FileList = tblOut: Erase tblOut: strRep = "" End Function
Private Sub Form_Load() Dim tblList() As String, i As Integer tblList = FileList("pcdossier") For i = 0 To UBound(tblList) Debug.Print tblList(i) Next Erase tblList End Sub
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
Majid a écrit :
> Bonjour, > > Je voudrais lister les fichiers existants dans un répertoire partagé > sur un ordinateur sur réseau > J'ai pensé à faire: > Dir "MonOrdiDossierPartagé" > mais ca ne marche pas. > Pourriez vous m'aider svp? > > Merci
