Re: Dateiname (mit äöü ) aus Editfield

[Andy Fuchs <andy at foxwerk dot de>]

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 <mike at psb-info dot ch>
> Reply-To: REALbasic NUG German <realbasic-nug dot de at lists dot 
> realsoftware dot com>
> Date: Wed, 28 Dec 2005 21:48:43 +0100
> To: REALbasic-NUG German <realbasic-nug dot de at lists dot realsoftware dot 
> com>
> 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 <andy at foxwerk dot de>:
> 
>> 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
> 
>