функция RenameFile, не могу разобраться..

← →
-=snoop=- © (2005-08-16 11:57) [0]

привет всем,
козалось бы , что может быть легче?
function RenameFile(const OldName, NewName: string): Boolean

в моём случае выглядит
RenameFile(gPthVl+"pro\user.pro",gPthVl+"pro\user.old");
где, gPthVl = e:\bst\pro или любой другой пить...
не могу добиться работы ф-ии...
подскажите , что не так?

← →
Плохиш © (2005-08-16 12:03) [1]

gPthVl+"pro\user.pro" = ?
gPthVl+"pro\user.old" = ?

Когда определишь, чему равны "?", всё поймёшь.

← →
Думкин © (2005-08-16 12:04) [2]

"e:\bst\pro" + "pro\user.pro" = "e:\bst\propro\user.pro" должно быть так?

← →
Tonich © (2005-08-16 12:05) [3]

ну если e:\bst\pro это твой путь хде pro это отдельная папка
и ты потом пытаешься к нему прибавить "pro\user.pro" и получается
e:\bst\propro\user.pro а вот "propro" эта папка то у тебя есть или ты просто забыл "\"
ну если ты забыл поставить "\"то получается e:\bst\pro\pro\user.pro 2 одноименные папки , какой-то бред ))

← →
Tonich © (2005-08-16 12:09) [4]

не можно конечно но коряво как-то)

← →
-=snoop=- © (2005-08-16 12:10) [5]

простите господа....переволновался
конечно же gPthVl = e:\bst\, но от эого не легче

← →
-=snoop=- © (2005-08-16 12:11) [6]

a := "e:\bst\pro\user.pro" ; b := "e:\bst\pro\user.old" ; RenameFile(a,b);
не работаеть

← →
bat00n (2005-08-16 12:14) [7]

func ChangeFileExt(FileName : string; Extension : string);

filename := "e:\bst\pro\user.pro"; ChangeFileExt(filename, "old");

← →
-=snoop=- © (2005-08-16 12:16) [8]

bat00n
пробовал вот так, не заработало
ChangeFileExt("e:\bst\pro\user.pro", "old");

← →
-=snoop=- © (2005-08-16 12:18) [9]

по Вашему тож не работает!)))))
щас машину перегружу....

← →
Плохиш © (2005-08-16 12:18) [10]

> -=snoop=- © (16.08.05 12:11) [6]
>
> a := "e:\bst\pro\user.pro" ;
> b := "e:\bst\pro\user.old" ;
> RenameFile(a,b);
>
> не работаеть

Вот так просто "не работает" и ничего не говорит? Что говорит GetLastError?

← →
Tonich © (2005-08-16 12:20) [11]

а может у него диска E нет )))))

← →
bat00n (2005-08-16 12:27) [12]

Вот под рукой делфя, щас попробовал. Все работает:

a := "e:\bst\pro\user.pro" ; ext := ".old"; if not RenameFile(a, ChangeFileExt(a,ext)) then ShowMessage("Фигу!");

← →
Slider007 © (2005-08-16 12:27) [13]

Tonich © (16.08.05 12:20) [11]
может у него ваще компа нет ?

← →
-=snoop=- © (2005-08-16 12:28) [14]

2Tonich....и правда нет...чЁрт побери! ты меня спас!!))))

2Плохиш
GetLAstError ноль показывает

← →
-=snoop=- © (2005-08-16 12:29) [15]

не прилично говорить о присутствующем в 3-м лице

← →
Tonich © (2005-08-16 12:31) [16]

> Tonich © (16.08.05 12:20) [11]
так это что правда оказалась??????

ну вы батека даете)))

← →
-=snoop=- © (2005-08-16 12:34) [17]

да не правда это, есть у меня и комп, на удиление и диск Е: на нем тож есть...как ни странно....

← →
Tonich © (2005-08-16 12:35) [18]

тохда в продолжение темы )))))
может это сидюк)))

← →
-=snoop=- © (2005-08-16 12:38) [19]

2Tonich, не, скорее всего, потусторонние силы мешают головке винчестера попасть в сектор......какой телефон у охотников за приведеньями?
ладно уже стебаться

← →
Думкин © (2005-08-16 12:41) [20]

> [19] -=snoop=- © (16.08.05 12:38)

Стебаешься пока ты. Что возвращает функция? Анализируется ли GetLastError? Каковы атрибуты файла?

← →
-=snoop=- © (2005-08-16 12:46) [21]

2Думкин,
0.чем же я стебаю?
1.будь по внимательнее [14]
2.атрибуты пусты
3.для проверки, пробовал переписать файл в корень с: =0

вот весь код, хотя какой тут код...

procedure tform1.p_copyANDstr; var a, b : string ; lstErr : integer ; begin a := "c:\user.pro" ; //b := "e:\bst\pro\user.old" ; ChangeFileExt(a, ".old");
все в соответствии с хелпом дельфЁвым

А руками - в проводнике, самому - каков результат?

руками дает, без проблем

a := "E:\bst\pro\user.pro" ;
b := "E:\bst\pro\user.old" ;
RenameFile(a,b);
getlasterror() вернул 32... поисчу коды ошибок...

-=snoop=- © (16.08.05 12:29) [15]
не прилично говорить о присутствующем в 3-м лице

Тогда будет смешно выглядеть
Slider007 © (16.08.05 12:27) [13]
Tonich © (16.08.05 12:20) [11]
может у меня ваще компа нет ?

При чем тут его компьютер?

2Плохиш , да ладно, дядя, что за бред! "нет буквы е:", ты сам-то представляешь такую ситуацию? бред какой-то! еще и вруном назвали....

2Anatoly Podgoretsky, я его и не открывал...

> -=snoop=- © (17.08.05 05:58) [28]

Что-то не так в городе датском. Диагностика такого уровня на расстоянии - дело дорогое. Вы бы все-таки напряглись сами - немного, для начала.

функция RenameFile, не могу разобраться.. Найти похожие ветки