Windows Pfad öffnen, Dateien gleich nach Neuesten sortieren und große Symbole anzeigen

RolandKan

Hallo zusammen,

ich muss einen Windows Pfad öffnen, indem die Dateien automatisch nach den neuesten Dateien sortiert und alles mit großen Symbolen angezeigt wird.
Ich öffne den Pfad so z.B.:
ShellExcecute ("C:\Users\Roland\Documents")

Kann ich da jetzt Parameter hinterlegen, die mir mein Vorhaben ermöglichen? Die Autoit-Hilfe, ist ziemlich unbrauchbar, da da nicht mal aufgelistet wird, welche Parameter zu Verfügung stehen.

Ich hoffe ihr könnt mir hier weiter helfen.

**Bitnugger**

Zitat von RolandKan

Die Autoit-Hilfe, ist ziemlich unbrauchbar, da da nicht mal aufgelistet wird, welche Parameter zu Verfügung stehen.

Die optionalen Parameter werden dem Programm von AutoIt beim Aufruf übergeben. Was das Programm mit den Parametern anstellt und/oder ob es diese versteht, interessiert AutoIt nicht die Bohne.

In deinem Fall wäre die korrekte Frage, welche Parameter der Windows Explorer (explorer.exe) akzeptiert... den du mit Run() aufrufen kannst.

Run(@WindowsDir & "\explorer.exe /N, " & "C:\Users\Roland\Documents", "", @SW_SHOW)

Befehlszeilenoptionen für Windows-Explorer

RolandKan

Ok super danke, aber laut der online Hilfe von Autoit, kann man "run" keine Parameter mitgeben, außer "sw.." für die Art, wie er das Fenster öffnen soll und opt_flag, wo ich gar nicht weiß, wofür das ist. Also ich sag es mal so, ich hab noch nicht so viel Ahnung von Autoit und muss mich da jetzt erstmal reinfuchsen. Kannst du mir da nicht vielleicht ein Tipp geben?

**Kanashius**

Das ist kein Autoit. Ist bei allen Bios: Du kannst Programmen argumente mitgeben. Das geht so, dass du den Pfad zur EXE angibst und dann mit Leerzeichen getrennt text dahinterschreibst. (Enthält der Text leerzeichen muss er in " gefasst werden.
Beispiel:
Run('C:\run.exe beispiel "text ..."')

**autoBert**

Zitat von Kanashius

Das ist kein Autoit. Ist bei allen Bios: Du kannst Programmen argumente mitgeben.

was hat Parameterübergabe mit dem Bios zu tun?

**Bitnugger**

Zitat von RolandKan

laut der online Hilfe von Autoit, kann man "run" keine Parameter mitgeben

Oh ja, das stimmt... ist mir noch gar nicht aufgefallen, weil es für mich selbstverständlich war, da die Funktion sonst ja nur bedingt Sinn macht. Nichtsdestotrotz ist dies eine wirklich gemeine Unterschlagung in der Hilfe und sollte dringend korrigiert werden.

Nun, jetzt weißt du aber, dass du mit der Funktion Run() und ShellExecute() Befehle - genauso wie in der Eingabeaufforderung - mit Parametern aufrufen kannst.

Funktion Run()
opt_flag [optional] Steuert verschiedene Optionen, die die Interaktion zwischen Parent- und Child-Prozess betreffen (STDIO). Parent-Prozess = dein Script, dass die Run() Funktion aufruft, Child-Prozess = der mit Run() gestartete Befehl.

Zitat von RolandKan

Kannst du mir da nicht vielleicht ein Tipp geben?

Wollte gerade sagen, dass ich es auch noch nicht so lange mit AutoIt treibe, doch ein Blick in mein Profil sagt anderes: 22. Februar 2009.

Ok, versuchen wir es mal...

Ich sehe zwei Möglichkeiten, dein Vorhaben zu realisieren.
1.) Nach Starten des Explorers änders du mit Control-Befehlen die Ansicht entsprechend deinen Wünschen.
2.) Du erstellst eine eigene GUI mit einem ListView in Icon-Ansicht und besorgst dir alle nötigen Daten dafür selbst.

