#include <stdio.h>
#include <stdlib.h>
int main() {
remove("C:\\123.txt");
return 0;
}
Другие языки программирования и технологии
Как написать прогу на паскале или С, чтобы при запуске этой проги она удаляла файл, например С://123.txt
из учебника:
"удаление файла, связанного с переменной F, выполняется посредством процедуры erase (F), в которой F также является именем файловой переменной. Для корректного выполнения этой файл должен быть закрыт".
"удаление файла, связанного с переменной F, выполняется посредством процедуры erase (F), в которой F также является именем файловой переменной. Для корректного выполнения этой файл должен быть закрыт".
Пример в Delphi:
procedure WipeFile(FileName: string);
var
buffer: array [0..4095] of Byte;
max, n: LongInt;
i: Integer;
fs: TFileStream;
procedure RandomizeBuffer;
var
i: Integer;
begin
for i := Low(buffer) to High(buffer) do
buffer := Random(256);
end;
begin
fs := TFilestream.Create(FileName, fmOpenReadWrite or fmShareExclusive);
try
for i := 1 to 3 do
begin
RandomizeBuffer;
max := fs.Size;
fs.Position := 0;
while max > 0 do
begin
if max > SizeOf(buffer) then
n := SizeOf(buffer)
else
n := max;
fs.Write(Buffer, n);
max := max - n;
end;
FlushFileBuffers(fs.Handle);
end;
finally
fs.Free;
end;
Deletefile(FileName);
end;
procedure WipeFile(FileName: string);
var
buffer: array [0..4095] of Byte;
max, n: LongInt;
i: Integer;
fs: TFileStream;
procedure RandomizeBuffer;
var
i: Integer;
begin
for i := Low(buffer) to High(buffer) do
buffer := Random(256);
end;
begin
fs := TFilestream.Create(FileName, fmOpenReadWrite or fmShareExclusive);
try
for i := 1 to 3 do
begin
RandomizeBuffer;
max := fs.Size;
fs.Position := 0;
while max > 0 do
begin
if max > SizeOf(buffer) then
n := SizeOf(buffer)
else
n := max;
fs.Write(Buffer, n);
max := max - n;
end;
FlushFileBuffers(fs.Handle);
end;
finally
fs.Free;
end;
Deletefile(FileName);
end;
аналогичный совет по паскалю
работа с файлами)
работа с файлами)
жгешь дружище, ты видать в делфи мега спец, задание то было прощее УДАЛИТЬ файл при запуске
в .dpr файле поставить проверку на существование файла FileExist (filename)
а затем удалить с страховкой
try
delete(file name)
except
end;
Это что касаемо делфи, а вопрос был вообще про паскаль
в .dpr файле поставить проверку на существование файла FileExist (filename)
а затем удалить с страховкой
try
delete(file name)
except
end;
Это что касаемо делфи, а вопрос был вообще про паскаль
подключаешь одну библиотеку.
выполняешь одну функцию.
какую юиюлиотеку и функцию:
читай справочник по сиплюсплюс
раздел "работа с файловой системой"
выполняешь одну функцию.
какую юиюлиотеку и функцию:
читай справочник по сиплюсплюс
раздел "работа с файловой системой"
Похожие вопросы
- НАПИСАТЬ ПРОГРАММУ В ПАСКАЛЬ! Нахождение суммы чисел в матрице, ввод чисел осуществить из файла matrix.txt вывод на экран.
- СРОЧНО ! Напишите прогу на Паскале
- напишите проги в ПАСКАЛЕ плиз!!!очень надо.
- Помогите написать прогу на паскале
- Помогите написать прогу на Паскале, экзамен горит, очень нужно..
- Нужен bat файл, чтобы переименовал все txt файлы в папке, заменяя имя на первую строку содержимого файла
- СРОЧНО ПОМОГИТЕ!!! Напишите прогу на паскале
- Помогите написать прогу на паскале!
- можно ли написать прогу...
- Как в Паскале написать прогу для перевода чисел из двоичной в шестьнадцатиричную.Длина кода 64 бит.(64 цифры в вводимом