Se connecter / S'enregistrer
Votre question

Restructer un dossier

Tags :
  • Réseau
  • Programmation
Dernière réponse : dans Programmation
16 Septembre 2009 14:20:36

je voudrai restructurer un dossier dans le réseau mais je sais pas comment m y prendre
merci

Autres pages sur : restructer dossier

a c 232 L Programmation
16 Septembre 2009 19:30:15

salut,

qu'est ce que tu veux dire par restructurer ?
m
0
l
17 Septembre 2009 09:23:45

arrange , faire une base de donnee de tous les fichiers existants
m
0
l
Contenus similaires
17 Septembre 2009 09:41:31

creer une base de donnée sur acces
m
0
l
17 Septembre 2009 16:22:50

Les données dans tes fichiers sont formatée(arrangée) de façon spécifique?
Tu veux faire une table par fichier?
Explique un peu plus s'il te plait
m
0
l
17 Septembre 2009 17:30:48

Athanatos a dit :
Les données dans tes fichiers sont formatée(arrangée) de façon spécifique?
Tu veux faire une table par fichier?
Explique un peu plus s'il te plait


les dossiers existent deja mais sont en vrac, pour trouver quelques choses on est oblige de parcourir le tout
je veux une base de donnée de tous les titres de documents, fichiers ou folders plus un hyperlink qui permet d'y aller facilement
m
0
l
18 Septembre 2009 13:47:00

J'ai un script qui références les fichiers et dossiers que tu as. Tu place l'exe à la racine du dossier mère et tu lance le script. Il génére un fichier texte "Rapport.txt". Dans access tu clique sur Fichier>Donnée Externe>importer et tu indique le fichier "Rapport.txt". Après il suffit juste d'indiquer que le caractère de séparation (c'est #) et tu as ta table avec un champ comportant le nom du dossier ou du fichier et l'autre champs comportant le chemin
  1. Option Explicit
  2.  
  3. Dim fso As New FileSystemObject
  4. Dim cptFichier As Integer, cptDossier As Integer
  5. Dim chemin As String, chaine As String
  6.  
  7. Public Sub Chef()
  8. Dim dossier As Folder
  9. chemin = App.Path
  10. Set dossier = fso.GetFolder(chemin)
  11. If fso.FolderExists(dossier) Then
  12. chaine = chaine & dossier.Name & "#" & dossier.Path & vbCrLf
  13. cptDossier = cptDossier + 1
  14. Label3.Caption = cptDossier
  15. Label3.Refresh
  16. RechercheDossier dossier
  17. End If
  18. End Sub
  19.  
  20. Public Sub RechercheDossier(dossier As Folder)
  21. Dim files As File
  22. Dim fold As Folder
  23. For Each files In dossier.files
  24. chaine = chaine & files.Name & "#" & dossier.Path & "\" & files.Name & vbCrLf
  25. cptFichier = cptFichier + 1
  26. Label2.Caption = cptFichier
  27. Label2.Refresh
  28. Next
  29. For Each fold In dossier.SubFolders
  30. chaine = chaine & fold.Name & "#" & fold.Path & vbCrLf
  31. cptDossier = cptDossier + 1
  32. Label3.Caption = cptDossier
  33. Label3.Refresh
  34. RechercheDossier fold
  35. Next
  36. End Sub
  37.  
  38. Private Sub Command1_Click()
  39. Chef
  40. Dim writeFile As Integer
  41. writeFile = FreeFile
  42. Open chemin & "\Rapport.txt" For Output As writeFile
  43. Print #writeFile, chaine
  44. Close writeFile
  45. MsgBox "fini"
  46. End Sub


je t'envoie l'exe si tu veux
m
0
l
25 Septembre 2009 13:45:01

Athanatos a dit :
J'ai un script qui références les fichiers et dossiers que tu as. Tu place l'exe à la racine du dossier mère et tu lance le script. Il génére un fichier texte "Rapport.txt". Dans access tu clique sur Fichier>Donnée Externe>importer et tu indique le fichier "Rapport.txt". Après il suffit juste d'indiquer que le caractère de séparation (c'est #) et tu as ta table avec un champ comportant le nom du dossier ou du fichier et l'autre champs comportant le chemin
  1. Option Explicit
  2.  
  3. Dim fso As New FileSystemObject
  4. Dim cptFichier As Integer, cptDossier As Integer
  5. Dim chemin As String, chaine As String
  6.  
  7. Public Sub Chef()
  8. Dim dossier As Folder
  9. chemin = App.Path
  10. Set dossier = fso.GetFolder(chemin)
  11. If fso.FolderExists(dossier) Then
  12. chaine = chaine & dossier.Name & "#" & dossier.Path & vbCrLf
  13. cptDossier = cptDossier + 1
  14. Label3.Caption = cptDossier
  15. Label3.Refresh
  16. RechercheDossier dossier
  17. End If
  18. End Sub
  19.  
  20. Public Sub RechercheDossier(dossier As Folder)
  21. Dim files As File
  22. Dim fold As Folder
  23. For Each files In dossier.files
  24. chaine = chaine & files.Name & "#" & dossier.Path & "\" & files.Name & vbCrLf
  25. cptFichier = cptFichier + 1
  26. Label2.Caption = cptFichier
  27. Label2.Refresh
  28. Next
  29. For Each fold In dossier.SubFolders
  30. chaine = chaine & fold.Name & "#" & fold.Path & vbCrLf
  31. cptDossier = cptDossier + 1
  32. Label3.Caption = cptDossier
  33. Label3.Refresh
  34. RechercheDossier fold
  35. Next
  36. End Sub
  37.  
  38. Private Sub Command1_Click()
  39. Chef
  40. Dim writeFile As Integer
  41. writeFile = FreeFile
  42. Open chemin & "\Rapport.txt" For Output As writeFile
  43. Print #writeFile, chaine
  44. Close writeFile
  45. MsgBox "fini"
  46. End Sub


je t'envoie l'exe si tu veux

si ce n est pas a but commercial je veux bien que tu menvoies le fichier exe
m
0
l
25 Septembre 2009 14:39:03

Je t'envoie un message par forum pour que tu me donne une adresse ou l'envoyer
m
0
l
Tom's guide dans le monde
  • Allemagne
  • Italie
  • Irlande
  • Royaume Uni
  • Etats Unis
Suivre Tom's Guide
Inscrivez-vous à la Newsletter
  • ajouter à twitter
  • ajouter à facebook
  • ajouter un flux RSS