.ico in Ordner als Ordnerbild auswählen

sc4ry

Hiho,

ich habe vielen ordner, in denen jeweils .ico datein sind. diese hätte ich gerne als ordnerbild.
manuell geht das umständlich über:

rechte maus auf den ordner, eigenschafte, anpassen, anderes symbol, auswählen, ok, ok

das ganze ist jedoch manuell recht umständlich, als script sicherlich auch. gibt es in windows irgendwie eine funktion, die man per autoit nutzen könnte, um ein programm zu entwickeln, dass dies automatisch macht?

**Xenobiologist**

Hi,

willst du deinen Auswahldialog mit quasi Vorschau, oder willst du dies in Windows umstellen?

Mega

sc4ry

am liebsten wäre es mir, wenn alles automatisch ablaufen würde.
falls mehrere .ico enthalten sind, einfach das erste nehmen (oder das letzte, oder random, ist wurscht).

hast du eine idee/funktion?

RR04

Hi,

diese Sachen werden doch über ini-Dateien gesteuert. Kannst Du nicht eine in diesen Ordner schreiben lassen?
Hier einmal die Ini aus Eigene Bilder.

Spoiler anzeigen

[autoit]

[DeleteOnCopy]
Owner=XP-Home
Personalized=39
PersonalizedName=Eigene Bilder
[.ShellClassInfo]
InfoTip=@Shell32.dll,-12688
IconFile=%SystemRoot%\system32\mydocs.dll
IconIndex=-101

[/autoit]

Weiterhin viel Erfolg !

progandy

Hier gabs schon mal die Frage so ähnlich: [ offen ] Ordnericon ändern

sc4ry

also bei mir klappt werder das eine, noch das andere.

das programm erstellt eine ini, da steht aber net mal das icon drin, was ich frei gewählt habe.
trage ich alles entsprechend per hand in die ini, ändert sich auch nix =(

progandy

Also, lösch doch erst mal die Desktop.ini in dem Verzeichnis Erst wenn keine Desktop.ini in dem Verzeichnis vorhanden ist, macht er einen Systemordner daraus, dessen Icon man ändern kann
2) Die Date im Download hat einen Fehler. Ersetzt die FolderIcon.au3 mit dem Code aus dem Post

sc4ry

hmm, ok, nun sehe ich unterschiede im quelltext, aber ein icon bekommt der ordner trotzdem nicht.

was mir schon auffällt ist, dass er den pfad in der ini ohne sämtliche backslahes schreibt und zahlen ignoriert.
aber selbst wenn ich das anpasse, bekommt der ordner das "unbekannt" icon.

McPoldy

Moin,

hab mir mal was zusammengebaut, fand es eigentlich ganz lustig so was zu haben. Man muss zwar den Ordner auswählen, aber das ist glaub ich ok, es wird das erste Icon (*.ico) genommen welches im Ordner ist.

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.2.10.0
Author: J. Kröger (McPoldy)

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

Script Function:
Bei diesem Sktipt wird ein Ordner gewählt, und das Icon der Ordners auf das
erste Icon gesetzt welches im Ordner ist (ICO Datei)
Ist bereits eine Desktop.ini Datei vorhanden wird diese geändert, ist noch
keine vorhanden wird eine erstellt.
#ce ----------------------------------------------------------------------------

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

Local $path
Local $search
Local $selFolder
Local $IcoPfad = ""
Local $sections
Local $var, $str

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

$selFolder = FileSelectFolder("Bitte den Ordner wählen, es wird das erste Icon (*.ico) im Ordner genutzt:","",2,@MyDocumentsDir)
_CheckForIcon($selFolder)
_CheckForDesktopINI($selFolder)

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

Func _CheckForIcon($path)
$path &= "\"
$search = FileFindFirstFile($path & "*.ico")
If $search <> -1 Then
$IcoPfad = FileFindNextFile($search)
$IcoPfad = $path & $IcoPfad
Return
EndIf
Exit 0
EndFunc

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

