wie kann ich bei win 7 im explorer die schritfarbe der einzelnen dateien ändern
Bzw. Im Dateimanager um meine Dateien nach wichtigkeit a n der schrift farbe zu erkennen
Beispiel …Text…Farbe
Internet rot
Bilder grün
Daten Blau
usw
Hallo Grußloser!
Ganz einfach: Gar nicht.
Der Windows Explorer verwendet Textfarben für eigene Zwecke, bspw. blau für komprimierte Dateien oder grün für geschützte Dateien.
Dabei lässt er sich nicht reinpfuschen.
Gruß,
Martin
Hallo fellmer,
eine Anrede, ein bitte, ein danke und ein Gruß wären nett gewesen. Ein Vorname auch.
Der sprengt die Anonymität nicht …
Im Übrigen stimme ich Martin Müller zu: Das geht nicht.
Frage: Was sind Internet-Dateien? Was sind Datendateien? Sind das nicht alles Daten?
Tipp: Lege Dir verschiedene Ordner an. Um bei Deinem Beispiel zu bleiben:
D:\Internet\
D:\Bilder\
D:\Daten\
und speicher die Daten gezielt dort ab.
Liebe Grüße
Andreas
Hallo Ihr lieben
Erst mal Asche auf mein Haupt.
Habe einfach vergessen mich Vorzustellen .
ALSO hier meine Vorstellung: Ich heiß.Gerd Nickname fellmer
Frener Danke für eure netten antworten
Tja schade, das es nicht geht
währe schön gewesen.
Also besten Dank fü eure mühe
mfg fellmer
Tja schade, das es nicht geht
wäre schön gewesen.
Hallo Gerd,
du kannst mal schauen was es da an Explorern, Commandern an Freeware, Shareware und kostenpflichtig gibt.
Oder „eigenen Explorer“:
https://www.google.de/#q=eigener+explorer
Hast du Excel? Dann schaue mal nachstehend zu dem Vba-code, könnte ich dir höchstwahrscheinlich auch für MS-Word umschreiben.
Im Code haste schon alles drin was ein Explorer braucht, Auswahl der Ordner, der aufzulistenden Dateitypen oder *.*. In der Ergebnisdarstellung Dateinamen je nach Endung farblich unterschiedlich darstellen ist einfach.
Auch die Gesamtdarstellung des Codeergebnisse kann man so manipulieren daß sie weitestgehend dem Orginal entspricht. Plus Features.
Naja, im Rahmen eines Fragen-Antworteforums mache ich letztgenanntes aber nicht.
Aber wenn das in Vba geht, geht das sicher auch mit richtigen Programmiersprachen. Kennst du da eine, zwei? Kennst du jmd. der das könnte?
Gruß
Reinhard
Code im I-net gefunden, stammt von einem Victor anno 2004
Von mir heute getestet mit Excel 2000
Alt+F11, Einfügen—Modul, Code reinkopieren, unten die Mist w-w-w-Signatur entfernen. VB-Editor schließen. In Excel Alt+F8, Makro „Suchen“ ausführen lassen.
Option Explicit
'Dieser Bereich kann entfallen,
'wenn der Variable 'Laufwerk'
'ein fester Wert zugewiesen wird.
Public Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type
Declare Function SHGetPathFromIDList Lib "shell32.dll" \_
Alias "SHGetPathFromIDListA" \_
(ByVal pidl As Long, ByVal pszPath As String) As Long
Declare Function SHBrowseForFolder Lib "shell32.dll" \_
Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long
Private z!
'Ruft das Dialogfeld zur Ordnerauswahl auf
Function GetDirectory(Msg) As String
Dim bInfo As BROWSEINFO
Dim path As String
Dim r As Long, x As Long, pos As Integer
With bInfo
.pidlRoot = 0&
.lpszTitle = Msg
.ulFlags = &H1
End With
x = SHBrowseForFolder(bInfo)
path = Space$(512)
r = SHGetPathFromIDList(ByVal x, ByVal path)
If r Then
pos = InStr(path, Chr$(0))
GetDirectory = Left(path, pos - 1)
Else
GetDirectory = ""
End If
End Function
Sub Dateisuche(Laufwerk, Dateien)
Dim tmp, Wdhlg, Dateiname As String
On Error Resume Next
If Right(Laufwerk, 1) "\" Then Laufwerk = Laufwerk + "\"
tmp = Dir(Laufwerk & Dateien)
Do While Len(tmp)
Dateiname = Laufwerk & tmp
Application.StatusBar = Dateiname
Cells(z, 1).Select
Cells(z, 1) = Laufwerk & tmp 'Pfad
Cells(z, 2) = FileLen(Laufwerk & tmp) 'Größe
Cells(z, 3) = FileDateTime(Laufwerk & tmp) 'Datum/Zeit
Cells(z, 4) = tmp 'nur Dateiname
z = z + 1
tmp = Dir()
Loop
tmp = Dir(Laufwerk, vbDirectory)
Do While Len(tmp)
If (tmp ".") And (tmp "..") Then
If (GetAttr(Laufwerk & tmp) And vbDirectory) = vbDirectory Then
Dateisuche Laufwerk & tmp, Dateien
z = z - 1
Wdhlg = Dir(Laufwerk, vbDirectory)
z = z + 1
Do While Wdhlg tmp
Wdhlg = Dir()
Loop
End If
End If
tmp = Dir()
Loop
On Error GoTo 0
Application.StatusBar = False
End Sub
'Aufruf mit dem folgenden Makro
Sub Suchen()
Dim Laufwerk$, Dateien$
'Ersze Zeile, in der eine Eintragung erfolgt
z = 2
'Alte Eintragungen löschen
[a1:e5000] = ""
'Den Variablen Laufwerk und Dateien kann
'auch ein direkter Wert zugewiesen werden.
'Ersatz: ... = "C:\Eigene Dateien"
Laufwerk = GetDirectory("Bitte einen Ordner wählen")
If Laufwerk = "" Then Exit Sub
'Ersatz: Dateien = "\*.\*"
Dateien = InputBox("Nach welchen Dateien soll in" & \_
Chr(10) & " " & Laufwerk & Chr(10) & \_
"gesucht werden (z. B. \*.xls)?", \_
"Dateityp", "\*.\*")
If Dateien = "" Then Exit Sub
Dateisuche Laufwerk, Dateien
End Sub