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 :

cherche script liste dossier sous dossier et leur fichier


Sujet :

VBScript

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    Téléconseiller
    Inscrit en
    Juin 2010
    Messages
    119
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Téléconseiller
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Juin 2010
    Messages : 119
    Par défaut cherche script liste dossier sous dossier et leur fichier
    Bonjour,

    voilà mon premier post étant donner que je ne trouve pas de solution :
    je cherche un script vbs ou batch permettant un listing de dossier et sous dossier ainsi que les fichier s'y trouvant et cela dans une page html.

    j'ai un dossier AUDIO dont j'aimerai faire afficher dans un page html son contenue.

    sachant que dans mon dossier AUDIO figure X sous dossier ex:
    repertoire :AUDIO
    sous repertoire :
    rap
    r&b
    varieter
    ....
    et dans ces sous repertoire figure également les repertoire des artiste en question
    et pour finir les fichier .mp3

    le but de la création voulu de cette liste en forma html
    est que j'ai créer une petite application en vb permettant de se connecter à mon ftp
    et j'aimerai y insérer CETTE LISTE HTML de mes fichier mp3 pour que l'utilisateur n'es pas à parcourir X répertoires pour savoir ce qui s'y trouve.

    en vous remerciant du temps consacrer et de votre aide

  2. #2
    Membre chevronné Avatar de pitchalov
    Homme Profil pro
    Inscrit en
    Avril 2007
    Messages
    340
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 39
    Localisation : France

    Informations forums :
    Inscription : Avril 2007
    Messages : 340
    Par défaut
    Salut.

    Pour faire ce listing, une petite procédure récursive de ce type devrait t'aider :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
     
    Sub ListDirectory(objFolder)
      For Each objFile In  objFolder.Files
        WScript.Echo "Fichier : " & objFile.Name
      Next
      For Each objSubFolder In objFolder.SubFolders
        WScript.Echo "Dossier : " & objSubFolder.Name
        ListDirectory(objSubFolder )
      Next
    End Sub
    Set objFso = CreateObject("Scripting.FileSystemObject")
    Set objMyFolder = objFso.GetFolder("C:\AUDIO")
    ListDirectory objMyFolder
    Après pour l'écriture en HTML, il te suffit de remplacer les Echo par l'écriture des infos qui t'intéressent dans un fichier en langage HTML et le tour est joué.

    Bonne continuation

  3. #3
    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 Lister les images au format JPEG d'un répertoire dans une page html
    pour la 2ème partie de votre code càd la Création de la page en HTML inspire-toi de Ce Vbscript qui va peut-être vous donner une idée
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    'Lister les images au format JPEG d'un répertoire dans une page html
    Set fso = CreateObject("Scripting.FileSystemObject")
    mapage="<html>"
    For Each fichier In fso.GetFolder(".\").Files
          cheminFic = fso.GetFolder(".\") & "\" & fichier.name & nbsp
          If fichier.type="Image JPEG" Then
           mapage = mapage & "<img src=""" & cheminFic & """><BR><BR>" & nbsp
          End If
    Next
    mapage = mapage & "</html>"
    Set tf = fso.CreateTextFile(".\MesImages.html", True)
    tf.Write (mapage)
    WScript.Quit
    Donc c'est à vous maintenant le tour pour combiner les 2 codes afin de réaliser votre Script Final. Bonne Programmation

  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
    Par défaut Lister les Fichiers au format mp3 d'un répertoire dans une page html
    Bonjour;
    Voila un script qui fait Lister les Fichiers au format mp3 d'un répertoire dans une page html
    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
    'Lister les Fichiers au format mp3 d'un répertoire dans une page html
    Set fso = CreateObject("Scripting.FileSystemObject")
    mapage="<html>"
    For Each fichier In fso.GetFolder(".\").Files
          cheminFic = fso.GetFolder(".\") & "\" & fichier.name & nbsp
    	  'msgbox cheminFic
    	  strExt =  fso.GetExtensionName (fichier.Name)
          If strExt="mp3" Then
           mapage = mapage & "<a href=""" & cheminFic & """>"& fichier.name &"</a><BR><BR>" & nbsp
          End If
    Next
    mapage = mapage & "</html>"
    Set tf = fso.CreateTextFile(".\mp3.htm", True)
    tf.Write (mapage)
    WScript.Quit

  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 Lister les Fichiers au format mp3 d'un répertoire et sous-répertoire dans une page html
    voila essaye ce script :
    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
    start_folder = "c:\Audio" 'Si votre dossier Audio se trouve a la racine c:\ sinon change le chemin
    htmfile = "mp3.htm"
    ext = "mp3"
    count=0
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set folder = fso.GetFolder(start_folder)
    Set ws = CreateObject("WScript.Shell")
    Set outfile = fso.CreateTextFile(htmfile)
     
    outfile.WriteLine "<html><body>"
    ListDirectory folder, ext
    outfile.WriteLine "<font color=red>Le Nombre de fichiers de type mp3 est "& count & "</font>"
    outfile.WriteLine "</body></html>"
    outfile.Close
    ws.Run htmfile
     
    Sub ListDirectory(folder, ext)
        For Each file In folder.Files
            If UCase(ext) = UCase(fso.GetExtensionName(file.Name)) Then
                outfile.WriteLine "<center><a href='" & file.Path & "'>" & file.Name & "</a><br>"
                count=count+1
            End If
        Next
        For Each fldr In folder.subfolders
            ListDirectory fldr, ext
        Next
    End Sub

  6. #6
    Membre confirmé
    Homme Profil pro
    Téléconseiller
    Inscrit en
    Juin 2010
    Messages
    119
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Téléconseiller
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Juin 2010
    Messages : 119
    Par défaut SUITE
    Citation Envoyé par hackoofr Voir le message
    voila essaye ce script :
    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
    start_folder = "c:\Audio" 'Si votre dossier Audio se trouve a la racine c:\ sinon change le chemin
    htmfile = "mp3.htm"
    ext = "mp3"
    count=0
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set folder = fso.GetFolder(start_folder)
    Set ws = CreateObject("WScript.Shell")
    Set outfile = fso.CreateTextFile(htmfile)
     
    outfile.WriteLine "<html><body>"
    ListDirectory folder, ext
    outfile.WriteLine "<font color=red>Le Nombre de fichiers de type mp3 est "& count & "</font>"
    outfile.WriteLine "</body></html>"
    outfile.Close
    ws.Run htmfile
     
    Sub ListDirectory(folder, ext)
        For Each file In folder.Files
            If UCase(ext) = UCase(fso.GetExtensionName(file.Name)) Then
                outfile.WriteLine "<center><a href='" & file.Path & "'>" & file.Name & "</a><br>"
                count=count+1
            End If
        Next
        For Each fldr In folder.subfolders
            ListDirectory fldr, ext
        Next
    End Sub
    tout d’abords bonjour et grand merci a vous et particulièrement à " hackoofr " de son aide et de ce script magique qui se rapproche le plus de ce que je recherche.
    j'ai continuer à chercher de mon coter en vain enfin faut dire que j'ai vraiment aucune connaissance j'apprend sur le tas en trouvant des scripts et en essayant de les combiner un à un pour l'utilisation que je veux en faire donc vous imaginer le temps passer dessus ( et les erreur j'imagine laisser dans le scripte) BREF ....
    pour faire suite à votre script celui-ci m'affiche parfaitement tout mes .mp3 dans une page html,
    en faite si ce n'est pas trop abuser de ma part (personnellement je pense qu'un peu quand même mais j'aimerai réellement simplifier l'utilisateur pour télécharger le titre désirer).

    ce qui est rechercher a rajouter dans ton script:
    1/ les fichier wma ( mais sa je pense que je réussirai a trouver comment le rajouter derrière (ext = "mp3").
    2/très important c'est "l'emplacement" des fichiers à afficher dans la page html.
    ex détailler POUR UN GENRE ET UN SEUL ARTISTE qui se trouve sur mon pc:

    C:\AUDIO (ayant 10 style soit 10 dossier)

    C:\AUDIO\reggea\ (ayant 10 artistes soit 10 dossier)

    C:\AUDIO\reggea\Alpha Blondy (ayant 10 albums soit 10 dossier)

    C:\AUDIO\reggea\Alpha Blondy\Jah Victory\ (les fichier .MP3)

    en faite ce que je cherche à faire c'est genre une page comme ca :
    (c'est ce qui est en gras qui devra être afficher sur la page html le reste c'est pour vous décrire l'idée)


    c:\audio
    style 1
    style 2
    style 3
    ect ..

    c:\audio\style1
    artiste 1
    artiste 2
    artiste 3
    ect ..

    c:\audio\style1\artiste 1
    album 1
    album 2
    album 3
    ect ..

    c:\audio\style1\artiste 1\albums 1
    fichier 1
    fichier 2
    fichier 3
    ect ..
    c:\audio\style1\artiste 2
    album 1
    ect ect ....

    car après j'ai l'idée d'essayer de faire des lien si vous voyer ce que je veux dire ??!!!

    VOILA j'ai essayer au mieux de me faire comprendre j'espère y avoir arriver,
    vous voyer le but que je veux accomplir si vous penser que je dois utiliser autre technique ou autre n'hésitez pas en m'en faire part
    cordialement et merci encore de votre aide et du temps accorder

  7. #7
    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
    Citation Envoyé par zitoune31 Voir le message
    1/ les fichier wma ( mais sa je pense que je réussirai a trouver comment le rajouter derrière (ext = "mp3").
    2/très important c'est "l'emplacement" des fichiers à afficher dans la page html.
    Voila essaye cette modification avec les extensions ajoutés wma et rm et d'autres informations sur ces fichiers Nom,Chemin,Taille,Type,Modifié le,Dernier Accès comme Bonus :
    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
    44
    45
    46
    47
    start_folder = "C:\Audio"
    htmfile = "Fichiers_Audio.htm"
    ext = Array("mp3","wma","rm") 'extensions ajoutés wma et rm
    count=0
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set folder = fso.GetFolder(start_folder)
    Set ws = CreateObject("WScript.Shell")
    Set outfile = fso.CreateTextFile(htmfile)
    strHTML="<html><body><style type='text/css'>"&_
        "a:link {color: #F19105;}"&_
        "a:visited {color: #F19105;}"&_
        "a:active {color: #F19105;}"&_
        "a:hover {color: #FF9900;background-color: rgb(255, 255, 255);}"&_
     "</style>"
    strHTML=strHTML &"<center><h2><B><font color=red>Le Nombre de fichiers de type mp3, wma et rm est de [COUNT]</font></B></h2></center>" & _
                  "<table border='1' style='border-collapse: collapse; font size:9pt' bordercolor='#CCCCCC' width='100%' id='Table1'>" & _
                  "<tr><td><center><strong>Nom</strong></center></td><td><center><strong>Chemin</strong></center></td>" & _
                  "<td><center><strong>Taille<strong></center></td><td><center><strong>Type</strong></center></td>" & _
                  "<td><center><strong>Modifié le</strong></center></td><td><center><strong>Dernier Accès</strong></center></td></tr>" 
        ListDirectory folder, ext
    strHTML = strHTML & "</table>"
    strHTML = Replace(strHTML, "[COUNT]", Count) 
    outfile.WriteLine strHTML &"</body></html>"
    outfile.Close
    ws.Run htmfile
     
    Sub ListDirectory(folder, ext)
        For Each objFile In folder.Files
    If (UCase(ext(0)) = UCase(fso.GetExtensionName(objFile.Name)) OR UCase(ext(1)) = UCase(fso.GetExtensionName(objFile.Name)) OR UCase(ext(2)) = UCase(fso.GetExtensionName(objFile.Name))) Then
                count=count+1
    	    strFileName = objFile.Name
                strFilePath = objFile.ParentFolder
                strFileSize = FormatNumber((objFile.Size/1024),2) + " Kb"
                strFileType = objFile.Type
                strFileModified = objFile.DateLastModified
                strFileAccess = objFile.DateLastAccessed
     
                strHTML = strHTML & "<tr><td>" & strFileName & "</td><td><a href='" & strFilePath & "'>" & _
                                    strFilePath & "</a></td><td>" & strFileSize & "</td>" & _
                                    "<td>" & strFileType & "</td><td>" & strFileModified & "</td>" & _
                                    "<td>" & strFileAccess & "</td></tr>"
            End If
        Next
        For Each fldr In folder.subfolders
            ListDirectory fldr, ext
        Next
    End Sub

  8. #8
    Membre confirmé
    Homme Profil pro
    Téléconseiller
    Inscrit en
    Juin 2010
    Messages
    119
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Téléconseiller
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Juin 2010
    Messages : 119
    Par défaut suite
    bonsoir,

    j'ai tester votre dernier script je dois dire que c'est une merveille !!!!
    c'est presque tout dont j'ai besoin.
    effectivement j'aurais pas forcément trouver de but en blanc comment rajouter d'autre extension que le mp3 mais avec ça nikel j'ai pu y rajouter rar, zip ...
    pour résumer je dois dire avant tout MERCI, c'est vrai que j'aurai bien aimer une mise en page html comme citer plus haut a savoir :
    c:\audio
    style 1
    style 2
    style 3
    ect ..

    c:\audio\style1
    artiste 1
    artiste 2
    artiste 3
    ect ..

    c:\audio\style1\artiste 1
    album 1
    album 2
    album 3
    ect ..

    c:\audio\style1\artiste 1\albums 1
    fichier 1
    fichier 2
    fichier 3
    ect ..
    c:\audio\style1\artiste 2
    album 1
    ect ect ....

    mais j'imagine la complexité que cela doit impliquer.
    j'aurai une dernière petite question et je pourrai mettre quelque soit votre réponse ce post en résolu.
    es-ce possible de vous poster mon code VB qui es en relation à la création de se poste pour que vous puissiez me donner votre avis et voir même pourquoi pas plus, genre amélioration\ correction de celui-ci ?

  9. #9
    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
    Citation Envoyé par zitoune31 Voir le message
    bonsoir,
    j'aurai une dernière petite question et je pourrai mettre quelque soit votre réponse ce post en résolu.
    es-ce possible de vous poster mon code VB qui es en relation à la création de se poste pour que vous puissiez me donner votre avis et voir même pourquoi pas plus, genre amélioration\ correction de celui-ci ?
    Salut
    Oui Bien sûr en mettant ton code entre les balises

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [Batch] Liste des sous-dossiers avec leur nom et le nombre de fichier inclus
    Par sencha dans le forum Scripts/Batch
    Réponses: 5
    Dernier message: 05/02/2015, 10h27
  2. Script, Dossier + Sous Dossier + "publication" page HTML
    Par Lexounet dans le forum VBScript
    Réponses: 17
    Dernier message: 25/05/2011, 20h41
  3. Script, Dossier + Sous Dossier + "publication" page HTML
    Par Lexounet dans le forum Vos Contributions VBScript
    Réponses: 2
    Dernier message: 20/05/2011, 11h05
  4. récupérer la liste des sous dossiers
    Par Oh!Tofocus dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 28/09/2009, 23h38

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