Hallo,
bis jetzt konnte ich immer erfolgreich Dateien schreiben. Nun will das plötzlich nicht mehr klappen, selbst wenn ich erfolgreich getesteten Code 1:1 kopiere!
Sub Click(Source As Button)
Call writeFile( "C:\Test-Ordner\Test.txt", "Test123!" )
End Sub
Sub writeFile( sPath As String, sData As String )
'========================================
Dim iFileNum As Integer
iFileNum = Freefile()
Open sPath For Output As iFileNum
Print #iFileNum, sData
Close iFileNum
End Sub
Ihr müsst euch das so vorstellen, dass genau dieser Code anderswo erfolgreich funktioniert und in einer Test-Form plötzlich nicht mehr. Der einzige Unterschied ist, dass der Code zuvor in einer Klasse war und nun nicht mehr.
Ich bekomme immer die Fehlermeldung:"Unable to open file".
Ist das wieder einer der Notes-Eigenheiten?!
Liebe Grüße
Giordano