Für dich kommt wohl nur die erste Option infrage... doch auch diese dürfte derzeitig eine unknackbare Nuss für dich sein, da deine AutoIt-Kenntnisse dafür sicher nicht ausreichen, was an deiner Fragestellung erkennbar ist.

Deshalb habe ich dir ausnahmsweise mal auf die Schnelle ein kleines Demo-Script erstellt, dass diese Aufgabe erledigen sollte - getestet unter Windows 10 x64.

Mehr Infos als Kommentar im Script.

Explorer Ansicht und Sortierung ändern

AutoIt

#Region ;************ Includes ************
#include <Array.au3>
#include <WinAPISys.au3>
#EndRegion ;************ Includes ************


;-- TIME_STAMP   2016-09-08 05:41:19   v 0.1


#cs
	*****************************************************************************************
	_ModifiedDate(), _Ascending(), _Descending()
	*****************************************************************************************
	Je nach Inhalt des angezeigten Verzeichnisses (Bilder, Dokumente, Videos, Audio, unsw.)
	variieren die Klick-Koordinaten für das Sortieren-Menü (siehe Bild),
	weil jeweils spezifische Menü-Einträge angezeigt werden!


	Diese Demo funktioniert mit dem Verzeichnis (Sortieren-Menü) --> @MyDocumentsDir


	Tipp: Vor dem Testen sollte die Ansicht für das Verzeichnis im Explorer manuell auf die
		  Default-Werte gesetzt werden, weil der Explorer sich die geänderte Ansicht merkt.


	Hehe - viel Spaß damit! ;-)
	*****************************************************************************************
#ce


#NoTrayIcon


Opt("MustDeclareVars", 1)


;_ToolTip()	; Debug


Global $sFolder = @MyDocumentsDir, $iMsgBoxAnswer, $iSleep = 500


Global $aWinList = WinList('[CLASS:CabinetWClass]')
Global $iExplorerInstances = $aWinList[0][0]


; Explorer mit Pfadangabe öffnen - ShellExecute() oder Run() - beides geht...


; ShellExecute($sFolder)
; If @error Then Exit MsgBox(0, @ScriptName, "Fehler: ShellExecute($sFolder))") + 1


Run(@WindowsDir & '\explorer.exe /N, ' & $sFolder, '', @SW_SHOW)
If @error Then Exit MsgBox(0, @ScriptName, "Fehler: Run(@WindowsDir & '\explorer.exe /N, ' & $sFolder, '', @SW_SHOW)") + 1


Global $iMyExplorerInstance = 1 ; Unsere Explorer-Instanz sollte immer 1 sein
Global $hWnd = WinWait('[CLASS:CabinetWClass; INSTANCE:' & $iExplorerInstances + 1 & ']', '', 10) ; 10 Sekunden warten
If $hWnd = 0 Then Exit MsgBox(0, @ScriptName, "Fehler: WinWait('[CLASS:CabinetWClass; INSTANCE:...')") + 2


$aWinList = WinList('[CLASS:CabinetWClass]')
;_ArrayDisplay($aWinList, '$aWinList')
If $aWinList[0][0] = 0 Then Exit MsgBox(0, @ScriptName, "Fehler: $aWinList[0][0] = 0") + 3


Global $hMyExplorerTitle  = $aWinList[$iMyExplorerInstance][0] ; Dies ist der Window-Titel unserer Explorer-Instanz
Global $hMyExplorerWindow = $aWinList[$iMyExplorerInstance][1] ; Dies ist das Window-Handle unserer Explorer-Instanz


; Explorer-Window aktivieren
WinActivate($hMyExplorerWindow)
WinSetState($hMyExplorerWindow, '', @SW_MAXIMIZE)	; So stellen wir sicher, dass alle Controls sichtbar sind!
Sleep(2000)


