Hello,

Thank you for your answer, but the FAQ isn't help.

I have tried:
\Storage Card USB
\Storage Card2
\Storage Card CF
\Storage Card MMC

All time appear:
"Error 429 ActiveX acts component can't create object"

.Script:

Dim fso, f, ts, path
path = "\Storage Card MMC\Logs\userlog.csv"

On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")

If Err.Number <> 0 Then
ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description
Err.Clear
Exit Sub
End If

'if no file exist a text file will be created - Datei erstellen, wenn keine vorhanden
If Not fso.FileExists(path) Then
fso.CreateTextFile path
End If

Set f = fso.GetFile(path)

If Err.Number <> 0 Then
ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description
Err.Clear
Exit Sub
End If

Set ts = f.OpenAsTextStream(8, -2)

If Err.Number <> 0 Then
ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description
Err.Clear
Exit Sub
End If

ts.WriteLine(Date & Time & ";" & "RFID\RFID_ACCESS/UserIdTextual" & ";")

'Close file - Datei schließen
ts.Close

Set ts = Nothing
Set f = Nothing
Set fso = Nothing

ShowSystemAlarm "Storage of the data was successful!"
'// EOS /////////////////////////////////////////////////////////

Thank you!

NCG