Du bist nicht angemeldet.

Index von einem Ordner erstellen

derjoo

unregistriert

1

Dienstag, 21. Februar 2006, 22:35

Index von einem Ordner erstellen

Ich hatte vor ca 2 Jahren mal ein VBS gefunden, mit dem man in das kontextmenü von ordnern einen punkt "index erstellen" oder so gelegt hat. wenn man da drauf geklickt hat, wurde eine html-datei erzeugt, in der jede datei aus diesem ordner und seinen unterordnern aufgelistet wurde, und mit den jeweiligen dateien verlinkt wurde. das war ziemlich genial. ich depp habs natürlich verloren..... naja, wenn jemand das kennt, oder eine ahnung hat, wie man das anstellen könnte, soll er doch bitte antwortehn danke derjoo

Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »derjoo« (21. Februar 2006, 22:35)

derjoo

unregistriert

2

Dienstag, 21. Februar 2006, 23:02

habs jetzt noch gefunden. für die, dies interessiert:

Visual Basic Quellcode

 
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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91

dim gesamt
Set MyFiles = CreateObject("Scripting.FileSystemObject")
Set MyShell = CreateObject("WScript.Shell")

Set args=wscript.arguments
if args.count=0 then
   install
else
   start = args(0)
end if

if asc(right(start,2)) = 126 then start=inputbox("Anfangsverzeichnis mit kurzem Dateinamen ok?",,start)
if start = "" then wscript.quit
Set Verz = MyFiles.GetFolder(start)

DateiFilter = ucase(InputBox("Welchen Dateityp wollen Sie auflisten? Geben Sie die Dateierweiterung ein ( * für ALLE).",,"*"))
If DateiFilter = "" Then WScript.Quit

Do
   i=instr(start,"\")
   start=mid(start,i+1)
loop while instr(start,"\")

if start = "" then start = left(args(0),1)
typ=DateiFilter
if typ="*" then typ = "ALLE"
Index = typ & " Dateien" & " unter " & start & ".htm"
IndexFile = Verz &"\" & Index
IndexFile = replace(indexfile,"\\","\")

Set TextFile = MyFiles.CreateTextFile(IndexFile, True)
TextFile.Writeline "<HTML>"
TextFile.Writeline "<BODY>"
Subsearch Verz
TextFile.Writeline "<H3>" & string(60, "*") & "</H3>" 
TextFile.Writeline "<H3>Dateien insgesamt unter " & start & ":   " &  gesamt & "</H3>" 
TextFile.Writeline "</BODY>"
TextFile.WriteLine "</HTML>"
TextFile.Close
i=myshell.run(chr(34) & indexfile & chr(34))

Sub SubSearch(Byval Verz)
   filesearch verz
   Set Weitere = Verz.SubFolders
   For Each AktuellerOrdner In Weitere
      i=instr(AktuellerOrdner,"Temporary Internet Files")
      if i = 0 then SubSearch AktuellerOrdner
   Next
End Sub  

Sub Filesearch(Byval AktuellerOrdner)
   Set Dateien=AktuellerOrdner.Files    
   z = 0
   For Each Datei in Dateien
      If DateiFilter = "*" OR ucase(MyFiles.GetExtensionName(Datei.Path)) = DateiFilter Then
         z = z + 1
         if z = 1 then TextFile.Writeline "<H2>" & typ & " Dateien unter " & AktuellerOrdner & "</H2>" 
         Pfad = Replace(Datei, "\", "/", 1)  
         TextFile.Writeline "[url= & Chr(34) & ]" & ucase(datei.name) & "[/url] </br>"  
      End If
   Next
   if z > 0 then 
      gesamt = gesamt + z
      if z = 1 then 
         TextFile.Writeline "<H3>" & z & " Datei</H3> </br>" 
      else
         TextFile.Writeline "<H3>" & z & " Dateien</H3> </br>" 
      end if
   end if
End Sub

sub install()
   On Error Resume Next
   installed=MyShell.RegRead("HKEY_CLASSES_ROOT\folder\Shell\HTML-Index\Command\")
   if installed = "" then 
      Set c = MyShell.Environment("PROCESS")
      winverz=c("WINDIR")
      neu="wscript.exe " & winverz & "\index.vbs " & chr(34) & "%1" & chr(34)
      MyShell.RegWrite("HKEY_CLASSES_ROOT\folder\Shell\HTML-Index\Command\"),neu
      PCWScript = WScript.ScriptFullName
      set pcwcopy=MyFiles.Getfile(PCWScript)   
      installpath=winverz & "\index.vbs"
      pcwcopy.copy(installpath) 
      msgbox "Script ist jetzt installiert, siehe ==> HKEY_CLASSES_ROOT\Folder\SHELL\HTML-Index." & chr(10) & chr(13) & "Aufruf über Ordner-Kontextmenü 'HTML-Index'"
      wscript.quit
   Else
      m=myshell.popup("HTML-Index deinstallieren?",,"Uninstall",4)
      if m=6 then MyShell.RegDelete("HKCR\Folder\Shell\HTML-Index\")
   end if
wscript.quit
end sub

war irgendwie mal was ähnliches auf ner pc-zeitschrift cd....

Social Bookmarks