Global $hMyExplorerAdress = ControlGetHandle($hMyExplorerWindow, '', '[CLASS:ToolbarWindow32; INSTANCE:3]')
Global $sMyExplorerAdress = ControlGetText('', '', $hMyExplorerAdress)
ConsoleWrite("@@ Debug line" & @TAB & @ScriptLineNumber & "   var: $iMyExplorerInstance --> " & $iMyExplorerInstance & @LF)
ConsoleWrite("@@ Debug line" & @TAB & @ScriptLineNumber & "   var: $hMyExplorerTitle    --> " & $hMyExplorerTitle & @LF)
ConsoleWrite("@@ Debug line" & @TAB & @ScriptLineNumber & "   var: $hMyExplorerWindow   --> " & $hMyExplorerWindow & @LF)
ConsoleWrite("@@ Debug line" & @TAB & @ScriptLineNumber & "   var: $hMyExplorerAdress   --> " & $hMyExplorerAdress & @LF)
ConsoleWrite("@@ Debug line" & @TAB & @ScriptLineNumber & "   var: $sMyExplorerAdress   --> " & $sMyExplorerAdress & @LF)


Global $hNetUIHWND = _GetNetUIHWND() ; Global, weil wir den mehrmals brauchen
ConsoleWrite("@@ Debug line" & @TAB & @ScriptLineNumber & "   var: $hNetUIHWND --> " & $hNetUIHWND & @LF)


_BigSymbols()
_ModifiedDate()	; Default: Descending
Sleep(1000)
_Ascending()
Sleep(1000)
_Descending()


WinSetState($hMyExplorerWindow, '', @SW_RESTORE)


Exit 0


; Ansicht auf große Symbole umstellen
Func _BigSymbols()
	If _MsgBoxAnswer('_BigSymbols() - Ansicht auf große Symbole umstellen?') = False Then Return
	BlockInput(1) ; Disable user input


	; 220, 42	Ansicht öffnen
	ConsoleWrite('Ansicht öffnen                        = ' & ControlClick('', '', $hNetUIHWND, 'primary', 1, 220, 42) & @CRLF) ; Default: 'primary' = 'left'
	Sleep($iSleep)


	; Local $hNetUIHWND2 = _GetNetUIToolWindow(1) ; wenn @error, dann Exit...
	; ; 418, 112	Ansicht "Mehr" - falls Window zu klein ist, um alle Optionen anzuzeigen
	; ConsoleWrite('Ansicht "Mehr"                        = ' & ControlClick('', '', $hNetUIHWND2, 'primary', 1, 418, 112) & @CRLF)
	; Sleep($iSleep)


	Local $hNetUIHWND2 = _GetNetUIToolWindow(1) ; wenn @error, dann Exit...
	; 420, 20	Ansicht auf "Große Symbole" umstellen
	ConsoleWrite('Ansicht auf "Große Symbole" umstellen = ' & ControlClick('', '', $hNetUIHWND2, 'primary', 1, 420, 20) & @CRLF)
	Sleep($iSleep)


	BlockInput(0) ; Enable user input
EndFunc  ;==>_Grosse_Symbole


; Sortieren nach Änderungsdatum - switcht die aktuelle Sortierung: "Aufsteigend --> Absteigend" bzw. "Absteigend --> Aufsteigend"
; Default = "Aufsteigend"
Func _ModifiedDate()
	If _MsgBoxAnswer('_ModifiedDate() - Sortieren nach Änderungsdatum?' & @CRLF & _
		'"Absteigend --> Aufsteigend" bzw. "Aufsteigend --> Absteigend"') = False Then Return
	BlockInput(1) ; Disable user input


	; 220, 42	Ansicht öffnen
	ConsoleWrite('Ansicht öffnen                        = ' & ControlClick('', '', $hNetUIHWND, 'primary', 1, 220, 42) & @CRLF)
	Sleep($iSleep)


	Local $hNetUIHWND2 = _GetNetUIToolWindow(1)
	; 680, 22	Sortieren nach
	ConsoleWrite('Sortieren nach                        = ' & ControlClick('', '', $hNetUIHWND2, 'primary', 1, 680, 22) & @CRLF)
	Sleep($iSleep)


	Local $hNetUIHWND3 = _GetNetUIToolWindow(1)
	; 80, 40	Änderungsdatum
	ConsoleWrite('Änderungsdatum                        = ' & ControlClick('', '', $hNetUIHWND3, 'primary', 1, 80, 40) & @CRLF)
	Sleep($iSleep)


	BlockInput(0) ; Enable user input
EndFunc  ;==>Sortieren_nach


