[C con Clase] Tengo un error con ficheros.

[Juan Antonio Rubio]

Hola a todos,

   He escrito este ejemplo de codigo, y el fichero me lo crea, pero no
graba ningún dato en él.

   Me podeis decir en donde estoy metiendo la pata.

   Gracias..

Juan Antonio.

#include <iostream>
#include <fstream>

using namespace std;

int main()
{
   char clave[]="Esto es una prueba";
   char Archivo[]="s:\\Profile.dat";      // Tengo una unidad s...
   int l;

   l=strlen(clave);

   fstream fProfile;
   fProfile.open(Archivo,fstream::in|fstream::binary);
   if (!fProfile.is_open())
   {
      fProfile.open(Archivo, fstream::out|fstream::binary);
      for(int i=0;i<l;i++)  fProfile.put(clave[i]);
   }
   fProfile.close();
   return 0;
}