Hi Mike,
dann versuch's mal so
Dim db as REALdatabase
Dim f as FolderItem
Dim s As String
s = ConvertEncoding(Editfield1.text, Encodings.SystemDefault)
f = DesktopFolder.child(s)
db = New REALdatabase
db.databaseFile = f
If not db.CreateDatabaseFile then
return
End
;-)
andy
> From: Mike Ott <[EMAIL PROTECTED]>
> Reply-To: REALbasic NUG German <[email protected]>
> Date: Wed, 28 Dec 2005 21:48:43 +0100
> To: REALbasic-NUG German <[email protected]>
> Conversation: Dateiname (mit äöü ) aus Editfield
> Subject: Re: Dateiname (mit äöü ) aus Editfield
>
> Hallo Andy
> Stimmt, das geht. Aber probier mal das. Hier geht's nicht:
>
> Dim db as REALdatabase
> Dim f as FolderItem
> Dim s As String
>
> s = Editfield1.text
>
> f = DesktopFolder.child(s)
>
> db = New REALdatabase
> db.databaseFile = f
> If not db.CreateDatabaseFile then
> return
> End
>
> Gruss Mike
>
>
> Am 28.12.2005 21:29 Uhr schrieb "Andy Fuchs" unter <[EMAIL PROTECTED]>:
>
>> dim s as string
>> dim f as folderItem
>> dim t as textoutputStream
>> s = Editfield1.text
>> f = DesktopFolder.child(s)
>> if (f <> nil and not f.exists) then
>> t = f.createTextFile
>> msgbox s
>> else
>> msgbox f.displayName + " exists"
>> end if
>
>
