Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 06 16:38:48

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : LIRE, MODIFIER ET CRéE UN FICHIER XML SOUS VB.NET 2008 - LE RETOUR par megamario

COMMANDBARS par aljan

RE : TRIS SUR CONTRôLE LISTVIEW EN VISUAL BASIC6 ? par Sator

MACRO SANS PASSER PAR LA FORMULE EXCEL par Alban83

OUVRIR UNE FENETRE INTERNET EXPLORER SOUS VB.NET par DeWaRs

+ de logiciels à télécharger

1 465 354 membres
395 nouveaux aujourd'hui
15 048 membres club

Trouver une ressource

Trouvez une ressource parmi 40 095 codes, 1 303 276 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

CRÉATION D'UN ARBORESSANCE

Information sur la source

Catégorie :Fichier / Disque Niveau : Débutant Date de création : 27/11/2002 Date de mise à jour : 27/11/2002 15:51:39 Vu : 1 698

Auteur : FaciCAD

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (6)

Ajouter un commentaire et/ou une note

Description

Comme le titre l'indique ce petit module va vous permettre de créer un dossier sans être oubliger de créer les dossiers inexistant avant le votre.

Source

Option Explicit
Public Function Verification_Chemin(strChemin As String) As Boolean
Verification_Chemin = False
If Trim(Dir(strChemin, vbDirectory)) <> "" Then
Verification_Chemin = True
End If
End Function
Public Sub Creation_Dossier(strChemin As String)
Dim CheminPartiel As String
Dim nbCarDebut As Integer
Dim nbCar As Integer
nbCarDebut = 4
Retour1:
nbCar = InStr(nbCarDebut, strChemin, "\")
If nbCar <> 0 Then
CheminPartiel = Left(strChemin, nbCar - 1)
If Verification_Chemin(CheminPartiel) = False Then
MkDir CheminPartiel
nbCarDebut = nbCar + 1
GoTo Retour1
Else
nbCarDebut = nbCar + 1
GoTo Retour1
End If
Else
MkDir strChemin
End If
End Sub

Option Explicit

Public Function Verification_Chemin(strChemin As String) As Boolean

    Verification_Chemin = False
    
    If Trim(Dir(strChemin, vbDirectory)) <> "" Then
        Verification_Chemin = True
    End If
    
End Function

Public Sub Creation_Dossier(strChemin As String)

    Dim CheminPartiel As String
    Dim nbCarDebut As Integer
    Dim nbCar As Integer
    
    nbCarDebut = 4
Retour1:
    nbCar = InStr(nbCarDebut, strChemin, "\")
    If nbCar <> 0 Then
        CheminPartiel = Left(strChemin, nbCar - 1)
        If Verification_Chemin(CheminPartiel) = False Then
            MkDir CheminPartiel
            nbCarDebut = nbCar + 1
            GoTo Retour1
            Else
            nbCarDebut = nbCar + 1
            GoTo Retour1
        End If
        Else
        MkDir strChemin
    End If
    
End Sub

Sources de la même categorie

CRYPTAGE DÉCRYPTAGE DE FICHIER PAR MOT DE PASSE par auban

CLASSE POUR CONNECTER/DÉCONNECTER UN LECTEUR RÉSEAU par radcur

MOTEUR DE RECHERCHE DE FICHIERS par johndave

PARSEUR XML par cyrilremy

EXTRACTION DES FICHIERS IMG DE GTA 3 (VICE CITY ET SAN ANDRE... par gta126

Toutes les sources de la catégorie Fichier / Disque

Commentaires et avis

Commentaire de sub-zero le 27/11/2002 17:05:31

oui ms l'optimisation c pas ca!
*Verification_Chemin=Trim$(Dir$(strChemin, vbDirectory)<>vbnullstring pour ta première fonction
*supprime les goto ds la 2nde et fait une boucle

voila @+

Commentaire de zefri le 27/11/2002 20:54:09

Référence plutôt Microsoft Scripting Runtime dans ton projet, et puis alors le code se simplifie de façon étonnante :

Private Sub Check_Directory(Path As String)
On Error GoTo Error
Dim oFso As New FileSystemObject
Dim vItem As Variant
Dim FullPath As String

    If Not oFso.FolderExists(Path) Then
        For Each vItem In Split(Path, "")
            FullPath = Replace(FullPath & vItem & "", "\", "")
            If Not oFso.FolderExists(FullPath) Then
                oFso.CreateFolder FullPath
            End If
        Next
    End If

Exit Sub

Error:
    MsgBox Err.Description
End Sub

Commentaire de zefri le 27/11/2002 20:56:02

Oups !
Au lieu de Split(Path, "") il faut lire Split(Path, ""), évidemment...

Commentaire de zefri le 27/11/2002 21:01:50

Bon, ben ça doit être un bug d'affichage, les backslash disparaissent...
Donc là où on voit un backslash il faut en voire deux, et quand on voit juste "" c'est qu'il y a un backslash entre guillemets.
Milles excuse, je connaissais pas ce bug.
En tout cas le code fonctionne un fois remis les backslash à leur place, je l'ai testé !

Commentaire de FaciCAD le 28/11/2002 22:52:22

Merci pour c'est info, c'est très apprécié.

Commentaire de jmc70 le 12/01/2006 19:42:37

Le code de Zefri fonctionne bien si le chemin commence par une lettre de lecteur mais ce n'est pas le cas pour un chemin unicode du genre "\\Edmini\Share\" (disque dur distant par exemple - bon, je sais, on peut se connecter auparavant à un lecteur réseau pour déclarer une lettre de volume, mais j'aimerais faire sans)
Si quelqu'un a une solution...