; A --> Z
Func _Ascending()
	If _MsgBoxAnswer('_Ascending() - aktuelle Sortierung ändern? A --> Z') = False Then Return
	BlockInput(1) ; Disable user input


	; 220, 42	Ansicht öffnen
	ConsoleWrite('Ansicht öffnen                        = ' & ControlClick('', '', $hNetUIHWND, 'primary', 1, 220, 42) & @CRLF)
	Sleep($iSleep)


	Local $hNetUIHWND2 = _GetNetUIToolWindow(1)
	; 680, 22	Sortieren nach
	ConsoleWrite('Sortieren nach                        = ' & ControlClick('', '', $hNetUIHWND2, 'primary', 1, 680, 22) & @CRLF)
	Sleep($iSleep)


	Local $hNetUIHWND3 = _GetNetUIToolWindow(1)
	; 72, 204	Aufsteigend
	ConsoleWrite('Sortieren --> Aufsteigend             = ' & ControlClick('', '', $hNetUIHWND3, 'primary', 1, 72, 204) & @CRLF)
	Sleep($iSleep)


	BlockInput(0) ; Enable user input
EndFunc  ;==>_Aufsteigend


; Z --> A
Func _Descending()
	If _MsgBoxAnswer('_Descending() - aktuelle Sortierung ändern? Z --> A') = False Then Return
	BlockInput(1) ; Disable user input


	; 220, 42	Ansicht öffnen
	ConsoleWrite('Ansicht öffnen                        = ' & ControlClick('', '', $hNetUIHWND, 'primary', 1, 220, 42) & @CRLF)
	Sleep($iSleep)


	Local $hNetUIHWND2 = _GetNetUIToolWindow(1)
	; 680, 22	Sortieren nach
	ConsoleWrite('Sortieren nach                        = ' & ControlClick('', '', $hNetUIHWND2, 'primary', 1, 680, 22) & @CRLF)
	Sleep($iSleep)


	Local $hNetUIHWND3 = _GetNetUIToolWindow(1)
	; 72, 230	Absteigend
	ConsoleWrite('Sortieren --> Absteigend              = ' & ControlClick('', '', $hNetUIHWND3, 'primary', 1, 72, 230) & @CRLF)
	Sleep($iSleep)


	BlockInput(0) ; Enable user input
EndFunc  ;==>_Absteigend


; Handle für Control "Ansicht öffnen" besorgen - wenn @error, dann Exit...
Func _GetNetUIHWND()
	Local $bVisible = False ; auch die nicht sichtbaren anzeigen
	Local $aControls = _WinAPI_EnumChildWindows($hMyExplorerWindow, $bVisible)
	;_ArrayDisplay($aControls, '$aControls')
	Local $iIndex = _ArraySearch($aControls, 'NetUIHWND')
	If @error Then Exit MsgBox(0, @ScriptName, "Fehler: _WinAPI_EnumChildWindows($hMyExplorerWindow, $bVisible)") + 4


	Return $aControls[$iIndex][0]
EndFunc  ;==>_GetNetUIHWND


; Handle für Control ... besorgen - wenn @error, dann Exit...
Func _GetNetUIToolWindow($iInstance)
	Local $aWinList = WinList('[CLASS:Net UI Tool Window]')
	If @error Then Exit MsgBox(0, @ScriptName, "Fehler: WinList('[CLASS:Net UI Tool Window]')") + 5


	If $aWinList[0][0] < $iInstance Then
		Exit MsgBox(0, @ScriptName, "Fehler: $aWinList[0][0] < $iInstance" & @CRLF & _
			'$aWinList[0][0] = ' & $aWinList[0][0] & @CRLF & '$iInstance = ' & $iInstance) + 6
		Sleep($iSleep)
		$aWinList = WinList('[CLASS:Net UI Tool Window]')
		If @error Then Exit MsgBox(0, @ScriptName, "Fehler: WinList('[CLASS:Net UI Tool Window]')") + 88
		_ArrayDisplay($aWinList, '$aWinList - 2')
	EndIf
	Local $hNetUIToolWindow = $aWinList[$iInstance][1]


	Local $bVisible = False ; auch die nicht sichtbaren anzeigen
	Local $aControls = _WinAPI_EnumChildWindows($hNetUIToolWindow, $bVisible)
	If @error Then Exit MsgBox(0, @ScriptName, "Fehler: _WinAPI_EnumChildWindows($hNetUIToolWindow, $bVisible)") + 7
	Local $iIndex = _ArraySearch($aControls, 'NetUIHWND')
	If @error Then Exit MsgBox(0, @ScriptName, "Fehler: _ArraySearch($aControls, 'NetUIHWND')") + 8


	Return $aControls[$iIndex][0]
