Хоть бы сказал на каком языке тебе надо!Вот пример,но рекомендую использовать относительный пусть,найди папку windows присвой ей переменную и в бой!)
Кстати на винде 7 и висте ты не сможешь поменять хост!Но думаю ты знаешь почему)

Var hostfiles:TextFile;
begin
AssignFile(hostfiles,'C:\paskal\mywrite\1.txt');
{$I-}
Append(hostfiles);
if IOResult<>0 then
begin
{$I-}
Rewrite(hostfiles);
{$I+}
if IOResult<>0 then
begin
Exit;
end;