Func _CheckForDesktopINI($path)
$path &= "\desktop.ini"
If FileExists($path) Then
$sections = IniReadSectionNames($path)
If Not @error Then
For $var = 1 To $sections[0]
$str = IniRead($path,$sections[$var],"IconFile","null")
If $str <> "null" Then
IniWrite($path,$sections[$var],"IconFile",$IcoPfad)
IniWrite($path,$sections[$var],"IconIndex","0")
Return
EndIf
Next
EndIf
$str = IniRead($path,"","IconFile","null")
If $str <> "null" Then
IniDelete($path,"","IconFile")
IniDelete($path,"","IconIndex")
IniWrite($path,".ShellClassInfo","IconFile",$IcoPfad)
IniWrite($path,".ShellClassInfo","IconIndex","0")
Return
EndIf
Else
IniWrite($path,".ShellClassInfo","IconFile",$IcoPfad)
IniWrite($path,".ShellClassInfo","IconIndex","0")
Return
EndIf
Exit 0
EndFunc

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

progandy

Das braucht man aber immer noch, damit XP die Icons anzeigt:

[autoit]

DllCall("shlwapi.dll","int","PathMakeSystemFolder","str",$path)

[/autoit]

//Edit: Ich muss sagen, die Lösung mit IniRead/Write ist besser

McPoldy

@progandy: Danke hatte ich vergessen

Änderungen:
1.01 - DllCall("shlwapi.dll","int","PathMakeSystemFolder","str",$path)
Das wird benötigt das die Einstellung auch gleich übernommen wird
- Parameter
-i oder -I: Es wird ein Kontextmenü erzeugt damit man im Explorer
das Icon mit einem Rechtsklick auf den Ordner ersetzen
kann.
-r oder -R: Entfernt den Kontext - Eintrag wieder entfernen

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.2.10.0
Author: J. Kröger (McPoldy)
Version: 1.01

Script Function:
Bei diesem Sktipt wird ein Ordner gewählt, und das Icon der Ordners auf das
erste Icon gesetzt welches im Ordner ist (ICO Datei)
Ist bereits eine Desktop.ini Datei vorhanden wird diese geändert, ist noch
keine vorhanden wird eine erstellt.

Änderungen:
1.01 - DllCall("shlwapi.dll","int","PathMakeSystemFolder","str",$path)
Das wird benötigt das die Einstellung auch gleich übernommen wird
- Parameter
-i oder -I: Es wird ein Kontextmenü erzeugt damit man im Explorer
das Icon mit einem Rechtsklick auf den Ordner ersetzen
kann.
-r oder -R: Entfernt den Kontext - Eintrag wieder entfernen
#ce ----------------------------------------------------------------------------

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

Local $path
Local $search
Local $selFolder
Local $IcoPfad = ""
Local $sections
Local $var, $str

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

If $CmdLine[0] = 0 Then
$selFolder = FileSelectFolder("Bitte den Ordner wählen, es wird das erste Icon (*.ico) im Ordner genutzt:","",2,@MyDocumentsDir)
Else
Switch $CmdLine[1]
Case "-i"
_InstReg()
Case "-I"
_InstReg()
Case "-r"
_RemoveReg()
Case "-R"
_RemoveReg()
Case Else
$selFolder = $CmdLine[1]
EndSwitch
EndIf

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

_CheckForIcon($selFolder)
_CheckForDesktopINI($selFolder)

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

Func _CheckForIcon($path)
$path &= "\"
$search = FileFindFirstFile($path & "*.ico")
If $search <> -1 Then
$IcoPfad = FileFindNextFile($search)
$IcoPfad = $path & $IcoPfad
Return
EndIf
Exit 0
EndFunc

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

