Oscars FileExplorer hat einen Fehler UND ICH FINDE IHN EINFACH NICHT!

Mr_gitarre

Kann mir jemand helfen...??

hier das Script von oscar:

[autoit]

#include <GUIConstantsEx.au3>
#include <GuiImageList.au3>
#include <GuiTreeView.au3>
#include <StructureConstants.au3>
#include <TreeViewConstants.au3>
#include <WindowsConstants.au3>

[/autoit][autoit][/autoit][autoit]

$hGui = GUICreate('FileExplorer', 400, 400)
$hTreeview = GUICtrlCreateTreeView(10, 10, 380, 360)
$hWndTreeview = GUICtrlGetHandle($hTreeview)
$hOk = GUICtrlCreateButton('Ok', 240, 375, 60, 22)
$hCancel = GUICtrlCreateButton('Cancel', 320, 375, 60, 22)

[/autoit][autoit][/autoit][autoit]

$hImage = _GUIImageList_Create(16, 16, 5, 1)
_GUIImageList_AddIcon($hImage, 'shell32.dll', 3) ; Verzeichnis-Icon
_GUIImageList_AddIcon($hImage, 'shell32.dll', 110) ; Verzeichnis-Icon mit Haken
_GUIImageList_AddIcon($hImage, 'shell32.dll', 1) ; Datei-Icon
_GUIImageList_AddIcon($hImage, 'shell32.dll', 5) ; Diskette
_GUIImageList_AddIcon($hImage, 'shell32.dll', 7) ; Wechseldatenträger
_GUIImageList_AddIcon($hImage, 'shell32.dll', ; Festplatte
_GUIImageList_AddIcon($hImage, 'shell32.dll', 11) ; CDROM
_GUIImageList_AddIcon($hImage, 'shell32.dll', 12) ; Netzwerklaufwerk
_GUIImageList_AddIcon($hImage, 'shell32.dll', 53) ; Unbekannt
_GUICtrlTreeView_SetNormalImageList($hTreeview, $hImage)

[/autoit][autoit][/autoit][autoit]

GUISetState()
GUICtrlSetStyle($hTreeview, Default, $WS_EX_COMPOSITED + $WS_EX_CLIENTEDGE)

[/autoit][autoit][/autoit][autoit]

$aDrives = DriveGetDrive('ALL')
ToolTip('Please wait...', Default, Default, 'Read Directory', 1)
For $i = 1 To $aDrives[0]
$iLWindex = 0
Switch DriveGetType($aDrives[$i])
Case 'Fixed'
$iLWindex = 5
Case 'CDROM'
$iLWindex = 6
Case 'RAMDisk'
$iLWindex = 7
Case 'Removable'
$iLWindex = 4
If StringLeft($aDrives[$i], 2) = 'a:' Or StringLeft($aDrives[$i], 2) = 'b:' Then $iLWindex = 3
Case Else
$iLWindex = 8
EndSwitch
$hRoot = _GUICtrlTreeView_Add($hTreeview, $hTreeview, StringUpper($aDrives[$i]), $iLWindex, $iLWindex)
If DriveStatus($aDrives[$i]) <> 'READY' Then ContinueLoop
_GUICtrlTreeView_BeginUpdate($hTreeview)
_GUICtrlTreeView_FileExplorerRecursive($hTreeview, $hRoot, $aDrives[$i], 1)
_GUICtrlTreeView_EndUpdate($hTreeview)
Next
ToolTip('')

[/autoit][autoit][/autoit][autoit]

GUIRegisterMsg($WM_NOTIFY, '_WM_NOTIFY')
While True
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE, $hCancel
Exit
Case $hOk
$iSelect = _GUICtrlTreeView_GetSelection($hTreeview)
$sTree = StringReplace(_GUICtrlTreeView_GetTree($hTreeview, $iSelect), '|', '\')
MsgBox(0, 'Selected Path/File', $sTree)
EndSwitch
WEnd

[/autoit][autoit][/autoit][autoit]

Func _WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
#forceref $hWnd, $iMsg, $iwParam
Local $hWndFrom, $iCode, $tNMHDR
$tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
$hWndFrom = HWnd(DllStructGetData($tNMHDR, 'hWndFrom'))
$iCode = DllStructGetData($tNMHDR, 'Code')
If $hWndFrom = $hWndTreeview And $iCode = $NM_CLICK Then
ToolTip('Please wait...', Default, Default, 'Read Directory', 1)
_GUICtrlTreeView_FileExplorer($hGui, $hTreeview)
ToolTip('')
EndIf
Return $GUI_RUNDEFMSG
EndFunc ;==>_WM_NOTIFY

[/autoit][autoit][/autoit][autoit]

Func _GUICtrlTreeView_FileExplorer($hGui, $hTreeview)
Local $aTVPos, $aPos, $hItem, $hChild, $sTree
$aTVPos = ControlGetPos($hGui, '', $hTreeview)
$aPos = GUIGetCursorInfo($hGui)
$hItem = _GUICtrlTreeView_HitTestItem($hTreeview, $aPos[0], $aPos[1] - $aTVPos[1])
If _GUICtrlTreeView_GetExpanded($hTreeview, $hItem) Then Return
$hChild = _GUICtrlTreeView_GetFirstChild($hTreeview, $hItem)
If $hChild <> 0 Then
_GUICtrlTreeView_BeginUpdate($hTreeview)
$sTree = StringReplace(_GUICtrlTreeView_GetTree($hTreeview, $hChild), '|', '\')
_GUICtrlTreeView_DeleteChildren($hTreeview, $hChild)
_GUICtrlTreeView_FileExplorerRecursive($hTreeview, $hChild, $sTree, 1)
Do
$hChild = _GUICtrlTreeView_GetNextChild($hTreeview, $hChild)
If $hChild <> 0 Then
$sTree = StringReplace(_GUICtrlTreeView_GetTree($hTreeview, $hChild), '|', '\')
_GUICtrlTreeView_DeleteChildren($hTreeview, $hChild)
_GUICtrlTreeView_FileExplorerRecursive($hTreeview, $hChild, $sTree, 1)
EndIf
Until $hChild = 0
_GUICtrlTreeView_EndUpdate($hTreeview)
EndIf
EndFunc ;==>_GUICtrlTreeView_FileExplorer

[/autoit][autoit][/autoit][autoit]

Func _GUICtrlTreeView_FileExplorerRecursive($hTreeview, $hItem, $sPath, $iRec)
Local $aDirList, $aFileList, $tmp
If StringRight($sPath, 1) <> '\' Then $sPath &= '\'
$iRec -= 1
$aDirList = _MyFileListToArray($sPath, 2)
If IsArray($aDirList) Then
For $sDir In $aDirList
$tmp = _GUICtrlTreeView_AddChild($hTreeview, $hItem, $sDir, 0, 1)
If $iRec > 0 Then _GUICtrlTreeView_FileExplorerRecursive($hTreeview, $tmp, $sPath & $sDir, $iRec)
Next
EndIf
$aFileList = _MyFileListToArray($sPath, 1)
If IsArray($aFileList) Then
For $sFile In $aFileList
$tmp = _GUICtrlTreeView_AddChild($hTreeview, $hItem, $sFile, 2, 2)
Next
EndIf
EndFunc ;==>_GUICtrlTreeView_FileExplorerRecursive

[/autoit][autoit][/autoit][autoit]

Func _MyFileListToArray($sPath, $iFlag)
Local $sFileList = '', $hSearch, $sFile
$hSearch = FileFindFirstFile($sPath & '*')
If @error Then Return
While True
$sFile = FileFindNextFile($hSearch)
If @error Then ExitLoop
If ($iFlag + @extended = 2) Or _IsReparsePoint($sPath & $sFile) Then ContinueLoop
$sFileList &= $sFile & '|'
WEnd
FileClose($hSearch)
If $sFileList = '' Then Return
Return StringSplit(StringTrimRight($sFileList, 1), '|', 2)
EndFunc ;==>__FileListToArray

[/autoit][autoit][/autoit][autoit]

Func _IsReparsePoint($FLS) ; progandy
Dim Static $K32 = DllOpen('kernel32.dll')
Dim $DA = DllCall($K32, 'dword', 'GetFileAttributesW', 'wstr', $FLS)
If @error Then Return SetError(1, @error, False)
Return BitAND($DA[0], 1024) = 1024
EndFunc

[/autoit]

Und der Fehler:
Wenn man manchmal einen Ordner Öffnet, werden die Unterordner ohne + angezeigt, obwohl welches Vorhanden sein MUSS!! (siehe anhang)
Dieser Fehler tritt nicht immer auf: habe das gefühl, dass er auftritt, wenn ich etwas schneller klicke (bin mir aber nicht sicher)

Jedenfalls hab ich schon so einieges Probiert...
Die funktion _WM_NOTIFY wird auf jeden fall immer aufgerufen, auch die Funktion:
_GUICtrlTreeView_FileExplorer($hGui, $hTreeview)

Fehler muss also danach irgendwo sein!!! ABER WO?? sitze seit einer Woche dran und weiß einfach nicht mehr weiter...

Habs an verschiedenen Rechnern probiert um auch diese möglichkeit auszuschließen doch TROTZDEM:
Probierte rechner:

2 * XP rechner
2 * Windows 7 rechner
1 * Vista Rechner

... und einfach immeer wieder der fehler....

Könnt ihr mir helfen??
Wäre unendlich dankbar!

**chip**

Script funktioniert bei mir ohne Probleme, auch bei schnellem klicken.

Probiert auf:

Win XP
Win 7
Win 7 x64
Server 2008 RC2

**autoBert**

Hallo Mr_gitarre,

da Oscar keinen Zufallsgenerator eingebaut hat, sollte es eigentlich unmöglich sein auf einem Rechner zu 2 Verschiedenen Ergebnissen zu kommen. Besorge dir die Ausgabe 24 von CT mit CD (€ 3,70) da sind Hardware-Diagnose Programme dabei. Ich tippe nämlich auf einen Hardware- bzw. Treiberfehler auf deinem System, da ausser dir ja noch niemand mit diesem Tool-Probleme hatte,

mfg autoBert

Mr_gitarre

ok...

ich habe es bereits an 5 verschiedenen Rechnern Probiert...!! GRUNDAUF VERSCHIEDEN!!!! LAPTOP - PC , mit verschiedenen Windows versionen -> überall kahm der Fehler!

Was ist, wenn es NICHT die Hardware ist...!!!!

Was ist, wenn ihr es einfach nicht lange genug ausprobiert (1 minute lang immer wieder wahlweise übergeordnete, dann tiefer gehende Ordner öffnen)

Soll ich euch nen Video drehen, wie ich die Ordner anklicke, dass sowas passiert...??

**chip**

Nun dann sitzt das Problem wohl leider vor dem PC. Das zu beheben dürfte aber schwer werden.

Mr_gitarre

hier das Video wie ich es schaffe:

ist zwar nen bisschen undeutlich aber man kann trotzdem das wichtigste erkennen!!!

LINK

**autoBert**

Zitat von Mr_gitarre

hier das Video wie ich es schaffe:

dass du es schaffst wird ja von niemanden bezweifelt, aber wenn du die HW ausschliesst kann es nur noch ein Layer-8 Problem sein,

mfg autoBert

stayawayknight

Aktualisier mal deine Treiber!
Ansonsten kann ich mir nur vorstellen, das ein Timeout vorliegt, kann mir aber leider nicht erklären woher das kommen soll
Leider erkenne ich von den Plus-Minus auf dem Video nur sehr wenig!

Mr_gitarre

traiber alle zu 100 % aktualisiert!
stayawayknight, wenn du willst nehm ich dir nen höherauflösendes Video auf, aber man erkennt eig alles jetzt schon...

---> Wenn ihr sicher seid, dess es kein Problem vom Code ist, und es doch auf JEDEM Rechner zu so einem Fehler kommt, MUSS AutoIt SELBST einen fehler beinhalten....!!!

...oder nicht...?

**autoBert**

Zitat von Mr_gitarre

Wenn ihr sicher seid, dess es kein Problem vom Code ist, und es doch auf JEDEM Rechner zu so einem Fehler kommt, MUSS AutoIt SELBST einen fehler beinhalten....!!!

eben nicht au jedem, bisher nur an deinen bzw. dir zugänglichen. Vielleicht hast du ja auf allen ein Tool (z.B. Festplatte umsortieren/defrgametieren) installiert dass ab und zu diesen Fehler erzeugt.

Edit:

'tausche diese func aus

[autoit]

Func _GUICtrlTreeView_FileExplorerRecursive($hTreeview, $hItem, $sPath, $iRec)
Local $aDirList, $aFileList, $tmp
If StringRight($sPath, 1) <> '\' Then $sPath &= '\'
$iRec -= 1
$aDirList = _MyFileListToArray($sPath, 2)
If IsArray($aDirList) Then
For $i = 0 to UBound($aDirList) -1 ;hier war for in
$tmp = _GUICtrlTreeView_AddChild($hTreeview, $hItem, $aDirList[$i], 0, 1)
If $iRec > 0 Then _GUICtrlTreeView_FileExplorerRecursive($hTreeview, $tmp, $sPath & $aDirList[$i], $iRec)
Next
EndIf
$aFileList = _MyFileListToArray($sPath, 1)
If IsArray($aFileList) Then
For $i = 0 to UBound($aFileList) -1 ;hier war auch for in
$tmp = _GUICtrlTreeView_AddChild($hTreeview, $hItem, $aFileList[$i], 2, 2)
Next
EndIf
EndFunc ;==>_GUICtrlTreeView_FileExplorerRecursive

[/autoit]

sorry hatte die ganze Zeit nur die von mir kompilierte EXE getestet und nicht daran gedacht dass ich obige func bei mir abgeändert habe, desweiteren habe ich damals im Source bei mir einen Vermerk hinterlassen, dass das Programm nur mit der Maus bedient werden soll.

mfg autoBert

Mr_gitarre

Funktioniert leider auch nicht mit der Funktion, die du abgeändert hast!!!

Aber is schonmal gut, dass du diesen fehler auch erkennst!

hast du noch ne lösung...?? denn diese Funktioniert leider NICHT!

**chip**

Also ich habe nun 10 Minuten rumgeklickt und den Fehler nie gehabt.

Mr_gitarre

Großvater hatte die Lösung des Problems!!!!!

DANK AN GROßVATER!!!!!!!!!!

Der Vollständigkeit halber:

[autoit]

#include <GUIConstantsEx.au3>
#include <GuiImageList.au3>
#include <GuiTreeView.au3>
#include <StructureConstants.au3>
#include <TreeViewConstants.au3>
#include <WindowsConstants.au3>

[/autoit][autoit][/autoit][autoit]

$hGui = GUICreate('FileExplorer', 400, 400)
$hTreeview = GUICtrlCreateTreeView(10, 10, 380, 360)
$hWndTreeview = GUICtrlGetHandle($hTreeview)
$hOk = GUICtrlCreateButton('Ok', 240, 375, 60, 22)
$hCancel = GUICtrlCreateButton('Cancel', 320, 375, 60, 22)

[/autoit][autoit][/autoit][autoit]

$hImage = _GUIImageList_Create(16, 16, 5, 1)
_GUIImageList_AddIcon($hImage, 'shell32.dll', 3) ; Verzeichnis-Icon
_GUIImageList_AddIcon($hImage, 'shell32.dll', 110) ; Verzeichnis-Icon mit Haken
_GUIImageList_AddIcon($hImage, 'shell32.dll', 1) ; Datei-Icon
_GUIImageList_AddIcon($hImage, 'shell32.dll', 5) ; Diskette
_GUIImageList_AddIcon($hImage, 'shell32.dll', 7) ; Wechseldatenträger
_GUIImageList_AddIcon($hImage, 'shell32.dll', ; Festplatte
_GUIImageList_AddIcon($hImage, 'shell32.dll', 11) ; CDROM
_GUIImageList_AddIcon($hImage, 'shell32.dll', 12) ; Netzwerklaufwerk
_GUIImageList_AddIcon($hImage, 'shell32.dll', 53) ; Unbekannt
_GUICtrlTreeView_SetNormalImageList($hTreeview, $hImage)

[/autoit][autoit][/autoit][autoit]

GUISetState()
GUICtrlSetStyle($hTreeview, Default, $WS_EX_COMPOSITED + $WS_EX_CLIENTEDGE)

[/autoit][autoit][/autoit][autoit]

$aDrives = DriveGetDrive('ALL')
ToolTip('Please wait...', Default, Default, 'Read Directory', 1)
For $i = 1 To $aDrives[0]
$iLWindex = 0
Switch DriveGetType($aDrives[$i])
Case 'Fixed'
$iLWindex = 5
Case 'CDROM'
$iLWindex = 6
Case 'RAMDisk'
$iLWindex = 7
Case 'Removable'
$iLWindex = 4
If StringLeft($aDrives[$i], 2) = 'a:' Or StringLeft($aDrives[$i], 2) = 'b:' Then $iLWindex = 3
Case Else
$iLWindex = 8
EndSwitch
$hRoot = _GUICtrlTreeView_Add($hTreeview, $hTreeview, StringUpper($aDrives[$i]), $iLWindex, $iLWindex)
If DriveStatus($aDrives[$i]) <> 'READY' Then ContinueLoop
_GUICtrlTreeView_BeginUpdate($hTreeview)
_GUICtrlTreeView_FileExplorerRecursive($hTreeview, $hRoot, $aDrives[$i], 1)
_GUICtrlTreeView_EndUpdate($hTreeview)
Next
ToolTip('')

[/autoit][autoit][/autoit][autoit]

GUIRegisterMsg($WM_NOTIFY, '_WM_NOTIFY')
While True
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE, $hCancel
Exit
Case $hOk
$iSelect = _GUICtrlTreeView_GetSelection($hTreeview)
$sTree = StringReplace(_GUICtrlTreeView_GetTree($hTreeview, $iSelect), '|', '\')
MsgBox(0, 'Selected Path/File', $sTree)
EndSwitch
WEnd

[/autoit][autoit][/autoit][autoit]

Func _WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
#forceref $hWnd, $iMsg, $iwParam
Local $tNMTREEVIEW, $hITEM
$tNMTREEVIEW = DllStructCreate($tagNMTREEVIEW, $ilParam)
If DllStructGetData($tNMTREEVIEW, 'hWndFrom') = $hWndTreeview Then
Switch DllStructGetData($tNMTREEVIEW, 'Code')
Case $TVN_ITEMEXPANDINGA, $TVN_ITEMEXPANDINGW
If DllStructGetData($tNMTREEVIEW, "Action") = $TVE_EXPAND Then
$hITEM = DllStructGetData($tNMTREEVIEW, "NewhItem")
ToolTip('Please wait...', Default, Default, 'Read Directory', 1)
_GUICtrlTreeView_FileExplorer($hGui, $hTreeview, $hItem)
ToolTip('')
EndIf
EndSwitch
EndIf
Return $GUI_RUNDEFMSG
EndFunc ;==>_WM_NOTIFY

[/autoit][autoit][/autoit][autoit]

Func _GUICtrlTreeView_FileExplorer($hGui, $hTreeview, $hItem)
Local $aTVPos, $aPos, $hChild, $sTree ; , $hItem
;~ $aTVPos = ControlGetPos($hGui, '', $hTreeview)
;~ $aPos = GUIGetCursorInfo($hGui)
;~ $hItem = _GUICtrlTreeView_HitTestItem($hTreeview, $aPos[0], $aPos[1] - $aTVPos[1])
If _GUICtrlTreeView_GetExpanded($hTreeview, $hItem) Then Return
$hChild = _GUICtrlTreeView_GetFirstChild($hTreeview, $hItem)
If $hChild <> 0 Then
_GUICtrlTreeView_BeginUpdate($hTreeview)
$sTree = StringReplace(_GUICtrlTreeView_GetTree($hTreeview, $hChild), '|', '\')
_GUICtrlTreeView_DeleteChildren($hTreeview, $hChild)
_GUICtrlTreeView_FileExplorerRecursive($hTreeview, $hChild, $sTree, 1)
Do
$hChild = _GUICtrlTreeView_GetNextChild($hTreeview, $hChild)
If $hChild <> 0 Then
$sTree = StringReplace(_GUICtrlTreeView_GetTree($hTreeview, $hChild), '|', '\')
_GUICtrlTreeView_DeleteChildren($hTreeview, $hChild)
_GUICtrlTreeView_FileExplorerRecursive($hTreeview, $hChild, $sTree, 1)
EndIf
Until $hChild = 0
_GUICtrlTreeView_EndUpdate($hTreeview)
EndIf
EndFunc ;==>_GUICtrlTreeView_FileExplorer

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

Func _GUICtrlTreeView_FileExplorerRecursive($hTreeview, $hItem, $sPath, $iRec)
Local $aDirList, $aFileList, $tmp
If StringRight($sPath, 1) <> '\' Then $sPath &= '\'
$iRec -= 1
$aDirList = _MyFileListToArray($sPath, 2)
If IsArray($aDirList) Then
For $i = 0 to UBound($aDirList) -1 ;hier war for in
$tmp = _GUICtrlTreeView_AddChild($hTreeview, $hItem, $aDirList[$i], 0, 1)
If $iRec > 0 Then _GUICtrlTreeView_FileExplorerRecursive($hTreeview, $tmp, $sPath & $aDirList[$i], $iRec)
Next
EndIf
$aFileList = _MyFileListToArray($sPath, 1)
If IsArray($aFileList) Then
For $i = 0 to UBound($aFileList) -1 ;hier war auch for in
$tmp = _GUICtrlTreeView_AddChild($hTreeview, $hItem, $aFileList[$i], 2, 2)
Next
EndIf
EndFunc ;==>_GUICtrlTreeView_FileExplorerRecursive

[/autoit][autoit][/autoit][autoit]

Func _MyFileListToArray($sPath, $iFlag)
Local $sFileList = '', $hSearch, $sFile
$hSearch = FileFindFirstFile($sPath & '*')
If @error Then Return
While True
$sFile = FileFindNextFile($hSearch)
If @error Then ExitLoop
If ($iFlag + @extended = 2) Or _IsReparsePoint($sPath & $sFile) Then ContinueLoop
$sFileList &= $sFile & '|'
WEnd
FileClose($hSearch)
If $sFileList = '' Then Return
Return StringSplit(StringTrimRight($sFileList, 1), '|', 2)
EndFunc ;==>__FileListToArray

[/autoit][autoit][/autoit][autoit]

Func _IsReparsePoint($FLS) ; progandy
Dim Static $K32 = DllOpen('kernel32.dll')
Dim $DA = DllCall($K32, 'dword', 'GetFileAttributesW', 'wstr', $FLS)
If @error Then Return SetError(1, @error, False)
Return BitAND($DA[0], 1024) = 1024
EndFunc

[/autoit]

**chip**

Super Lösung. Nun werden garkeine + mehr angezeigt.

Mr_gitarre

echt jetzt??
Habs aufm Windows xp rechner ausprobiert... Sehe, dass du windows 7 hast...

Ich werde es mal zuhause auf Windows 7 Probieren!!!!

**chip**

Grade mal durchgetestet, geht so nur unter Win XP.

Großvater

Hallo chip,

Win7 kann ixh nicht testen, unter Vista läuft es aber zumindest auf meinem Rechner. Kannst Du mal checken, ob und welche Notificationcodes unter WIn7 in _WM_NOTIFY() ankommen?

**autoBert**

Hallo Mr. Gitarre,

der Fehler tritt bei mir nur auf wenn ich TV_Items mit der Cursortaste Rechts erweitere, dann fehlen bei der 2. Ebene danach die Pluszeichen. Dabei ist es egal ob meine oder Oscars Originalversion der _GUICtrlTreeView_FileExplorerRecursive eingesetzt wird.

Da ich diese Fehlermeldung auch an Oscar gegeben habe ist es unnötig hier in H&Ü weiter darüber zu posten, denn wie ich Oscar einschätze arbeitet er schon an einem Update bei dem auch die Bedienung über die Tastatur funktioniert.

MoD: schlage daher vor diesen Thread zu closen, da in Treeview FileExplorer ja ein Thread besteht wohin Posts dazu gehören

mfg autoBert

Mr_gitarre

habe ursprünglich diesen Thread aufgemacht, da der Fehler von niemandem anerkannt wurde....
Das dies nicht mehr der fall ist close ich

Weitergemacht wird HIER