Con la tua modifica adesso anche quel codice funziona. Infatti avendo fatto una prova come mi hai consigliato, il controllo mi restituisce 0 quando è libero e 1 quando è occupato il file.

Ora io utilizzo già un mio codice per effettuare dei salvataggi su dei file ini:


codice:
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As LongPrivate Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long



Public Function WriteINI(strSection As String, strKeyName As String, strText As String, strFileName As String, Optional iniDirPathName As String)    Dim intLen As Integer
    Dim strIniFile As String
    If Right$(iniDirPathName, 1) = "\" Then
        Mid$(iniDirPathName, Len(iniDirPathName), 1) = Space$(1)
        iniDirPathName = RTrim$(iniDirPathName)
    End If
     strIniFile = strFileName
     intLen = WritePrivateProfileString(strSection, strKeyName, strText, strIniFile)

Chiedevo se potevo adattare qui dentro, il controllo del file occupato.

E' questo che mi scrive sui file!

Ciao