EndFunc  ;==>_GetNetUIToolWindow


Func _ToolTip()
	While 1
		Local $aWinList = WinList('[CLASS:Net UI Tool Window]')
		ToolTip(_ArrayToString($aWinList, @CRLF), 100, 100)
		Sleep(500)
	WEnd
	Exit
EndFunc


Func _MsgBoxAnswer($sMsg)
	$iMsgBoxAnswer = MsgBox(262211, @ScriptName, $sMsg)
	Select
		Case $iMsgBoxAnswer = 6 ;Yes
			Return True
		Case $iMsgBoxAnswer = 7 ;No
			Return False
		Case $iMsgBoxAnswer = 2 ;Cancel
			Exit 0
	EndSelect
EndFunc

Alles anzeigen

Klick-Koordinaten.png

RolandKan

Also, habe mir das eigentlich etwas einfacher vorgestellt, dass man z.B. beim "Run-Befehl", einfach ein paar Parameter hinzufügt, die das erledigen, scheinbar ist das nicht möglich.
Ich danke allen, dass ihr euch mit meinem Problem befasst habt und danke auch bitnugger, für das Skript, finde ich cool, wie man sowas in kurzer Zeit schreiben kann, auch wenn ich nicht gedacht hätte, dass man für so eine simple Aufgabe, 226 Zeilen braucht.^^
Leider hat, nach ein paar mal testen, die "$WinList < §Instance"-Abfrage nicht mehr funktioniert und hat dauernd eine Fehlermeldung gebracht, ich habe es jetzt ganz ganz einfach gelöst, auch wenn das mit "Programmieren" gar nichts mehr zu tun hat. Ich habe das Fenster ganz normal mit ShellExecute geöffnet und habe den Rest, mit "Send-Befehlen" gelöst, ich wusste nicht das man das alles, mit der Tastatur auch lösen kann.
Und noch was an Bitnugger, ich finde die ironisch gemeinten Sprüche von dir unpassend, weil klar kennst du dich besser aus, du machst es ja schon länger und ich habe gesagt, dass ich gerade erst anfange. Es sollte ja eigentlich z.B. bei einer Online-Hilfe so sein, dass da alles über die Befehle steht und diese Online-Hilfen sind ja bevorzugt für Anfänger, für die manche Sachen nicht so selbstverständlich sind. Auch du hast mal angefangen und dich bestimmt z.B. gefragt "Ähh.. was is ne Variable und wozu ist die gut ??? Oo" oder bist du auf die Welt gekommen und hast am selben Tag dein erstes AutoIt-Skript geschrieben? Ich denke nicht, ich wende mich an ein Forum, weil ich Hilfe brauche und nicht weil ich mir kindische Sprüche von gesandten des Programmiergottes durchlesen will.

Trotzdem noch DANKE für alles und ich hoffe ich kann mich bei meinem nächsten Problem wieder an euch wenden.

**Bitnugger**

Zitat von RolandKan

Und noch was an Bitnugger, ich finde die ironisch gemeinten Sprüche von dir unpassend,

Sprüche? Ich bin wirklich sehr erstaunt, dass gleich mehrere meiner Sätze ironisch auf dich wirken... ich habe jedenfalls kein einziges Wort ironisch gemeint!

Zitat von RolandKan

auch wenn ich nicht gedacht hätte, dass man für so eine simple Aufgabe, 226 Zeilen braucht.

Die Leer-/Debug-/Kommentar-Zeilen solltest du dann aber nicht mitzählen - es war auch nicht das Ziel, ein möglichst kurzes Script abzuliefern, sondern ein möglichst gut lesbares.

