Hicham's arborescence v 1.0
Description
Cette application permet de copier l'arborescence d'un dossier source et de la coller dans un dossier cible. Mais seules les dossiers sont pris en compte, les fichiers sont ignorés. Au fait je l'ai créé pour mes besoins personnels et je la partage avec vous.
Si vous avez des questions a propos du code-source, n'hésitez pas à me contacter. Merci.
Source / Exemple :
' C'est uniquement le code de la première feuille. Pour voir l'intégralité du code, téléchargez le fichier zip.
Public Sub scan_sup_files(ByVal dossier As Folder)
Set fso = New FileSystemObject
For Each fichier In dossier.Files
fso.DeleteFile fichier
Next
For Each sousdossier In dossier.SubFolders
scan_sup_files sousdossier
Next
End Sub
Private Sub Command2_Click()
Dim fso As New FileSystemObject, dossier As Folder, sousdossier As Folder, fichier As File
Set fso = New FileSystemObject
fso.CreateFolder Text1.Text & "\tempon"
fso.CopyFolder Form1.Dir1.Path, Text1.Text & "\tempon"
Set dossier = fso.GetFolder(Text1.Text & "\tempon")
scan_sup_files dossier
fso.CopyFolder Text1.Text & "\tempon", Text1.Text
fso.DeleteFolder Text1.Text & "\tempon"
MsgBox ("L'arborescence a été refaite avec succés")
End Sub
Private Sub Command3_Click()
Form2.Show
Form1.Hide
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub Form_Load()
Form1.Caption = "Hicham's Arborescence V 1.0"
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
Conclusion :
Si vous avez des questions a propos du code-source, n'hésitez pas à me contacter. Merci.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.