Blå filnavn

at de er blå skyldes mappen/filen er komprimeret, højreklikker du på filen /mappen og vælger egenskaber, kan du angive om den skal være komprimeret (gør du den krypteret, bliver den grøn)

Arh ... sådan. Den havde jeg ikke lige luret - Takker for svaret.

Er det muligt at gøre en fil komprimeret via VBA kode - hvis du lige ved det ?

hvis du kan finde ud af at lave noget kode der kan ændre atribbuterne for filen så burde det være muligt, men om det kan lade sig gøre i praksis aner jeg ikke.

kan du sagtens, her er en stump kode direkte fra portable script center

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colFolders = objWMIService.ExecQuery _
    ("Select * from Win32_Directory where name = 'c:\\Scripts'")

For Each objFolder in colFolders
    errResults = objFolder.Compress
Next