Func _CheckForDesktopINI($path)
DllCall("shlwapi.dll","int","PathMakeSystemFolder","str",$path)
$path &= "\desktop.ini"
If FileExists($path) Then
$sections = IniReadSectionNames($path)
If Not @error Then
For $var = 1 To $sections[0]
$str = IniRead($path,$sections[$var],"IconFile","null")
If $str <> "null" Then
IniWrite($path,$sections[$var],"IconFile",$IcoPfad)
IniWrite($path,$sections[$var],"IconIndex","0")
Return
EndIf
Next
EndIf
$str = IniRead($path,"","IconFile","null")
If $str <> "null" Then
IniDelete($path,"","IconFile")
IniDelete($path,"","IconIndex")
IniWrite($path,".ShellClassInfo","IconFile",$IcoPfad)
IniWrite($path,".ShellClassInfo","IconIndex","0")
Return
EndIf
Else
IniWrite($path,".ShellClassInfo","IconFile",$IcoPfad)
IniWrite($path,".ShellClassInfo","IconIndex","0")
Return
EndIf
Exit 0
EndFunc

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

Func _InstReg()
RegWrite("HKCR\directory\shell\desktop.ini","","REG_SZ", 'Ändere Ordner Icon')
RegWrite("HKCR\directory\shell\desktop.ini\Command","","REG_SZ", @ScriptFullPath & ' "%1"')
EndFunc

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

Func _RemoveReg()
RegDelete("HKCR\directory\shell\desktop.ini\Command")
RegDelete("HKCR\directory\shell\desktop.ini")
EndFunc

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

sc4ry

hey, vielen dank.
das klappt nun bei mir.

wenn ich mir das so angucke, macht er mir hier icon indey null, bei dem alten programm hat er immer -1 genommen (habe aber auch "nix", -1 und 1 probiert, nur nicht 0 *g*)

big thx, sowas habe ich gesucht =)

sc4ry

vllt mag mir nochmal wer helfen.
also so wie es oben ist, ist der ablauf schon perfekt, außer dass ich gerne den order/laufwerk auswählen würde, wo dann jeder unterordner dieses laufwerkes/ordners nach einem icon durchsucht und gesetzt wird.

als beispiel wähle ich nun lw z: aus.
dann soll jeder unterordner von z: (z:\bla; z:\blubb, etc) nach einem *.ico durchsucht werden und falls vorhanden, dieses als ordnerbild verwendet werden.

ich habe jetzt erstmal das vorhandene script um eine alte mir bekannte funktion erweitert, die die subfolders ausfindig macht.
leider stimmt hier noch was nicht (dass die icons gesetzt werden, die subfolders findet er schon)

PS: ok, so scheint es zu klappen =)

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.2.10.0
Author: J. Kröger (McPoldy)
Version: 1.01

Script Function:
Bei diesem Sktipt wird ein Ordner gewählt, und das Icon der Ordners auf das
erste Icon gesetzt welches im Ordner ist (ICO Datei)
Ist bereits eine Desktop.ini Datei vorhanden wird diese geändert, ist noch
keine vorhanden wird eine erstellt.

Änderungen:
1.01 - DllCall("shlwapi.dll","int","PathMakeSystemFolder","str",$path)
Das wird benötigt das die Einstellung auch gleich übernommen wird
- Parameter
-i oder -I: Es wird ein Kontextmenü erzeugt damit man im Explorer
das Icon mit einem Rechtsklick auf den Ordner ersetzen
kann.
-r oder -R: Entfernt den Kontext - Eintrag wieder entfernen
#ce ----------------------------------------------------------------------------

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

#include<array.au3>

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

Local $path
Local $search
Local $selFolder
Local $IcoPfad = ""
Local $sections
Local $var, $str
Local $VarSub

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

