title image


Smiley Re: Probleme mit VBS - ich bin zu doof
Erstelle Dir eine XXXX.VBS Datei und kopiere den Code dort hinein, damit passiert alles im Scripting.







      

Dim MsgTitle

MsgTitle="[HS] Dateiliste"



Call MainProgramm



Sub MainProgramm



    Dim FSO,PathName,SearchExtension,FoundList,PlayList,TrackList

    Set FSO = CreateObject("Scripting.FileSystemObject")

     PathName = Trim(FSO.GetAbsolutePathName(FSO.GetParentFolderName(WScript.ScriptFullName))) & "\"

     

     SearchExtension=".MP3"

     PlayList = "Playlist.m3u"

     TrackList = "Tracklist.txt"



    Call ReadFileList(PathName,SearchExtension,FoundList)

    If Len(FoundList) Then

         RetVal = MsgBox(FoundList,vbYesNo+vbQuestion,MsgTitle & " speichern")

        If RetVal=vbYes Then

            Dim FileName



            Set FileName = FSO.OpenTextFile(Ucase(PathName & TrackList) ,2,True)

             TrackList = Replace(FoundList,Ucase(SearchExtension),"")

             TrackList = Replace(TrackList,Lcase(SearchExtension),"")

             FileName.Write TrackList

            Set FileName = Nothing



            Call ReplaceSomething(FoundList)

            Set FileName = FSO.OpenTextFile(Ucase(PathName & PlayList) ,2,True)

             FileName.Write FoundList

            Set FileName = Nothing



        End If



    Else

         MsgBox "Keine relevanten Dateien gefunden...",vbInformation,MsgTitle & " - " & Ucase(Extension)

     

    End If

     

End Sub



Sub ReadFileList(sFullPathName,sExtension,sFileList)

    Dim FSO, FolderList, FileList, File, sFile, iExtension

    Set FSO = CreateObject("Scripting.FileSystemObject")

    Set FolderList = FSO.GetFolder(sFullPathName)

    Set FileList = FolderList.Files

    

         iExtension=Len(sExtension)

        For Each File in FileList

             sFile=File.Name

            If Len(sFile)>iExtension Then

                If Ucase(Right(sFile,iExtension))=Ucase(sExtension) Then

                     sFileList = sFileList & sFile 

                     sFileList = sFileList & vbCrLf

                End IF

            End If

        Next



End Sub



Sub ReplaceSomething(sString)



    'Hier wird eingetragen was wodurch ersetzt werden soll

    

    'sString = Replace(sString, "Z", "ä")

   'sString = Replace(sString, "T", "ö")

   'sString = Replace(sString, "s", "ü")

   'sString = Replace(sString, "\'e1", "ß")



end Sub 





Code eingefügt mit Syntaxhighlighter 3.0







In dem Sub ReplaceSomething (Grüne Zeilen) trägst Du ein, welches Zeichen der Winamp durch ein anderes benötigt ! In der betreffenden Zeile einfach dann das >> ' << an Anfang entfernen und der Code wird aktiv...






Wer weiß schon, was er nicht weiß...(ich zähle mich auch dazu) Holger

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: