Saludos Tengo otro problema con la exportacion de datos: Exporto una consulta con transfertext anchofijo (ahora sin problemas en access 2000 poniendo la extension "permitida" txt al archivo de destino), pero necesito que la primera linea del archivo contenga un cierto texto (que es siempre el mismo). Haciendolo manual, exporto, abro el archivo, desplazo la primera linea y escribo el texto. ¿ Como podría hacerlo con codigo ? BHUO ==== 'Activa en referencias la Microsoft Scripting Runtime Function InsertaCaracteres(Frase As String, Fichero As String) Dim FS As FileSystemObject, FL As File, TS As TextStream Dim Contenido Set FS = CreateObject("Scripting.FileSystemObject") If FS.FileExists(Fichero) = True Then Set FL = FS.GetFile(Fichero) Else MsgBox "El archivo no existe en la Ruta especificada: ", vbCritical, "AVISO" Set FS = Nothing Set FL = Nothing Exit Function End If Set TS = FL.OpenAsTextStream(ForReading) Contenido = Frase & TS.ReadAll TS.Close Set TS = FL.OpenAsTextStream(ForWriting) TS.WriteLine Contenido TS.Close Set FS = Nothing Set FL = Nothing End Function 'Para probar esta funcion Function prueba() InsertaCaracteres "HOLA MUNDO esto lo inserto en el fichero....", CurrentProject.Path & "\arch.txt" End Function