If $CmdLine[0] = 0 Then
$selFolder = FileSelectFolder("Bitte den Ordner wählen, es wird das erste Icon (*.ico) im Ordner genutzt:","",2,@MyDocumentsDir)
$FSO = ObjCreate("Scripting.FileSystemObject")
Showsubfolders( $FSO.GetFolder($selFolder) )
_ArrayDisplay($VarSub)
Else
Switch $CmdLine[1]
Case "-i"
_InstReg()
Case "-I"
_InstReg()
Case "-r"
_RemoveReg()
Case "-R"
_RemoveReg()
Case Else
$selFolder = $CmdLine[1]
EndSwitch
EndIf

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

Func ShowSubFolders($Folder)
For $Subfolder in $Folder.SubFolders
$search = FileFindFirstFile($Subfolder.Path & "\*.ico")
If $search <> -1 Then
$file = FileFindNextFile($search)
$IcoPfad = $Subfolder.Path & "\" & $file
_CheckForDesktopINI($Subfolder.Path)
EndIf
Next
EndFunc

Func _CheckForDesktopINI($path)
DllCall("shlwapi.dll","int","PathMakeSystemFolder","str",$path)
$path &= "\desktop.ini"
If FileExists($path) Then
$sections = IniReadSectionNames($path)
If Not @error Then
For $var = 1 To $sections[0]
$str = IniRead($path,$sections[$var],"IconFile","null")
If $str <> "null" Then
IniWrite($path,$sections[$var],"IconFile",$IcoPfad)
IniWrite($path,$sections[$var],"IconIndex","0")
Return
EndIf
Next
EndIf
$str = IniRead($path,"","IconFile","null")
If $str <> "null" Then
IniDelete($path,"","IconFile")
IniDelete($path,"","IconIndex")
IniWrite($path,".ShellClassInfo","IconFile",$IcoPfad)
IniWrite($path,".ShellClassInfo","IconIndex","0")
Return
EndIf
Else
IniWrite($path,".ShellClassInfo","IconFile",$IcoPfad)
IniWrite($path,".ShellClassInfo","IconIndex","0")
Return
EndIf
Exit 0
EndFunc

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

Func _InstReg()
RegWrite("HKCR\directory\shell\desktop.ini","","REG_SZ", 'Ändere Ordner Icon')
RegWrite("HKCR\directory\shell\desktop.ini\Command","","REG_SZ", @ScriptFullPath & ' "%1"')
EndFunc

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

Func _RemoveReg()
RegDelete("HKCR\directory\shell\desktop.ini\Command")
RegDelete("HKCR\directory\shell\desktop.ini")
EndFunc

[/autoit]

McPoldy

Moin um alles über Autoit laufen zu lassen, habe ich das Skript noch etwas geändert und die angepasste Funktion von BugFix eingebaut (_GetFileList).

[autoit]

Änderungen:
1.01 - DllCall("shlwapi.dll","int","PathMakeSystemFolder","str",$path)
Das wird benötigt das die Einstellung auch gleich übernommen wird
- Parameter
-i oder -I: Es wird ein Kontextmenü erzeugt damit man im Explorer
das Icon mit einem Rechtsklick auf den Ordner ersetzen
kann.
-r oder -R: Entfernt den Kontext - Eintrag wieder entfernen
1.02 - Es kann über das Kontextmenü gewählt werden ob Unterordner ebenfalls
mit einem Icon versehen werden. Beim direkten ausführen kommt eine
Abfrage.
- Es wurde die von Bugfix angepasste Funktion _GetFileList eingebaut

[/autoit]

Version 1.02

[autoit]

#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.2.10.0
Author: J. Kröger (McPoldy)
Version: 1.02

Script Function:
Bei diesem Sktipt wird ein Ordner gewählt, und das Icon der Ordners auf das
erste Icon gesetzt welches im Ordner ist (ICO Datei)
Ist bereits eine Desktop.ini Datei vorhanden wird diese geändert, ist noch
keine vorhanden wird eine erstellt.

