Hallo
ich habe die ehrenvolle aufgaben ein Skript zu erstellen das einen Ordner erstellt.
Das ist aber nicht das Problem 
Zuerst soll nämlich das Script die Directory des aktiven Fenstern herausfinden und da dann einen neuen Ordner erstellen
Meine Frage wie kann die Directory des aktiven Fensters abfragen?
Hoffe ihr könnt mir helfen
du könntest den Ordner ja auch einfach abfragen in welchem Ordner denn der neue Ordner erstellt werden soll.
Such einfach mal in der Hilfe nach
FileSelectFolder
[/autoit]hmmm
So wollt ich das eigentlich ned machen...
Und wie soll ich das so dann machen?^^
Das FileSelectFolder hör ich zum ersten Mal
Sowas?:
Opt("WinTitleMatchMode", 4)
Global $ShellObject = ObjCreate("Shell.Application")
Dim $Pfade = ''
$WinList = WinList('[CLASS:ExploreWClass]')
For $i = 1 To $WinList[0][0]
$Pfade &= _GetExplorerWinOpenedPath($WinList[$i][1], $ShellObject) & @CRLF
Next
MsgBox(0, "", "Pfade geöffneter Explorer-Fenster:" & @CRLF & @CRLF & $Pfade)
[/autoit] [autoit][/autoit] [autoit];by AspirinJunkie
Func _GetExplorerWinOpenedPath($WinHandle, ByRef $ShellObject)
If (Not IsObj($ShellObject)) And (Not ObjName($ShellObject) == 'IShellDispatch4') Then Return SetError(1, 0, '')
For $Window In $ShellObject.Windows
If ObjName($Window) == 'IWebBrowser2' Then
If $Window.HWND = $WinHandle Then
Return StringReplace(StringReplace(StringReplace($Window.LocationURL, 'file:///', ''), '/', '\'), '%20', ' ')
EndIf
EndIf
Next
Return SetError(2, 0, '')
EndFunc
Hallo SkySurfer,
schau dir einmal das Skript in Aus versehen alle versteckten Fenster sichtbar gemacht. Keylogger? an. Mit den darin verwendeten Befehlen solltest du zum Ziel kommen,
mfg (Auto)Bert
