'Renvoi "False" si l'écriture du fichier à généré une erreur
Public Shared Function EnregistrerFichierTexte(ByVal Chemin As String, ByVal Contenu As String) As Boolean

  Try
      Dim fs As System.IO.FileStream = System.IO.File.Open(Chemin, _ 
         System.IO.FileMode.Create, _
         System.IO.FileAccess.Write)

      Dim sw As New System.IO.StreamWriter(fs) 
      sw.Write(Contenu)
      sw.Close()
      fs.Close()
      Return True
  Catch ex As Exception 
      Return False

  End Try

End Function

public bool WriteAllText(string path, string text, Encoding encoding) 
{
  try
  {
    using (StreamWriter sw = new StreamWriter(path, false, encoding)) 
    {
      sw.Write(text);
    }
  }
  catch
  {
    return false; 
  }
 
  return true; 
}

Dim colLignes As New Collection
Dim ff As Integer
ff = FreeFile

Dim sLigne As String

'Lecture du fichier, envois chaque ligne dans la collection
Open "C:\votrefichier.txt" For Input As #ff
    While Not EOF(ff)
        Line Input #ff, sLigne
        colLignes.Add sLigne
    Wend
Close #ff

'Insertion de 2 lignes par exemple à la ligne 5 et 6
colLignes.Add "je suis la nouvelle ligne 5", , 5
colLignes.Add "je suis la nouvelle ligne 6", , 6

'Réecriture du fichier
Dim i As Integer
Open "C:\votrefichier.txt" For Output As #ff
   For i = 1 To colLignes.Count
        Print #ff, colLignes(i)
   Next
Close #ff

def ecrire_chaine_dans_fichier(chaine, fichier):
  try:
     f = file(fichier,"w")
     f.write(chaine)
     f.close()
    return True
  except:
    return False

//l'import qui va bien
import java.io.*;
//la fonction
public static void enregistrerT(String texte, File fichier) throws IOException{
  FileWriter f = new FileWriter(fichier);
  f.write(texte);
  f.close();
 }

%enregistrer_chaine/2
%    enregistre le premier argument dans le fichier indiqué par le deuxième
enregistrer_chaine(Chaine, NomFichier) :-
    atom(Chaine),atom(NomFichier),
    tell(NomFichier),
    write(Chaine),
    told.
%enregistrer_liste/2
%   pour une liste de mots, séparés par des espaces
enregistrer_liste(Liste, NomFichier) :-
    tell(NomFichier),

    enregistrer_liste_aux(Liste,NomFichier).
enregistrer_liste_aux([Mot|Suite],NomFichier) :-
    write(Mot),write(' '),
    enregistrer_liste_aux(Suite,NomFichier).
enregistrer_liste_aux([],_) :-
    told.

#include <stdio.h>
 int main()
 {
   char buffer[] = "Texte à écrire dans le fichier";
   FILE* pFile;
   pFile = fopen("fichier.txt" , "w" );
   fwrite (buffer, 1 , strlen(buffer), pFile);
   fclose(pFile);
   return 0;
 }

{ avec un TStrings }
var TSL : TStringList;
begin
  TSL := TStringList.Create;  
  try
    TSL.Text := 'par toi même la solution trouver tu devrais, mon jeune apprentis.';
    TSL.SaveToFile('c:\talkwithyoda.txt');
  finally
    TSL.Free;
  end;
end;

{ avec un TStream }
var TFS : TFileStream;
    TxT : string;
begin
  TFS := TFileStream.Create('c:\jediowning.txt',fmCreate);
  try
    TxT := 'c''est alors qu'Obiwan-sama se rendit compte qu''il etait entouré '+
           'de quelques milliers de storm troopers ...';
    TFS.WriteBuffer(PChar(TxT)^, Length(TxT));
  finally
    TFS.Free;
  end;
end;

fSauveTexte(sChemin, sChaine)

new ActiveXObject("Scripting.FileSystemObject").OpenTextFile("chemin", 2, true).Write(chaine)

Sub WriteDataToFile(sPathFile, sData)
'   reader
    Dim oFSO
    Set oFSO = CreateObject("Scripting.fileSystemObject")
'   fichier : chemin, 2 pour  écrire (et écraser), True pour forcer la création du fichier
    Dim oFile
    Set oFile = oFSO.openTextFile(sPathFile, 2, True)
'   écriture
    oFile.Write sData
'    nettoyage
    oFile.Close
    Set oFile = Nothing
    Set oFSO = Nothing
End Sub

'UTILISATION  :
WriteDataToFile "c:\machin.txt", "mon texte à écrire"