Änderungen:
1.01 - DllCall("shlwapi.dll","int","PathMakeSystemFolder","str",$path)
Das wird benötigt das die Einstellung auch gleich übernommen wird
- Parameter
-i oder -I: Es wird ein Kontextmenü erzeugt damit man im Explorer
das Icon mit einem Rechtsklick auf den Ordner ersetzen
kann.
-r oder -R: Entfernt den Kontext - Eintrag wieder entfernen
1.02 - Es kann über das Kontextmenü gewählt werden ob Unterordner ebenfalls
mit einem Icon versehen werden. Beim direkten ausführen kommt eine
Abfrage.
- Es wurde die von Bugfix angepasste Funktion _GetFileList eingebaut
#ce ----------------------------------------------------------------------------
#include <File.au3>
#include <array.au3>

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

Local $path
Local $search
Local $selFolder
Local $IcoPfad = ""
Local $sections
Local $var, $str

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

If $CmdLine[0] = 0 Then
$selFolder = FileSelectFolder("Bitte den Ordner wählen, es wird das erste Icon (*.ico) im Ordner genutzt:","",2,@MyDocumentsDir)
If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer
$iMsgBoxAnswer = MsgBox(262436,"Abfrage","Unterordner einbeziehein?")
Select
Case $iMsgBoxAnswer = 6 ;Yes
_WithSubFolders($selFolder)
Case $iMsgBoxAnswer = 7 ;No
_Normal($selFolder)
EndSelect
Else
Switch $CmdLine[1]
Case "-i"
_InstReg()
Case "-I"
_InstReg()
Case "-r"
_RemoveReg()
Case "-R"
_RemoveReg()
Case "-s"
_WithSubFolders($CmdLine[2])
Case Else
_Normal($CmdLine[1])
EndSwitch
Exit
EndIf

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

Func _WithSubFolders($path)
$FolderList = _GetFileList($path,"*.",1)
For $var1 In $FolderList
_Normal($var1)
Next
EndFunc

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

Func _Normal($path)
if _CheckForIcon($path) then _CheckForDesktopINI($path)
EndFunc

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

Func _CheckForIcon($path)
$path &= "\"
$search = FileFindFirstFile($path & "*.ico")
If $search <> -1 Then
$IcoPfad = FileFindNextFile($search)
$IcoPfad = $path & $IcoPfad
Return True
EndIf
return False
EndFunc

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

Func _CheckForDesktopINI($path)
DllCall("shlwapi.dll","int","PathMakeSystemFolder","str",$path)
$path &= "\desktop.ini"
If FileExists($path) Then
$sections = IniReadSectionNames($path)
If Not @error Then
For $var = 1 To $sections[0]
$str = IniRead($path,$sections[$var],"IconFile","null")
If $str <> "null" Then
IniWrite($path,$sections[$var],"IconFile",$IcoPfad)
IniWrite($path,$sections[$var],"IconIndex","0")
Return
EndIf
Next
EndIf
$str = IniRead($path,"","IconFile","null")
If $str <> "null" Then
IniDelete($path,"","IconFile")
IniDelete($path,"","IconIndex")
IniWrite($path,".ShellClassInfo","IconFile",$IcoPfad)
IniWrite($path,".ShellClassInfo","IconIndex","0")
Return
EndIf
Else
IniWrite($path,".ShellClassInfo","IconFile",$IcoPfad)
IniWrite($path,".ShellClassInfo","IconIndex","0")
Return
EndIf
EndFunc

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

Func _InstReg()
RegWrite("HKCR\directory\shell\desktop.ini","","REG_SZ", 'Ändere Ordner Icon')
RegWrite("HKCR\directory\shell\desktop.ini\Command","","REG_SZ", @ScriptFullPath & ' "%1"')
RegWrite("HKCR\directory\shell\desktop2.ini","","REG_SZ", 'Ändere Ordner Icon (inkl. Unterordner)')
RegWrite("HKCR\directory\shell\desktop2.ini\Command","","REG_SZ", @ScriptFullPath & ' -s "%1"')
EndFunc

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

