Accueil > Forum > > > > Rechercher un dossier
 Rechercher un dossier
dimanche 26 décembre 2004 à 17:59:34 |
Rechercher un dossier
ZogStriP
|
Bonjour tout le monde ! Je souhaiterais faire la recherche sur tous les disques durs présents sur un pc d'un dossier (par exemple : Mes Images) et ensuite je voudrais pouvoir copier tout son contenu (sous dossiers compris) dans le même dossier que celui de l'application ... Je n'ai trouvé aucune source permettant de faire la recherche d'un répertoire.... Merci
ZogStriP
IA pour : Incomplet de l'Ancéphale 
http://blog.developpeur.org/zogstrip/
 www.rubikscubor.fr.st
#define ThatTheQuestion ((bb) || !(bb))
|
|
|
dimanche 26 décembre 2004 à 18:27:49 |
Re : Rechercher un dossier
DARKSIDIOUS
|
Réponse acceptée !
Va voir ma source nommée Copie d'un dossier avec défillement, ca devrait t'aider au moins à faire la copie récursive des sous-dossier, voir même la recherche du dossier. _______________________________________ DarK Sidious [Responsable API/VB du site www.ProgOtoP.com] Téléchargez ProgOtoP API Viewer
|
|
dimanche 26 décembre 2004 à 18:33:59 |
Re : Rechercher un dossier
jack
|
Salut ZogStriP Parce que tu a mal cherché ! Regarde cette sourceIl suffisait de chercher 'dossiers windows' pour tomber dessus. Avec ça, tu pourras trouver où se trouve 'Mes Documents', tu n'auras plus qu'à y ajouter 'Mes Images' Ensuite, pour lister les fichiers et sous répertoires, il y a de multiples sources qui font cette recherche récursive, cherche un peu (regarde l'aide de la fonction DIR, tu sauras tout) Vala Jack NB : Je ne répondrai pas aux messages privés Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate) |
|
dimanche 26 décembre 2004 à 18:49:47 |
Re : Rechercher un dossier
|
dimanche 26 décembre 2004 à 19:38:13 |
Re : Rechercher un dossier
CanisLupus
|
Réponse acceptée !
Tiens, puisque c les fêtes, je te livre un truc très court mais qui fonctionne : Dim fso As Object
Private Sub Form_Load()
Dim d As Object
' Crée un FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
' Parcourre tous les DD du PC
For Each d In fso.Drives
If d.DriveType = 2 Then Recherche (d.Path & "\")
Next
Set fso = Nothing
End Sub
Sub Recherche(Chemin As String)
Dim f, sf, fl
' On choppe le dossier de départ
Set f = fso.getfolder(Chemin)
' On scanne les sous dossiers
For Each sf In f.SubFolders
' S'il y en a un qui correspond à la recherche
If LCase(sf.Name) = "mes images" Then
' On copie tous les fichiers
For Each fl In sf.Files
fso.CopyFile Chemin & sf.Name & "\" & fl.Name, App.Path & "\" & fl.Name, True
Next
End If
' On continue récursivement
Recherche_Dossier Chemin & sf.Name & "\"
Next
Set f = Nothing
Set sf = Nothing
Set fl = Nothing
Unload Me
End Sub
|
Cordialement, CanisLupus
|
|
dimanche 26 décembre 2004 à 20:00:54 |
Re : Rechercher un dossier
|
dimanche 26 décembre 2004 à 20:10:42 |
Re : Rechercher un dossier
|
dimanche 26 décembre 2004 à 20:31:48 |
Re : Rechercher un dossier
|
Cette discussion est classée dans : dossier, recherche, size, rechercher, zogstrip
 Répondre à ce message
 Sujets en rapport avec ce message
Rechercher un fichier [ par alihome ]
Bonjour à tous,Je recherche le moyen de chercher un fichier ( .exe) situé dans un dossier specifique ou simplement dans C:\ et qu'ensuite le resultat
Recherche Date [ par petiflamand ]
Bonjour , Je voudrais rechercher dans une base de donnée des dates bien précise j'ai plus de 100000 entrée avec des dates différente et je veux pouv
recherche de fichier [ par couettou ]
Bonjour,Je suis à la recherche d'un code pour effectuer une recherche de fichier dans access 97.Je doit trouver le seul fichier qui commence par tp25t
Recherche d'un dossier, et création d'un dossier dans ce dosser... [ par djedjeska ]
Alors voila, je sais que beaucoup de sujets en parlent, de cette fameuse recherche de dossier..Quand je recherche un dossier directement dans "C:\"J'u
Suppression d'un dossier dans une procédure de recherche [ par djedjeska ]
J'aimerai poser une petite question... Car là, je suis encore sur un"paradoxe".Je voudrais faire en sorte que quand un dossier recherché à été trouvé,
rechercher un fichier excel en vba [ par audreyOM ]
bonjour à tous,j'ai un petit soucis de compréhension. en fait sur internet j'ai cherché comment faire pour récupérer un fichier excel, dans un dossier
Rechercher et afficher une/des lignes de texte [ par minb2215 ]
Salut VBFrance ^^ Je ne suis pas nouveau ici, je sais qu'il faut chercher. J'ai bien essayé de chercher, mais contrairement à ce qu'on pourrait croi
recherche plein texte dans un dossier qui contient des pdf [ par Theos37 ]
Bonjour,Je suis débutant en vb, je cherche un moyen de créer un moteur de recherche plein texte à partir d'un dossier contenant des pdf.le but est de
Une recherche .... URGENT [ par Ethan0026 ]
Bonjour,J'aimerai rechercher un fichier dans un dossier précis... Mais le problème est que je n'ai pas le nom de fichier completJe m'explique autremen
VBA rechercher dans une colonne [ par lolpop ]
Bonjourj'ai un petit probleme de recherche, j'utilise la fonction fin() mais le probleme c'est que si ce que je recherche existe plusieur fois il ne m
 Livres en rapport
|
Derniers Blogs
 [TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES[TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES par gpommier
Suite à la session que j'ai présenté sur WebMatrix 2, vous pouvez trouver les slides ici, ainsi que les démos en packages nuget : démos1 et démos2 J'en profite pour remercier chaleureusement tous ceux qui sont venus très nombreux à cette sess...
Cliquez pour lire la suite de l'article par gpommier [SHAREPOINT] LES SESSIONS TECHDAYS 2012.[SHAREPOINT] LES SESSIONS TECHDAYS 2012. par Patrick Guimonet
Voici donc pour ceux qui n'ont pas pu venir, ou ceux qui n'ont pas pu toutes les suivre la liste des sessions SharePoint aux TechDays 2012, que je mettrais à jour dès que les liens des vidéo seront disponibles. Ou ici : http...
Cliquez pour lire la suite de l'article par Patrick Guimonet TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3 par ROMELARD Fabrice
Speaker: Bernard Ourghanlian Cette session est comme chaque jour transmise en live par BrainSonic, et j'ai donc suivi cette troisième pleinière par ce moyen sur mon iPad . Elle est dédiée comme chaque année à la mise en perspective de l'é...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE !MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE ! par Vko
Hier durant une session dédiée aux Techdays 2012, j'ai eu le plaisir d'annoncer la sortie de la Béta 2 de Mishra Reader. C'est quoi ? Pour les utilisateurs, c'est une vraie expérience de lecture de flux RSS sur Windows. Rien à voir avec les produit...
Cliquez pour lire la suite de l'article par Vko [FRAMEWORK 4] LES TASKS ET LE THREAD UI[FRAMEWORK 4] LES TASKS ET LE THREAD UI par fathi
Je viens de passer quelques temps au TechDay's et j'ai pu voir pas mal de session intéressante. Par contre une chose m'a un peu étonné lors de certaines de ces sessions qui abordaient les améliorations du framework .NET (donc le 4.5) : en gros, bea...
Cliquez pour lire la suite de l'article par fathi
Logiciels
 Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning COLLECTOR PLUS (3.00B)COLLECTOR PLUS (3.00B)COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par :
- L... Cliquez pour télécharger COLLECTOR PLUS PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO LettresFaciles 2011 (8.0.0.1)LETTRESFACILES 2011 (8.0.0.1)LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types.
Son inte... Cliquez pour télécharger LettresFaciles 2011
|