Hallo !
Ich suche ein Programm oder ein Tip womit ich ganze Verzeichnisse auf der Festplatte einlesen kann,
und als Liste speichen kann ? ( Index.htm oder so ) So brauche ich nicht alles von Hand tippen.Ich brauche es für ein FTP-Server um ein Liste anbieten zu können was alles angeboten wird auf dem Server.
Danke !
Seite 1 von 1
Index Software ?
Anzeige
#2
geschrieben 26. September 2004 - 11:35
Zuerst eine Datei mit folgendem Inhalt im Notepad erstellen und als VBS abspeichern:
Danach die .VBS-Datei aufrufen, Ordner angeben und OK klicken.
Jetzt einfach die Seite im IE über "Datei" und "Speichern unter" abspeichern
Option Explicit Dim listArgs Dim objFS Dim objFolder Dim objSubFolder Dim objFile Dim objIE Dim szFolder Dim szTempFile Set listArgs = WScript.Arguments If listArgs.Count = 0 Then szFolder = InputBox("Welcher Ordner?", "Ordner auswählen", "C:\") Else szFolder = listArgs(0) End If Set objFS = CreateObject("Scripting.FileSystemObject") If objFS.FolderExists(szFolder) Then Set objFolder = objFS.GetFolder(szFolder) Set objIE = CreateObject("InternetExplorer.Application") objIE.Navigate("about:blank") objIE.visible = true objIE.document.title = "Ordnerinhalt" objIE.document.bgColor = "white" objIE.document.fgColor = "black" objIE.document.body.innerHTML = "Inhalt des Ordners <B>" & szFolder & "</B><BR><BR>" For Each objSubFolder In objFolder.Subfolders objIE.document.body.innerHTML = objIE.document.body.innerHTML & "Ordner: " & objSubFolder.Name & "<BR>" Next For Each objFile In objFolder.Files objIE.document.body.innerHTML = objIE.document.body.innerHTML & "Datei: " & objFile.Name & "<BR>" Next Else MsgBox "Angegebener Ordner existiert nicht!" End If
Danach die .VBS-Datei aufrufen, Ordner angeben und OK klicken.
Jetzt einfach die Seite im IE über "Datei" und "Speichern unter" abspeichern
Dieser Beitrag wurde von stefanra bearbeitet: 26. September 2004 - 11:59
#3
geschrieben 26. September 2004 - 11:59
Hallo Stefan
Danke ,aber wie baue ich die Datei ein ich kenne vbs nicht ?
Danke ,aber wie baue ich die Datei ein ich kenne vbs nicht ?
#4
geschrieben 26. September 2004 - 12:24
@nefetari: Du kopierst den Code in den Editor, klickst auf "Speichern unter" und wählst als Format "Alle Dateien" und nennst die Datei "listing.vbs".
Dann öffnest du mit dem Explorer den Ordner, in dem du die Datei abgespeichert hast und öffnest die Datei mit einem Doppelklick.
Vllt meckert dein Virenscanner, weil das Skript auf das Filesystem zugreift, dann musst du deinem Virenscanner sagen, dass er das Skript nicht blocken soll.
Dann öffnest du mit dem Explorer den Ordner, in dem du die Datei abgespeichert hast und öffnest die Datei mit einem Doppelklick.
Vllt meckert dein Virenscanner, weil das Skript auf das Filesystem zugreift, dann musst du deinem Virenscanner sagen, dass er das Skript nicht blocken soll.
#5
geschrieben 26. September 2004 - 12:32
Danke nochmal,ich habe verstanden es Funktioniert
Thema verteilen:
Seite 1 von 1