Ordnersymbol inkl. Unterordner kopieren

[Daniel Albert]

Hallo,

ich habe mir für meine Kundendaten auf dem PC einen Blanko Ordner erstellt in welchen einige Unterordner sind wo ich die Ordnersymbole verändert habe. WEnn ich den kompletten Blanko Ordner kopiere habe ich auch die Ordnersymbole mit kopiert.

Wenn ich aber einen alten Kundenordner nehme wo ich damals die Ordnersymbole noch nicht hatte und kopiere dort diese Ordner hinein passiert nichts obwohl ich auch die Desktop.ini kopiere. Gibt es dafür ein Tool oder was mache ich falsch ?

 

[Kasjo]

hmm klingt für mich aber normal so wie sich das liest. Dem alten Ordner musst du schon selber dann das Ordner symbol zuteilen. Kann aber auch sein das ich grad nicht durchsteige :/

Is es aufwendig die Symbole neu zuzuordnen? Weis ja nicht wie viele das sind.

 

[Daniel Albert]

Hallo, ja der Aufwand wäre schon groß. Die Ordner gehen in 2 Ebenen nach unten weiter. Es hat mal irgendwie geklappt das ich einfach die Ordner mit den Symbolen in einen anderen Kopiere wo diese aber ohne Symbole schon vorhanden sind. Er hat die Ordner überschrieben und dann waren auch die Symbole hinterlegt. Das bekomme ich gerade nicht zum laufen wobei ich glaube das irgendwo eine Daten nicht mitkopiert wird. Vielleicht übersehe ich da was !

 

[Kasjo]

Er hat quasi die Daten zusammengeführt. Evtl. spielt aber hier die zeit eine rolle. Also ich meine alte in neue oder neue in alte. Ich weiß leider auf Anhieb auch nicht genau wie ich dir da helfen kann.

 

[cumulonimbus8]

Mit ein wenig nachhelfen im Dateisystem. Ist von MS bekloppt gemacht, keine Frage.

ReadOnlyOrdnerstruktur.vbs

Spoiler

DIM WSHShell, WScriptShell, FSO, Argumente, DUMMY, QT, Meldung
SET WSHShell = WScript.CreateObject("WScript.Shell")
SET WScriptShell = WScript.CreateObject("WScript.Shell") 
SET FSO = CreateObject("Scripting.FileSystemObject")

Argumente = Wscript.Arguments.Count
IF Argumente = 0 THEN WScript.Quit

QT = CHR(34)
Meldung = ""
CALL OrdnerAbsuchen (UCASE(Wscript.Arguments(0)))
WSHShell.PopUp Meldung, 5, "Bearbeitet wurden:", 64 + 0
WScript.Quit

SUB OrdnerAbsuchen(LW)
DIM Ordner
DIM OrdnerName

REM Weswegen hatte ich das nur vorgeschaltet???
REM IF FSO.GetFolder(LW & "\").SubFolders.Count > 0 THEN

  Rem Wir hatten die Root selbst vernachlässigt
  IF FSO.FileExists(LW & "\desktop.ini") THEN
   Meldung = Meldung  & vbCr & LW & "\"
   WSHShell.Run "Attrib -h +r " & QT & LW & QT, 7, FALSE
  END IF
  FOR EACH Ordner IN FSO.GetFolder(LW & "\").SubFolders
   OrdnerName = LW & "\" & Ordner.Name
   IF InStr(UCase(OrdnerName), "RECYCLER") > 0 OR _
    InStr(UCase(OrdnerName), "VOLUMEINFORMATION") > 0 OR _
     InStr(UCase(OrdnerName), "\TEMP\") > 0 THEN
    Rem C:\WINDOWS\System32\WScript.exe c:\bin\ReadOnlyOrdenrstruktur.vbs "c:\a"
   ELSE
    IF FSO.FileExists(LW & "\" & Ordner.Name & "\desktop.ini") THEN
     Meldung = Meldung  & vbCr & LW & "\" & Ordner.Name
     WSHShell.Run "Attrib -h +r " & QT & LW & "\" & Ordner.Name & QT, 7, FALSE
    END IF
   END IF
   CALL OrdnerAbsuchen(LW & "\" & Ordner.Name)
  NEXT

REM END IF

END SUB

ReadOnlyFürStruktur.reg

Spoiler

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\Directory\shell\ReadOnlyStruktur]
@="ReadOnly Attribut Struktur"

[HKEY_CLASSES_ROOT\Directory\shell\ReadOnlyStruktur\command]
@="cmd.exe /c start \"ROS\" c:\\bin\\ReadOnlyOrdnerstruktur.vbs \"%1\""

[HKEY_CLASSES_ROOT\Drive\shell\ReadOnlyStruktur]
@="ReadOnly Attribut Struktur"

[HKEY_CLASSES_ROOT\Drive\shell\ReadOnlyStruktur\command]
@="cmd.exe /c start \"ROS\" c:\\bin\\ReadOnlyOrdnerstruktur.vbs \"%1\""

Die VBS steht bei mir in C:\BIN, wenn anderswo muss das in der REG angepasst werden.

Ich erlebe diese Art Aussetzer so soft, dass ich mir mir so was behelfen musste. Laut Eigenschaften sind Ordner versteckt - und doch fehlt ihnen das Hidden-Attribut aus der Abteilung DOS, das unauffällig gesetzt wird wenn ich das Icon ändere.
PS: die Verweise auf Icon-Quellen in den Desktop.Inis müssen natürlich passen; ist die Quelle nicht da wo man denkt nützt das natürlich nichts.

CN8

 

[Daniel Albert]

Hallo Cn8,

ok du hast ein VBS erstellt, cool. Was genau mache ich damit ? Was macht dieser Code ?