Func _RemoveReg()
RegDelete("HKCR\directory\shell\desktop.ini\Command")
RegDelete("HKCR\directory\shell\desktop.ini")
RegDelete("HKCR\directory\shell\desktop2.ini\Command")
RegDelete("HKCR\directory\shell\desktop2.ini")
EndFunc

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

#region Angepasste Funktion von BugFix
; Function: _GetFileList()
; Author: jos van der Zande
; Einbindung des $DIR_ONLY-Flag von BugFix
Func _GetFileList($T_DIR,$T_MASK,$DIR_ONLY=0)
Dim $N_DIRNAMES[200000] ; max number of directories that can be scanned
Local $N_DIRCOUNT = 0
Local $N_FILE
Local $N_SEARCH
Local $N_TFILE
Local $N_OFILE
Local $T_FILENAMES
Local $T_FILECOUNT
Local $T_DIRCOUNT = 1
; check Filemask \ for empty File-Array by GetDirOnly
If $T_MASK = "n" Then $T_MASK = "*.no"
; remove the end \ If specified
If StringRight($T_DIR,1) = "\" Then $T_DIR = StringTrimRight($T_DIR,1)
$N_DIRNAMES[$T_DIRCOUNT] = $T_DIR
; Exit if base dir doesn't exists
If Not FileExists($T_DIR) Then Return 0
; keep on looping until all directories are scanned
While $T_DIRCOUNT > $N_DIRCOUNT
$N_DIRCOUNT = $N_DIRCOUNT + 1
; find all subdirs in this directory and save them in a array
$N_SEARCH = FileFindFirstFile($N_DIRNAMES[$N_DIRCOUNT] & "\*.*")
While 1
$N_FILE = FileFindNextFile($N_SEARCH)
If @error Then ExitLoop
; skip these references
If $N_FILE = "." Or $N_FILE = ".." Then ContinueLoop
$N_TFILE = $N_DIRNAMES[$N_DIRCOUNT] & "\" & $N_FILE
; if Directory than add to the list of directories to be processed
If StringInStr(FileGetAttrib( $N_TFILE ),"D") > 0 Then
$T_DIRCOUNT = $T_DIRCOUNT + 1
$N_DIRNAMES[$T_DIRCOUNT] = $N_TFILE
EndIf
Wend
FileClose($N_SEARCH) ; find all Files that mtach the MASK
$N_SEARCH = FileFindFirstFile($N_DIRNAMES[$N_DIRCOUNT] & "\" & $T_MASK )
If $N_SEARCH = -1 Then ContinueLoop
While 1
$N_FILE = FileFindNextFile($N_SEARCH)
If @error Then ExitLoop
; skip these references
If $N_FILE = "." Or $N_FILE = ".." Then ContinueLoop
$N_TFILE = $N_DIRNAMES[$N_DIRCOUNT] & "\" & $N_FILE
; if Directory than add to the list of directories to be processed
If StringInStr(FileGetAttrib( $N_TFILE ),"D") = 0 Then
$T_FILENAMES = $T_FILENAMES & $N_TFILE & @CR
$T_FILECOUNT = $T_FILECOUNT + 1
;MsgBox(0,'filecount ' & $T_FILECOUNT ,$N_TFILE)
EndIf
Wend
FileClose($N_SEARCH)
Wend
If $DIR_ONLY = 0 Then
$T_FILENAMES = StringTrimRight($T_FILENAMES,1)
$N_OFILE = StringSplit($T_FILENAMES,@CR)
Return( $N_OFILE )
Else
ReDim $N_DIRNAMES[$N_DIRCOUNT+1]
$N_DIRNAMES[0] = $N_DIRCOUNT
Return $N_DIRNAMES
EndIf
EndFunc ;==>_GetFileList
#endregion

[/autoit]