Zitat von RolandKan

und diese Online-Hilfen sind ja bevorzugt für Anfänger, ...

Wer erzählt denn solchen Unfug?

Zitat von RolandKan

Auch du hast mal angefangen ...

Ja natürlich habe auch ich mal angefangen... 1982 mit Commodore BASIC V2 auf dem C64, und da gab es noch kein Internet bzw. Online-Hilfen - das war eine völlig andere Welt!

Eines ist jedenfalls sicher - für DICH werde ich nie wieder meine Zeit verschwenden!

Peter S. Taler · *Ab 19-10-22 ergänzt um:*

Ja und die Steigerung war dann ein Arari ST. Mit Turbo Pascal. Aber gefühlt waren die Handbücher trotzdem besser als heute. Vielleicht weil jeder gewußt hat, wenn es nicht im Handbuch steht - was dann...

Heute machen wir Hilfetexte nach dem Motto - wenn ers nicht versteht kann er ja im Forum fragen?

EIn wenig detailierter könnte die Autoit Hilfe ab und an schon sein. Siehe mein Waterloo mit fileopen....

Gruß

Peter

PS.: Doch ja - die Heimcomputer von damals hatten Charme

RolandKan

Zitat von Bitnugger

Oh ja, das stimmt... ist mir noch gar nicht aufgefallen, weil es für mich selbstverständlich war, da die Funktion sonst ja nur bedingt Sinn macht. Nichtsdestotrotz ist dies eine wirklich gemeine Unterschlagung in der Hilfe und sollte dringend korrigiert werden.

Also wenn das, keine Ironie war, dann weiß ich auch nicht, ich habe das jedenfalls vollkommen als Ironie interpretiert und habe ich mich da etwas verarscht gefühlt.

Zitat von Bitnugger

Die Leer-/Debug-/Kommentar-Zeilen solltest du dann aber nicht mitzählen - es war auch nicht das Ziel, ein möglichst kurzes Script abzuliefern, sondern ein möglichst gut lesbares.

Und wegen deinem Skript, hast du es falsch verstanden, es war keinesfalls eine Kritik, eher habe ich es bewundert und fand es echt Hammer, dass du so ein Skript in so kurzer Zeit schreiben kannst und dann hat es mich halt etwas erschrocken, dass das Skript so lang sein muss, da die Funktion, ja eigentlich simpel ist. Aber das zeigt, denke ich nur, dass ich noch viel lernen muss.

Naja, natürlich schauen auch erfahrene Programmierer in die Online-Hilfen, aber es nutzen ja vor allem Anfänger, denke ich, um überhaupt mal weiter zu kommen.

Zitat von Bitnugger

Ja natürlich habe auch ich mal angefangen... 1982 mit Commodore BASIC V2 auf dem C64, und da gab es noch kein Internet bzw. Online-Hilfen - das war eine völlig andere Welt!

Das ist cool, denn der erste PC, an dem ich saß, war auch ein C64, aber leider war ich da so klein, dass ich noch nichts programmieren konnte, ich habe mich gefreut, wie sau, als ich eine Diskette zum laufen gebracht habe und das Spiel gestartet ist =)
Die Handbücher, konnte ich da leider auch noch nicht so ganz lesen, da ich froh war, das Alphabet auswendig aufsagen zu können

Zitat von Bitnugger

Eines ist jedenfalls sicher - für DICH werde ich nie wieder meine Zeit verschwenden!

Verärgern wollte ich dich bestimmt nicht, das liegt vermutlich daran, dass du manches vollkommen falsch verstanden hast, und der Grund, warum ich dich etwas "angegriffen" habe ist, ich lese viel in Foren und mich regt das immer auf, wenn die Fragesteller immer nur verarscht werden, weil sie gerade am Anfang sind und halt nun mal dumme Fragen stellen, du hattest doch bestimmt auch viele dumme Fragen, als du angefangen hast, die hat doch jeder wenn man nicht durchblickt =)

Ich bin dir sehr dankbar für deine Hilfe und vor allem, für dein Skript, da ich aus dem Skript viel lernen kann und hoffe dass meine nächste Aufgabe, auch so gut gelöst wird. =)