Bonjour à tous,
je dois lire tous les fichiers d'un répertoire donné et les copier par la
suite.
ce qui se passe c'est que même si j'ai environs 4000 fichiers la boucle se
fait
selement pour 200.
C'est comme si la ligne Set fc = f.Files
ne "set " pas comme il faut.
if faudrait que je puisse savoir, à cette étape, combien le programme voit
de fichiers.
mais fc.count n'existe pas.
Merci de votre aide !!
Esperanza
Function ShowFolderList(folderspec)
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
For Each f1 in fc
s = s & f1.name
s = s & "<BR>"
Next
ShowFolderList = s
End Function
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
Salut,
Si tu es en VB, utilises plutot les fonctions implantées : Dir$(), FileCopy() Ou même les APIs FindFirstFile(), FindNextFile(), FindClose().
-- 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/
Esperanza wrote:
Bonjour à tous, je dois lire tous les fichiers d'un répertoire donné et les copier par la suite. ce qui se passe c'est que même si j'ai environs 4000 fichiers la boucle se fait selement pour 200. C'est comme si la ligne Set fc = f.Files ne "set " pas comme il faut. if faudrait que je puisse savoir, à cette étape, combien le programme voit de fichiers. mais fc.count n'existe pas.
Merci de votre aide !! Esperanza
Function ShowFolderList(folderspec) Dim fso, f, f1, fc, s Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(folderspec) Set fc = f.Files For Each f1 in fc s = s & f1.name s = s & "<BR>" Next ShowFolderList = s End Function
Salut,
Si tu es en VB, utilises plutot les fonctions implantées : Dir$(),
FileCopy()
Ou même les APIs FindFirstFile(), FindNextFile(), FindClose().
--
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/
Esperanza wrote:
Bonjour à tous,
je dois lire tous les fichiers d'un répertoire donné et les copier
par la suite.
ce qui se passe c'est que même si j'ai environs 4000 fichiers la
boucle se fait
selement pour 200.
C'est comme si la ligne Set fc = f.Files
ne "set " pas comme il faut.
if faudrait que je puisse savoir, à cette étape, combien le programme
voit de fichiers.
mais fc.count n'existe pas.
Merci de votre aide !!
Esperanza
Function ShowFolderList(folderspec)
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
For Each f1 in fc
s = s & f1.name
s = s & "<BR>"
Next
ShowFolderList = s
End Function
Si tu es en VB, utilises plutot les fonctions implantées : Dir$(), FileCopy() Ou même les APIs FindFirstFile(), FindNextFile(), FindClose().
-- 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/
Esperanza wrote:
Bonjour à tous, je dois lire tous les fichiers d'un répertoire donné et les copier par la suite. ce qui se passe c'est que même si j'ai environs 4000 fichiers la boucle se fait selement pour 200. C'est comme si la ligne Set fc = f.Files ne "set " pas comme il faut. if faudrait que je puisse savoir, à cette étape, combien le programme voit de fichiers. mais fc.count n'existe pas.
Merci de votre aide !! Esperanza
Function ShowFolderList(folderspec) Dim fso, f, f1, fc, s Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(folderspec) Set fc = f.Files For Each f1 in fc s = s & f1.name s = s & "<BR>" Next ShowFolderList = s End Function
