WinFuture-Forum.de: Index Software ? - WinFuture-Forum.de

Zum Inhalt wechseln

Nachrichten zum Thema: Software
Seite 1 von 1

Index Software ?


#1 Mitglied ist offline   nefetari 

  • Gruppe: Mitglieder
  • Beiträge: 9
  • Beigetreten: 20. August 04
  • Reputation: 0

  geschrieben 26. September 2004 - 11:24

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 !
0

Anzeige



#2 Mitglied ist offline   stefanra 

  • Gruppe: aktive Mitglieder
  • Beiträge: 6.208
  • Beigetreten: 13. September 04
  • Reputation: 1

geschrieben 26. September 2004 - 11:35

Zuerst eine Datei mit folgendem Inhalt im Notepad erstellen und als VBS 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

0

#3 Mitglied ist offline   nefetari 

  • Gruppe: Mitglieder
  • Beiträge: 9
  • Beigetreten: 20. August 04
  • Reputation: 0

geschrieben 26. September 2004 - 11:59

Hallo Stefan

Danke ,aber wie baue ich die Datei ein ich kenne vbs nicht ?
0

#4 Mitglied ist offline   stefanra 

  • Gruppe: aktive Mitglieder
  • Beiträge: 6.208
  • Beigetreten: 13. September 04
  • Reputation: 1

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.
0

#5 Mitglied ist offline   nefetari 

  • Gruppe: Mitglieder
  • Beiträge: 9
  • Beigetreten: 20. August 04
  • Reputation: 0

geschrieben 26. September 2004 - 12:32

Danke nochmal,ich habe verstanden es Funktioniert
0

#6 Mitglied ist offline   stefanra 

  • Gruppe: aktive Mitglieder
  • Beiträge: 6.208
  • Beigetreten: 13. September 04
  • Reputation: 1

geschrieben 26. September 2004 - 12:58

Schön!
0

Thema verteilen:


Seite 1 von 1

1 Besucher lesen dieses Thema
Mitglieder: 0, Gäste: 1, unsichtbare Mitglieder: 0