ERFORDERLICHE OBJEKTE

   1 Commandbutton (Command1)
 FORM-CODE

   Private Sub Command1_Click()
      Dateiname = "\\Servername\dir\test.txt"
      f = FreeFile
      Open Dateiname For Output As #f
      Print #f, "Ein Text"
      Close
   End Sub
     Dieses Beispiel schreibt den Text "Ein Text" in die Datei "test.txt"
     auf den Server mit dem Namen "Servername" in das Verzeichnis,
     welches als "dir" freigegeben wurde.
     Anstelle von "Servername" könnte natürlich ein beliebiger
     Computername stehen.
     Beispielsweise "\\PC-MUELLER"