Windows Explorer-ersatz

DAFLO programming Forum
Verfügbare Informationen zu "Windows Explorer-ersatz"

  • Qualität des Beitrags: 0 Sterne
  • 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:13

    Windows 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)