Re: Dateiname (mit äöü ) aus Editfield

[Mike Ott <mike at psb-info dot ch>]

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