begin process at 2012 02 16 07:24:38
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Fichier / Disque

 > PARCOURIR L'ARBORESCENCE

PARCOURIR L'ARBORESCENCE


 Information sur la source

Note :
6,36 / 10 - par 11 personnes
6,36 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Fichier / Disque Classé sous :parcourir, arborescence, fichier Niveau :Débutant Date de création :22/11/2000 Vu / téléchargé :14 585 / 803

Auteur : Zog2002

Ecrire un message privé
Site perso
Commentaire sur cette source (2)
Ajouter un commentaire et/ou une note

 Description

Ce code permet de parcourir l'arborescence et de retourner sous forme de chaîne le chemin d'accés du fichier sélectionné.
Tout est dans le ZIP... (si j'arrive à le télécharger).

Source

  • Private Sub Form_Load() 'AU DEMARRAGE :
  • Drive1.Drive = "C:" 'choix du lecteur
  • Dir1.Path = "C:\Mes documents" 'choix de l'arborescence
  • File1.Path = Dir1.Path 'affiche les fichiers contenus dans "Dir1.path"
  • End Sub
  • Private Sub Drive1_Change() 'QUAND ON CHANGE DE LECTEUR :
  • Dir1.Path = Drive1.Drive 'on met à jour l'arborescence
  • End Sub
  • Private Sub Dir1_Change() 'QUAND LE CHEMIN CHANGE
  • File1.Path = Dir1.Path 'on met à jour la fenêtre des fichiers
  • End Sub
  • Private Sub File1_Click()
  • If Len(Dir1.Path) < 4 Then
  • Label1.Caption = Dir1.Path & File1.FileName
  • ElseIf Len(Dir1.Path) >= 4 Then
  • Label1.Caption = Dir1.Path & "\" & File1.FileName
  • End If
  • End Sub
Private Sub Form_Load()         'AU DEMARRAGE :
Drive1.Drive = "C:"             'choix du lecteur
Dir1.Path = "C:\Mes documents"  'choix de l'arborescence
File1.Path = Dir1.Path          'affiche les fichiers contenus dans "Dir1.path"
End Sub

Private Sub Drive1_Change()     'QUAND ON CHANGE DE LECTEUR :
Dir1.Path = Drive1.Drive        'on met à jour l'arborescence
End Sub

Private Sub Dir1_Change()       'QUAND LE CHEMIN CHANGE
File1.Path = Dir1.Path          'on met à jour la fenêtre des fichiers
End Sub

Private Sub File1_Click()
If Len(Dir1.Path) < 4 Then
  Label1.Caption = Dir1.Path & File1.FileName
ElseIf Len(Dir1.Path) >= 4 Then
  Label1.Caption = Dir1.Path & "\" & File1.FileName
End If
End Sub

 

 Conclusion

Voilà ! C'est tout !
Merci de faire un détour par "http://www.chez.com/zog2002"


 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) MODIFIER LES EXTENSION DES FICHIERS par okosa
ROUTINE DIR RÉCURSIVE POUR OBTENIR LA LISTE DE TOUS LES FICH... par kerisolde
Source avec Zip Source avec une capture FILE,SECURITY,FICHIER par okosa
Source avec Zip Source avec une capture Source .NET (Dotnet) PATCHEUR DE FICHIER par tototh
Source avec Zip Source avec une capture LECTURE DES INFORMATIONS DES DISQUES COMPOSANT UN ENSEMBLE R... par jack

 Sources en rapport avec celle ci

Source avec Zip Source .NET (Dotnet) DÉFRAGMENTER UN FICHIER par ShareVB
Source avec Zip Source avec une capture Source .NET (Dotnet) SUPPRIMER LIGNES VIDES FICHIER TEXTE par onix88
Source avec Zip Source avec une capture Source .NET (Dotnet) PARCOURIR TOUS LES FICHIERS ET SOUS RÉPERTOIRES D'UN RÉPERTO... par Drikce06
Source avec Zip Source avec une capture LISTE DES FICHIERS ET SOUS RÉPERTOIRES POUR VERSER DANS EXCE... par dodocaca
Source avec Zip Source avec une capture CRÉE EN .TXT L'ARBORESCENCE D'UN DISQUE (MIS A JOUR) par bigbourin

Commentaires et avis

Commentaire de leptidev le 06/11/2002 15:23:31

C nul

Commentaire de Urgo le 10/02/2003 13:20:46

Meme pire que nul, lamentable ! niveau 0.000000000000000001

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Parcourir les fichier d'un lecteur (suite) [ par developpeurvb ] BonjourJ' ai dernierement laissé une demande de recherche d'une procédure qui me permettrai de parcourir l'arborescence d'un lecteur ou d'un dossier.E Bouton parcourir en vba access dossier + fichier [ par julien pas mieux ] Bonjour ,j'aimerai faire 1 bouton parcourir qui me permettrai de parcourir l'arborescence et de mettre le chemin complet du fichier voulu dans une tex vbaccess : formulaire de vue de l'arborescence pour trouver un fichier [ par deubal ] salut tout le monde,je voudrai integrer dans un des formulaires de ma bdd access, la possibilite a l'utilisateur de rechercher dans l'arborescence un Xml & TreeView [ par 3Pom ] Slt all, je bosse sur 1 projet en .net et je cherche le moyen de charger 1 fichier xml dans 1 treeview. En fait j'ai 1 fichier xml ki contient la list BOuton Parcourir sous ACCESS [ par camsss ] Je cherche à créer un bouton parcourir qui ouvre une fenêtre permettant de trouver dans les repertoires le fichier que l'on souhaite...ensuite je vou bouton parcourir... ds un inputbox [ par matheo54 ] Bonjour,J'aimerai insérer un bouton parcourir dans mon inputbox :Inputbox("chemin d'accés au fichier :", accés_fichier, "C:\Documents and settings\ma probleme avec <input type="file name...> [ par loyousse ] Salut tout le monde!! je vous &#233;cris car j'ai un probleme, j'ai cr&#233;&#233; dans un formulaire une zone destin&#233;e &#224; recevoir un fichi Arborescence... [ par php70 ] Bonjour,Dans mon projet, j'ai besoin que l'utilisateur indique un chemin sur un serveur ou un disque. je ne souhaite stoker que l'arborescence et pas activation conditionnelle de bouton [ par waspy59 ] bonjour, g un tit programme avec: - une 1ere arborescence (drive,dir et filelistbox) dans laquelle je choisi le fichier a modifier. -une 2eme arbores parcourir fichier texte en vb [ par freddba ] Bonjour tous ,Je dois recreer une table &#224; partir de fichier texte.Petites pr&#233;cisions:Je dois r&#233;cuperer la date de cr&#233;ation ainsi q


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 3,572 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales