www.IT-Visions.de-Diskussionsforen (Version 2.1)
(Diese Seite wurde noch nicht auf das neue Layout umgestellt!)


Diese Foren stehen den Lesern unserer Bücher und allen anderen registrieren Benutzern dieser Website zur Verfügung. Wir würden uns freuen, wenn viele Nutzer dieser Website hier nicht nur Fragen stellen, sondern auch die Fragen anderer Nutzer beantworten. Diese Foren sind ein ehrenamtlicher, nicht-kommerzieller, unmoderierter Community-Dienst von www.IT-Visions.de. Wenn Sie kommerzielle Unterstützung für .NET/Scripting/PowerShell suchen, schauen Sie bitte auf unser Support-Angebot und unsere Schulungsangebote für Scripting und Schulungsangebote für .NET.



Dateien aus Verzeichniss listen und playliste zusa
Autor:  AndreasDuswald
E-mail:  Antworten bitte nur in das Forum!
Datum:  15.05.2007 07:51:13
Subject:  Dateien aus Verzeichniss listen und playliste zusa
Bezug zum Buch: 
Message:  Hallo scriptprofies!

Ixh habe da was gebastelt, um durch ein verzeichniss zu gehen rekursive und raus zu finden, welche mp3 da drin sind und entsprechend dann eine Playliste zu erstellen.
Aber da ich ein totaler Anfänger mit scripting bin, bin ich mir nicht sicher ob das wirklich die Optimal Lösung ist. vieleicht kann mir da mal einer sagen wie ich das eleganter lösen sollte.

also es macht so schon was ich genau will, aber es ist nicht recht Flexibel so, wenn ich ein anderes Verzeichniss nehmen will, muß ich immer alles total umschreiben in php leg ich eigentlich immer alles mit variablen rein damit es flexibel bleibt, aber mit WSH is es haltl alles neu

Danke für jeden Hinweis!

Andy

und hier jetzt mal das skriplet:
'-------------------------------------------------------------------
Dim fso, tf
Const FOR_READING = 1
do
test = test +1
on error resume next

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set tf = fso.CreateTextFile("D:\stationen\pool\000_playlisten\beitraege.m3u", True)
    set myWs = CreateObject("Wscript.Shell")    
    strFolder = "d:\stationen\pool\000_news\Redaktion"
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(strFolder)
    Set colFiles = objFolder.Files
     
    WScript.Echo "----------------------------Beitraege Playliste----------------------"
    WScript.Echo "---------------------------------------------------------------------"
    WScript.Echo date & " - " & time
    WScript.Echo "---------------------------------------------------------------------"
    
    ' Kopf wird erstellt und fixe Beiträge von extern eingeschrieben'
    tf.WriteLine("#EXTM3U")

    ShowSubFolders(objFolder)
    WScript.Echo " "
    tf.Close
     ' Jetzt noch eine kleine Wartezeit ein gebaut, damit es nur alle 15 min durchläuft
    myWs.run "d:\wait3.vbs",0,True
test = test - 1
loop until test > 2

    Sub CreateFile(n)
       ' Write a line with a newline character.
       tf.WriteLine(n)
    End Sub
    
    Sub ShowSubFolders(objFolder)
    
      Set colFolders = objFolder.SubFolders
    
      For Each objSubFolder In colFolders
    
        Set colFiles = objSubFolder.Files
    
        For Each objFile In colFiles
       
          if objSubFolder.Path = "D:\stationen\pool\000_news\Redaktion\wetter" then
            'inix machen
          else   
           
            if objSubFolder.Path = "D:\stationen\pool\000_news\Redaktion\Topmeldungen" then
              'nix amchen'
            else
            
              if objSubFolder.Path = "D:\stationen\pool\000_news\Redaktion\pfotensuche\jingels" then
               'nix machen'
              else
              
               if objSubFolder.Path = "D:\stationen\pool\000_news\Redaktion\pfotensuche\meldungen" then
                  'nix machen'
               else
                  
                  if objSubFolder.Path = "D:\stationen\pool\000_news\Redaktion\pfotensuche\jingles" then
                    'nix machen'
                  else
                  
                    if objSubFolder.Path = "D:\stationen\pool\000_news\Redaktion\Topmeldungen\meldungen" then
                      'nix amchen'
                    else
                  
                    if objSubFolder.Path = "D:\stationen\pool\000_news\Redaktion\Topmeldungen\jingels" then
                      'nix amchen'
                    else
                                       
                        if objFile.name = "index.html" then
                          ' nicht schreiben'
                        else
                          WScript.Echo objFile.name & " in playliste geschrieben"
                          CreateFile("#EXTINF:-1," & objFile.name)
                          CreateFile(objFile.Path)
                        end if
                  
                      end if
                     
                    end if
                    
                  end if    
                  
                  
               end if
              
              end if
            
            end if
            
            
          end if
          
          
        Next
    
        ShowSubFolders(objSubFolder)
    
      Next
    
    End Sub

Antworten

  Zurück zum Forum



 Klassische Programmierung (Scripting, COM) -- Windows Scripting, VBScript, VB6, u.a.
 Dateien aus Verzeichniss listen und playliste zusa von AndreasDuswald  am 15.5.2007 7:51:13 AM
 Re: Dateien aus Verzeichniss listen und playlis... von AndreasDuswald  am 15.5.2007 1:13:49 PM
 Re: Dateien aus Verzeichniss listen und playlis... von AndreasDuswald  am 15.5.2007 9:04:12 AM


www.IT-Visions.de - Dr. Holger Schwichtenberg / 1998-2019