Verfügbare Informationen zu "Windows Explorer-ersatz"
Qualität des Beitrags: Beteiligte Poster: daos06 Forum: DAFLO programming Forum Forenbeschreibung: Forum für die Mitglieder der Programmierer-Gruppe DAFLO programming aus dem Unterforum: RapidBatch Antworten: 2 Forum gestartet am: Samstag 05.08.2006 Sprache: deutsch Link zum Originaltopic: Windows Explorer-ersatz Letzte Antwort: vor 16 Jahren, 6 Monaten, 19 Tagen, 19 Stunden, 15 Minuten
Alle Beiträge und Antworten zu "Windows Explorer-ersatz"
Re: Windows Explorer-ersatz
daos06 - 07.09.2006, 23:13Windows Explorer-ersatz
Was einem nicht so alles einfällt, wenn einem langweilig ist.
Code: rem + ---------------------------------------------------+
rem | Windows Explorer - Ersatz Version 3.0 |
rem | created by FLODA programming (Daniel Ostheimer) |
rem +----------------------------------------------------+
include 'rbUtil2.rb'
rem Pfad zu rbUtil2.rbx festlegen (auf Verz. des Skripts)
rbUtil2ModulePath ''
rem rbUtil2 laden und initialisieren
rbUtil2Initialize [ret]
rem Bei Fehler: Abbruch
if [ret] ! [true]
echo 'Fehler beim Laden von rbUtil2'
halt
endif
repeat
[drvnum] + '1'
gettok [drive] = 'A|B|C|D|E|F|G|H|I|J|K|L|M|N|O|P|Q|R|S|T|U|V|W|X|Y|Z', '|', [drvnum]
if [drive] ! ''
disktype [drvtype] = [drive] # ':\'
If [drvtype] = '4' [laufwerkd] = [drive]
If [drvtype] = '2' [Festplatte] = [drive]
if [laufwerkd] ! '' & [Festplatte] ! '' [endeschleife] = [true]
endif
until [endeschleife] = [true]
EXT [Value] = [_rbUtil2], 'rbxGetSystemInfo', 'UserDesktopDir'
[Desktopl] = [Value]
EXT [Value] = [_rbUtil2], 'rbxGetSystemInfo', 'MyFilesDir'
[EDl] = [Value]
[itema] = [Festplatte] # ':'
[infol] = [Festplatte]
chdir [itema] # '/'
findfiles [filelist] = '', '1'
replacevar [filelist] = [filelist], [std_sep], '|'
rem --- creating code for widget "myDialog"
newdialog 'myDialog', 'DIALOG', '220|100|730|480'
letdialog 'myDialog', 'caption', 'Explorer'
rem --- creating code for widget "myWidget1"
newdialog 'myDialog:myWidget1', 'LIST', '130|20|210|395'
letdialog 'myDialog:myWidget1', 'enabled', '0'
letdialog 'myDialog:myWidget1', 'items', [filelist]
letdialog 'myDialog:myWidget1', 'EVENT_DBLCLICK', [true]
letdialog 'myDialog:myWidget1', 'EVENT_CLICK', [true]
newdialog 'myDialog:Los', 'BUTTON', '420|150|140|25'
letdialog 'myDialog:Los', 'CAPTION', 'Aufwärts'
newdialog 'myDialog:3Los', 'BUTTON', '420|200|140|25'
letdialog 'myDialog:3Los', 'CAPTION', 'Neuer Ordner'
newdialog 'myDialog:INFO', 'INPUT', '365|35|285|25'
letdialog 'myDialog:INFO', 'enabled', '0'
letdialog 'myDialog:INFO', 'readonly', '0'
letdialog 'myDialog:INFO', 'text', [infol] # ':\'
newdialog 'myDialog:LD', 'BUTTON', '20|50|100|50'
letdialog 'myDialog:LD', 'CAPTION', 'Lokaler Datenträger'
newdialog 'myDialog:CD', 'BUTTON', '20|100|100|50'
letdialog 'myDialog:CD', 'CAPTION', 'CD-ROM Laufwerk'
newdialog 'myDialog:ED', 'BUTTON', '20|150|100|50'
letdialog 'myDialog:ED', 'CAPTION', 'Eigene Dateien'
newdialog 'myDialog:DT', 'BUTTON', '20|200|100|50'
letdialog 'myDialog:DT', 'CAPTION', 'Desktop'
rem --- make the dialog window visible
letdialog 'myDialog', 'visible', [true]
repeat
rem Dialog starten
rundialog [event] = '0'
if [event] = 'dblclick_myDialog:myWidget1'
getdialog [zwischenv] = 'myDialog:myWidget1', 'SELECTION'
If [itema] ! [Festplatte] # ':\' & [itema] ! [laufwerkd] # ':\'
[Eingangslink] = [itema] # '\' # [zwischenv]
else
[Eingangslink] = [itema] # [zwischenv]
endif
getpos [pos] = [zwischenv], '.', '1'
if [pos] = '0'
chdir [Eingangslink]
findfiles [filelist] = '', '1'
replacevar [filelist] = [filelist], [std_sep], '|'
letdialog 'myDialog:myWidget1', 'items', [filelist]
letdialog 'myDialog:INFO', 'text', [Eingangslink]
[itema] = [Eingangslink]
[infol] = [Eingangslink]
else
open [Eingangslink]
endif
endif
if [event] = 'click_myDialog:Los'
getlen [len] = [itema]
If [len] > '3' [überprüfen] = [true]
If [itema] = [Festplatte] # ':' [itema] = [Festplatte] # ':\'
cntvar [anzahl] = [itema], '\'
getpos [pos] = [itema], '\', [anzahl]
[pos] = [pos] - '1'
copyvar [itema] = [itema], '1', [pos]
If [itema] = [Festplatte] # ':' & [überprüfen] ! [true] echo 'Hier gehts nicht mehr weiter zurück'
If [itema] = [Festplatte] # ':\' & [überprüfen] ! [true] echo 'Hier gehts nicht mehr weiter zurück'
reset [überprüfen]
If [itema] = [Festplatte] # ':' [itema] = [Festplatte] # ':\'
If [itema] = [laufwerkd] # ':' [itema] = [laufwerkd] # ':\' echo 'Hier gehts nicht mehr weiter zurück'
[infol] = [itema]
chdir [itema]
if [errorcode] = '0'
findfiles [filelist] = '', '1'
replacevar [filelist] = [filelist], [std_sep], '|'
else
[filelist] = ''
endif
letdialog 'myDialog:INFO', 'text', [infol]
letdialog 'myDialog:myWidget1', 'items', [filelist]
endif
if [event] = 'click_myDialog:3Los'
inputbox [v] = 'Ordner erstellen', 'Geben Sie den Namen des zu erstellenden Ordners ein', ''
If [infol] = [Festplatte] [infol] # ':\'
[infol] = [d]
[itema] = [d]
mkdir [d]
chdir [itema]
findfiles [filelist] = '', '1'
replacevar [filelist] = [filelist], [std_sep], '|'
letdialog 'myDialog:INFO', 'text', [infol]
letdialog 'myDialog:myWidget1', 'items', [filelist]
endif
If [event] = 'click_myDialog:LD'
[Festplatte2] = [Festplatte] # ':\'
chdir [Festplatte2]
findfiles [filelist] = '', '1'
replacevar [filelist] = [filelist], [std_sep], '|'
letdialog 'myDialog:myWidget1', 'items', [filelist]
letdialog 'myDialog:INFO', 'text', [Festplatte2]
[itema] = [Festplatte2]
[infol] = [Festplatte2]
endif
If [event] = 'click_myDialog:CD'
[laufwerkd2] = [laufwerkd] # ':\'
chdir [laufwerkd2]
if [errorcode] = '0'
findfiles [filelist] = '', '1'
replacevar [filelist] = [filelist], [std_sep], '|'
else
echo 'Keine CD eingelegt'
[filelist] = ''
endif
letdialog 'myDialog:myWidget1', 'items', [filelist]
letdialog 'myDialog:INFO', 'text', [laufwerkd2]
[itema] = [laufwerkd2]
[infol] = [laufwerkd2]
endif
If [event] = 'click_myDialog:ED'
chdir [EDl]
findfiles [filelist] = '', '1'
replacevar [filelist] = [filelist], [std_sep], '|'
letdialog 'myDialog:myWidget1', 'items', [filelist]
letdialog 'myDialog:INFO', 'text', [EDl]
[itema] = [EDl]
[infol] = [EDl]
endif
If [event] = 'click_myDialog:DT'
chdir [Desktopl]
findfiles [filelist] = '', '1'
replacevar [filelist] = [filelist], [std_sep], '|'
letdialog 'myDialog:myWidget1', 'items', [filelist]
letdialog 'myDialog:INFO', 'text', [Desktopl]
[itema] = [Desktopl]
[infol] = [Desktopl]
endif
until [event] = 'close_myDialog'
end
Re: Windows Explorer-ersatz
daos06 - 07.09.2006, 23:17
Und hier, für diejenigen, die nicht RapidBatch progger sind:
http://rapidshare.de/files/32310065/Explorer.zip.html
Mit folgendem Code, können Sie den Beitrag ganz bequem auf ihrer Homepage verlinken
Weitere Beiträge aus dem Forum DAFLO programming Forum
Windows Explorer-ersatz - gepostet von daos06 am Donnerstag 07.09.2006
Super Extra: Nur für Mitglieder: GOOGLE MAIL! - gepostet von daos06 am Sonntag 06.08.2006
Ähnliche Beiträge wie "Windows Explorer-ersatz"
Wer hat noch ne Windows cd? - FlAcHmAnN (Montag 04.02.2008)
Tips zum Umgang mit Windows Server 2003 - mcsalinux (Freitag 09.03.2007)
Windows XP 64 - Michael Teichert (Donnerstag 16.02.2006)
WINDOWS XP PERFEKT INSTALLIEREN - xlimited (Samstag 22.01.2005)
Anapod Explorer v 8.9.7 (Best Ipod manager) - yazid (Dienstag 12.09.2006)
Prison Break - Sheena (Mittwoch 30.04.2008)
Explorer Heimstunde - flubi (Mittwoch 11.04.2007)
Decursive Ersatz - SmartBuff - Sarisan (Dienstag 12.12.2006)
Windows für Ärzte - Katzenfreundin (Donnerstag 19.07.2007)
Windows Vista Angebot: Sonderheft zum Download - Hammer (Sonntag 18.03.2007)
