1&1 Multimedia Trend 1996 11 B/MM_TREND.ISO/prog/basics/service.dir/00086.ls

Text File | 1996-09-16 | 1.6 KB | 68 lines

on fragepfad
  global pfad
  set pfad to the pathName
  put LeseText(the pathName & "Director.inf") into field "Startpfad"
end

on LeseText dateiname
  global LeseObjekt
  if objectp(LeseObjekt) then
    LeseObjekt(mdispose)
  end if
  set LeseObjekt to FileIO(mnew, "read", dateiname)
  if objectp(LeseObjekt) then
    set text to LeseObjekt(mReadFile)
    return text
    LeseObjekt(mdispose)
  end if
end

on SchreibeText dateiname, Textstring
  global SchreibeObjekt
  if objectp(SchreibeObjekt) then
    SchreibeObjekt(mdispose)
  end if
  set SchreibeObjekt to FileIO(mnew, "write", dateiname)
  if objectp(SchreibeObjekt) then
    SchreibeObjekt(mWriteString, Textstring)
    SchreibeObjekt(mdispose)
  end if
end

on Checkerror Fehlercode
  if Fehlercode = -33 then
    set Fehlertext to "File directory full"
  end if
  if Fehlercode = -34 then
    set Fehlertext to "Volume full"
  end if
  if Fehlercode = -35 then
    set Fehlertext to "Volume not found"
  end if
  if Fehlercode = -36 then
    set Fehlertext to "I/O Error"
  end if
  if Fehlercode = -37 then
    set Fehlertext to "Bad file name"
  end if
  if Fehlercode = -38 then
    set Fehlertext to "File not open"
  end if
  if Fehlercode = -42 then
    set Fehlertext to "Too many files open"
  end if
  if Fehlercode = -43 then
    set Fehlertext to "File not found"
  end if
  if Fehlercode = -56 then
    set Fehlertext to "No such drive"
  end if
  if Fehlercode = -65 then
    set Fehlertext to "No disk in drive"
  end if
  if Fehlercode = -120 then
    set Fehlertext to "Directory not found"
  end if
  return Fehlertext
end