VB6 - Dettagli di un file.

[icosimo]

Ciao "FORUM",

desideravo sapere se è possibile e come assegnare ad una variabile i valori del dettaglio di un file, ad esempio la data e ora di modifica.

Grazie mille.

[jabjoint]

Si può fare con le API di windows:

Private Const FILE_SHARE_READ = &H1
Private Const FILE_SHARE_WRITE = &H2
Private Const OPEN_EXISTING = 3
Private Const GENERIC_READ = &H80000000
Private Const GENERIC_WRITE = &H40000000

Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Private Declare Function SetFileTime Lib "kernel32" (ByVal hFile As Long, lpCreationTime As FILETIME, lpLastAccessTime As FILETIME, lpLastWriteTime As FILETIME) As Long
Private Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long
Private Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" (ByVal lpFileName As String) As Long
Private Declare Function GetFileTime Lib "kernel32" (ByVal hFile As Long, lpCreationTime As FILETIME, lpLastAccessTime As FILETIME, lpLastWriteTime As FILETIME) As Long

Private Type SECURITY_ATTRIBUTES
        nLength As Long
        lpSecurityDescriptor As Long
        bInheritHandle As Long
End Type

Private Type FILETIME
        dwLowDateTime As Long
        dwHighDateTime As Long
End Type


Private Sub Form_Load()

Dim S As SECURITY_ATTRIBUTES

Dim pFile As String
Dim pFile2 As String
Dim hFile As String
Dim hFile2 As String

Dim TCreation As FILETIME
Dim TAccess As FILETIME
Dim TWrite As FILETIME

pFile = "C:\FILEDaLeggere.txt"
pFile2 = "C:\FILEDoveScrivere.txt"


hFile = CreateFile(pFile, GENERIC_READ, FILE_SHARE_READ Or FILE_SHARE_WRITE, _
                    S, OPEN_EXISTING, 0, 0)

hFile2 = CreateFile(pFile2, GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, _
                    S, OPEN_EXISTING, 0, 0)

If GetFileTime(hFile, TCreation, TAccess, TWrite) = 0 Then
    MsgBox "Il file: " & pFile & " non esiste."
        Else
    MsgBox "Informazioni del 1° file lette."
End If

If SetFileTime(hFile2, TCreation, TAccess, TWrite) = 0 Then
    MsgBox "Il file: " & pFile2 & " non esiste."
End If

End Sub

[icosimo]

Sei stato gentilissimo e ti ringrazio,

ma forse devo modificare ancora qualcosa in quanto pur avendo creato i files Letto e Scritto
risponde che i files non esistono.


pFile = "C:\Letto.txt"
pFile2 = "C:\Scritto.txt"


Puoi ancora darmi un suggerimento.

Ancora grazie e Buona Pasqua.

[jabjoint]

non capisco ho riprovato e tutto funziona correttamente...
cmq, grazie per la buona pasqua, e auguri anche a te