Baumstrukturmodus | Linearer Modus

icronosonic · 10.07.2009 01:30

Boah... die Headline ist diesmal sowas von unter aller Sau. Also wem hier was Besseres einfällt, bitte per PM, ich ändere das dann.

Es geht um Folgendes:
Ich nutze den Explorer, browse beim Coden gern mal in der Ordner-Ansicht, finde eine Datei und dann beginnt das Nervige: Die Überlegung, sich die Arbeit zu machen, den kompletten Pfad in die Adressbar des Browsers abzutippen bzw zu copasten, das File einfach zu löschen, weil man gerade keine Lust dazu hat, nichts von beidem zu tun und es einfach ignorieren.

Suxx...

Da kam mir die Idee mit dem nützlichen sendTo.
Nachdem ich schon einige dutzend Scripts schrieb, kommt jetzt ein "exec:php" hinzu.
Rauskopieren, in einer Text-Datei abspeichern (auf Endung vbs achten); jetzt solltet ihr Dateien draufziehen bzw eine Verknüpfung im SendTo-Ordner ablegen und über SendTo zusenden können.
Das VBS öffnet dann den Browser mit dem Path.

PHP-Code:

dim target, hardtarget

'####
'####    local-path zum htdocs-verzeichnis
'####
hardtarget   = "X:\Server\svn\public"


'####
'####    url-prefix
'####
target       = "http://localhost"
'target       = "http://127.128.129.130:1337"


'####
'####    wshell init
'####
DIM WshShell, fso, args
SET WshShell = CreateObject("WScript.Shell")
Set fso      = WScript.CreateObject("Scripting.FileSystemObject")
SET args     = WScript.Arguments


'####
'####    überprüfen, ob Pfad leer is (z. B. beim Doppelklick dieser VBS)
'####
For i = 0 to args.Count - 1
  myScriptFile = args.item(i)
  Exit For
Next

if myScriptFile = "" then  myScriptFile = WScript.ScriptName


'####
'####    nötige strings bereitstellen und als Variable festlegen
'####
strFileParentFolder           = fso.GetFile( myScriptFile ).ParentFolder
strFileName                   = fso.GetFile( myScriptFile ).Name

'####
'####    Prefix ersetzen und Separatoren ersetzen:
'####
strFileParentFolder = Replace(strFileParentFolder,hardtarget,"")
strFileParentFolder = Replace(strFileParentFolder,"\","/") + "/"


'####
'####    Browser mit entsprechendem URL-Parameter starten
'####
WshShell.Run """H:\\wtf\\hall of fame\\Mozilla\\firefox.exe """  + target + strFileParentFolder + strFileName
WshShell.Run "iexplore " + target + strFileParentFolder + strFileName 

hf und so

icronosonic · 17.07.2009 16:15

Update:

Um die PHP-Datei via Doppelklick an den localhost zu senden, ist es nicht möglich, das VBScript als Programm dem Dateitype .php zuzuweisen.

Das lässt sich umgehen, indem wir eine Bridge schreiben.

Öffnet den Texteditor und tippt folgende Zeile ein:

Code:

start laufwerk:\pfad\zur\exec_php.vbs  %1

Der Pfad zum VBS, gefolgt von einem "%1" (ist der Parameter, den das cmd-file entgegennehmen wird).
Speichert die Datei als "exec_php.cmd".

Es sollte jetzt möglich sein, dass ihr via drag'n'drop ein php-file mit dem cmd-file öffnet.

Jetzt kann man in den Ordneroptionen unter Dateitypen dem PHP-File beim öffnen das cmd-file als Anwendung zuweisen. Die Konsole nimmt das php-file entgegen und leitet es an das vbs weiter.

Wunschliste:

Ein Problem stellen Leer-/Sonderzeichen in Dateinamen dar!
Leider hab ich dazu noch nichts passendes gefunden. Das Problem liegt an der Pfad-Interpretation durch das VBS.
Ein anderer Wunsch wäre, PHP-Files über das VBS via Konsole mit get-Params aufzurufen:

Code:

start e:\scripts\exec_php.vbs X:\Server\svn\public\index.php?hello=world
VB liefert hier eine Fehlermeldung, weil es die Datei nicht finden kann.

Thema:		Verfasser	Antworten:	Ansichten:	Letzter Beitrag
	[TRICK] Mehr Speicherplatz unter Windows Vista SP1	c00l	14	1.628	24.04.2009 16:53 Letzter Beitrag: bugs
	Backup Funktion unter XP Home fehlt? Hier die Lösung	Quad Core	3	802	15.02.2009 12:17 Letzter Beitrag: GodFather
	explorer.exe nach Crash wiederherstellen	Homeboy05	1	783	22.10.2008 10:13 Letzter Beitrag: norman