IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

programme pour arborescence type


Sujet :

VBScript

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau candidat au Club
    Profil pro
    Inscrit en
    Août 2006
    Messages
    1
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2006
    Messages : 1
    Par défaut programme pour arborescence type
    Bonjour,

    je souhaiterais creer un programme qui permettrait de choisir un emplacement de dossier via une liste déroulante et creer une arborescence type à partir de cet emplacement.

    Merci de votre aide.

  2. #2
    Membre éclairé
    Homme Profil pro
    retraité
    Inscrit en
    Juillet 2011
    Messages
    386
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 80
    Localisation : France, Pas de Calais (Nord Pas de Calais)

    Informations professionnelles :
    Activité : retraité

    Informations forums :
    Inscription : Juillet 2011
    Messages : 386
    Par défaut
    Bonjour
    Je ne suis pas sur qu'on puisse utiliser des listes déroulantes avec un script

  3. #3
    Membre expérimenté
    Homme Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    Novembre 2011
    Messages
    163
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Novembre 2011
    Messages : 163
    Par défaut
    Salut, il y a un excellent tutoriel HTA réalisé par bbil :
    Donner une interface à vos script VBS , HTA

  4. #4
    Expert confirmé
    Avatar de hackoofr
    Homme Profil pro
    Enseignant
    Inscrit en
    Juin 2009
    Messages
    3 844
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Juin 2009
    Messages : 3 844

  5. #5
    Expert confirmé
    Avatar de hackoofr
    Homme Profil pro
    Enseignant
    Inscrit en
    Juin 2009
    Messages
    3 844
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Juin 2009
    Messages : 3 844
    Par défaut
    à tester chez vous, et si vous aimez, alors il faut me payer cash en
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    Titre = "Création de l'Arborescence des Dossiers"
    CheminDossier = inputbox ("Entrer le chemin de l'Arborescence des Dossiers pour la création : " , _
    	"Création de l'Arborescence des Dossiers" , "C:\1\2\3\4\5\6\7\8\9\10\")
    If CheminDossier = "" Then
        Cleanup
        else
             IF Right(CheminDossier, 1) <> "\" Then
             CheminDossier = CheminDossier & "\"
             Arborecence(CheminDossier)
             MsgBox "L'Arborescence :"&vbcr& qq(CheminDossier) &vbcr&_
              " a été crée avec succés !",64,Titre 
             Call Explorer(CheminDossier)
             else
             Arborecence(CheminDossier)
             MsgBox "L'Arborescence :"&vbcr& qq(CheminDossier) &vbcr&_
              " a été crée avec succés !",64,Titre 
             Call Explorer(CheminDossier)
             end if
    end if
     
    Sub Arborecence(Dossier)   
    Dim oFSO:Set oFSO = CreateObject("Scripting.FileSystemObject")
               If oFSO.FolderExists(Dossier) Then 
                      Exit Sub  
               Else    
               Arborecence(oFSO.GetParentFolderName(Dossier)) 
               End If     
               oFSO.CreateFolder(Dossier)  
               Set oFSO = Nothing
    End Sub
     
    Sub Cleanup
      WScript.Quit
    End Sub
     
    Function qq(strIn)
        qq = Chr(34) & strIn & Chr(34)
    End Function
     
    Sub Explorer(Dossier)
    Set Ws = CreateObject("wscript.shell")
    ws.Run "Explorer "& Dossier,1,True
    End Sub

Discussions similaires

  1. Quel langage de programmation utiliser pour ce type de jeu?
    Par Nidomy dans le forum Langages de programmation
    Réponses: 8
    Dernier message: 25/01/2014, 18h21
  2. Réponses: 14
    Dernier message: 26/01/2011, 22h18
  3. Quelle GUI pour un programme local java pour windows (type .exe) ?
    Par Faiche dans le forum Interfaces Graphiques en Java
    Réponses: 3
    Dernier message: 10/11/2009, 16h55
  4. programmation corba: le type "sequence"
    Par Kali dans le forum CORBA
    Réponses: 4
    Dernier message: 28/08/2005, 16h09
  5. Créer de programme pour WIndows avec Turbo Pascal
    Par kaygee dans le forum Turbo Pascal
    Réponses: 16
    Dernier message: 20/08/2003, 23h22

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo