Sette FileAttributes.Compressed, hvordan?

[Wubbable]

Å gjøre det på den vanlige måten (Dim X as new file : X.fileattributes = FileAttributes.Compressed) funker ikke...

 

Fant en funksjon for det (som brukte en eller annen DLL) på google en gang, men finner den ikke igjen...

 

Andre måter å gjøre det på? (i VB.NET)

Endret 15. oktober 2007 av Wubbable

[RulleRimfrost]

Har en VB7 demo fra MS som bruker et bibliotek som heter dsofile.dll

Vet ikke om det kan sette attributter, men kan i hvertfall lese dem.

[j000rn]

De er "read-only".

 

Les her: http://www.thescripts.com/forum/thread257646.html

[Wubbable]

Takker

 

Friend Module Compress

Private Declare Function DeviceIoControl Lib "kernel32.dll" (ByVal hDevice As IntPtr, ByVal dwIoControlCode As Integer, ByRef lpInBuffer As Short, ByVal nInBufferSize As Integer, ByVal lpOutBuffer As IntPtr, ByVal nOutBufferSize As Integer, ByRef lpBytesReturned As Integer, ByVal lpOverlapped As IntPtr) As Integer

Friend Function NTFSCompress(ByVal filename As String) As Integer

	Try

		Dim FSCTL_SET_COMPRESSION As Integer = 639040
		Dim COMPRESSION_FORMAT_DEFAULT As Short = 1

		Dim FS As FileStream = File.Open(filename, System.IO.FileMode.Open, System.IO.FileAccess.ReadWrite, System.IO.FileShare.None)
		Dim Result As Integer = DeviceIoControl(FS.SafeFileHandle.DangerousGetHandle, FSCTL_SET_COMPRESSION, COMPRESSION_FORMAT_DEFAULT, 2, IntPtr.Zero, 0, 0, IntPtr.Zero)
		FS.Close()

		Return Result

	Catch

		Return 0

	End Try

End Function

End Module

 

Hvis noen andre trenger det også

Endret 19. oktober 2007 av Wubbable