[VB6] Data ultima modifica di un file

[MdE2005]

Sarebbe enorme la guida che ti spiega tutti i componenti e i riferimenti..e teoricamente infinita..

Cmq per settare le proprietà di un file basta fare così:

Public Const FILE_ATTRIBUTE_ARCHIVE = &H20
Public Const FILE_ATTRIBUTE_COMPRESSED = &H800
Public Const FILE_ATTRIBUTE_DIRECTORY = &H10
Public Const FILE_ATTRIBUTE_HIDDEN = &H2
Public Const FILE_ATTRIBUTE_NORMAL = &H80
Public Const FILE_ATTRIBUTE_READONLY = &H1
Public Const FILE_ATTRIBUTE_SYSTEM = &H4
Public Const FILE_ATTRIBUTE_TEMPORARY = &H100

Public Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long

Sub main()

Dim PercorsoFile As String

If Dir(PercorsoFile) <> "" Then

    SetFileAttributes PercorsoFile, FILE_ATTRIBUTE_HIDDEN

End If

End Sub

ciao