PDA

Vollständige Version anzeigen : NTFS-komprimierte Dateien ermitteln


magicdeep
14.06.2007, 15:03
Hallo,

kennt jemand eine Möglichkeit, wie man per VB-Script (oder auch was anderes) die Festplatte nach Dateien durchsuchen kann, die komprimiert wurden (NTFS-Komprimierung; blaue Darstellung der Dateien im Explorer)??

Mein erster Ansatz war, dass ich einfach alle Dateien dekomprimiert hatte, aber das hatte zu Folge, dass Dateien, die gerade in Benutzung waren, nicht dekomprimiert wurden. Und diese möchte ich gerne ermitteln, damit ich diese nacharbeiten kann.

Vielen Dank für Eure Ideen!

_anton_
15.06.2007, 10:39
Hallo Tobias,

versuch's damit:

<span style="font-family: Courier New,FixedSys;"><br><span style="color: #009900;">'dieses Script dursucht Laufwerk C: nach komprimierten Dateien</span><br><span style="color: #009900;">'und schreibt eine Übersicht in Datei &quot;c:\komprimiert.txt&quot;</span><br><span style="color: #0000CC;">Dim</span> fso, msg <br><span style="color: #0000CC;">Set</span> fso = CreateObject(&quot;Scripting.FileSystemObject&quot;) &nbsp;<br><span style="color: #0000CC;">Set</span> f = fso.OpenTextFile(&quot;c:\komprimiert.txt&quot;, 2, <span style="color: #0000CC;">True</span>) &nbsp; &nbsp;<span style="color: #009900;">'für andere Laufwerke anpassen</span><br>&nbsp; &nbsp; f.writeline &quot;Komprimierte Dateien auf C:\&quot; <span style="color: #009900;">'für andere Laufwerke anpassen</span><br>&nbsp; &nbsp; f.writeline &quot;&quot;<br>&nbsp; &nbsp; f.Close <br>GetDir (&quot;C:\&quot;) &nbsp;<span style="color: #009900;">'für andere Laufwerke anpassen</span><br>MsgBox msg<br><br><span style="color: #0000CC;">Sub</span> GetDir(dir) &nbsp;<br>&nbsp; <span style="color: #0000CC;">On Error Resume Next</span> &nbsp; &nbsp;<br>&nbsp; <span style="color: #0000CC;">Dim</span> oFolder, oFolders, oFiles, item, Item2, f <br>&nbsp; <span style="color: #0000CC;">Set</span> oFolder = fso.GetFolder(dir) &nbsp;<br>&nbsp; <span style="color: #0000CC;">Set</span> oFolders = oFolder.SubFolders &nbsp;<br>&nbsp; <span style="color: #0000CC;">Set</span> oFiles = oFolder.Files <br>&nbsp; <span style="color: #0000CC;">For Each</span> Item2 <span style="color: #0000CC;">In</span> oFiles &nbsp; <br>&nbsp; &nbsp; <span style="color: #0000CC;">Set</span> d = fso.GetFile(Item2) &nbsp;<br>&nbsp; &nbsp; <span style="color: #0000CC;">If</span> d.Attributes &gt;= 2048 <span style="color: #0000CC;">Then</span> &nbsp;<br>&nbsp; &nbsp; &nbsp; <span style="color: #0000CC;">Set</span> f = fso.OpenTextFile(&quot;c:\komprimiert.txt&quot;, 8, <span style="color: #0000CC;">False</span>) &nbsp; <br>&nbsp; &nbsp; &nbsp; f.writeline Item2<br>&nbsp; &nbsp; &nbsp; f.Close <br>&nbsp; &nbsp; &nbsp; msg = msg & Item2 & vbCr<br>&nbsp; &nbsp; <span style="color: #0000CC;">End If</span> &nbsp;<br>&nbsp; <span style="color: #0000CC;">Next</span> <br>&nbsp; <span style="color: #0000CC;">For Each</span> item <span style="color: #0000CC;">In</span> oFolders &nbsp; <br>&nbsp; &nbsp; GetDir item <br>&nbsp; <span style="color: #0000CC;">Next</span> <br><span style="color: #0000CC;">End Sub</span> &nbsp;<br></span>

mfg Anton

TheFibrilator
27.08.2009, 10:05
total nötig sowas