Копирование файла без запроса потверждения замены.

[Тест_Тестович]

Есть задача - обновлять версию некоторого файла, т.е. копировать файл в директорию, в которой уже существует файл с тем же именем. В VB вроде как для этого имеется FileCopy, но при её применении возникает запрос подтверждения типа "Вы точно хотите заменить существующий файл?" Собственно вопрос в том, как этот запрос подавить. Т.е. необходимо действие, аналогичное коду командной строки xcopy source destination /y . Сколько смотрел информации по FileCopy, у этой команды только 2 параметра - source и destination - ни о каких доп. ключах более не говорится.
Если в FileCopy это обойти нельзя, то существует ли в VB возможность запускать из кода те же bat- и cmd- файлы (в которых собственно и будет xcopy source destination /y )?

[Antonariy]

1. Kill перед копированием
2. FSO

[Тест_Тестович]

1. Kill перед копированием

Про Kill я думал, но не будет ли с ней той же проблемы, т.е. запроса "Вы точно согласны удалить существующий файл?"

[alibek]

Не будет.

[zan]

А если у файла только чтение?

[Antonariy]

А проверить?

[Viper]

Кажись точно справку и MSDN отменили.... Ужос! Kill будет вызывать исключение только в трех случаях: Если файл открыт, если файла такого нет и если у процесса нет к нему доступа. Никаких сообщений типа "А Вы уверены...." выдаваться не будет. Название функции Kill явно наводит на мысли о полной ее бескомпромисности

[Konst_One]

Код: Выделить всё

KILL FileName

Astalavista, baby

[Serge Gavrilov]

до кучи
3
Declare Function apiCopyFile Lib "kernel32" Alias "CopyFileA" ( _
ByVal lpExistingFileName As String, _
ByVal lpNewFileName As String, _
ByVal bFailIfExists As Long) As Long

[|kerish|]

Код: Выделить всё

Public Sub ForceKill(FileName As String)
On Error Resume Next
SetAttr FileName, vbNormal
Kill FileName
End Sub

[Tarantul]

Интересно
У меня FileCopy никогда никаких запросов не вызывал а просто заменял файл, если надо. Что это надо сделать с VB, чтоб он выдавал такие запросы Может еще он выдает запросы типа вы точно хотите присвоить значение переменной A переменной B?

[Debugger]

Kill Tarantul.
Уж больно, очень больно!

[~Ilya~]

У меня тоже FileCopy не требует никаких подтверждения , если нужно перезаписать файл

[kpblc]

А если все же использовать FileSystemObject, и его метод CopyFile? Там есть третий необязательный параметр - перезаписывать или нет файл.
object.CopyFile source, destination[, overwrite]

[Tarantul]

Kill Tarantul.
Уж больно, очень больно!

Прошу яснее выражаться. Я что, что-то неправильно написал?

[|kerish|]

kpblc А на хрен нужен FSO? Все можно сделать самому без лишнего геммороя и без подключения сторонних библиотек.

[kpblc]

Я, конечно, далеко не профи, но вот работает же (на пустом проекте):

Код: Выделить всё

  Dim oFSO As Variant
  Set oFSO = CreateObject("Scripting.FileSystemObject")
  oFSO.createfolder "c:\123"

[GSerg]

kpblc, а какая разница, что работает у тебя, если этого может не быть в системе?

[kpblc]

> GSerg : А это как - может не быть? Расскажи, если не трудно.

[GSerg]

Ну ты создаёшь объект Scripting.FileSystemObject, не задумываясь о том, что в системе его может быть не установлено?

[kpblc]

> GSerg : Ну как он может быть не установлен? Честно говоря, я не видел систем, на которых попытка создания Scriptinf.FileSystemObject выдавала бы ошибку. Может быть, у меня опыта мало, охотно признаю.

[Nicky]

> GSerg : Ну как он может быть не установлен? Честно говоря, я не видел систем, на которых попытка создания Scriptinf.FileSystemObject выдавала бы ошибку. Может быть, у меня опыта мало, охотно признаю.

Еще антивирусы недолюбливают скриптовую активность

[Antonariy]

Ну ты создаёшь объект Scripting.FileSystemObject, не задумываясь о том, что в системе его может быть не установлено?

Если не ошибаюсь, FSO в комплект даже 98х входит.

[Debugger]

На 95й прокатило.

[hCORe]

Видимо, установлен Internet Explorer 4 или выше. Также вариант: просто поставлен WSH (Windows Script Host).

[Al Khamid]

[hCORe]

Флаг FOF_SILENT = &H4 спасет отца российской демократии.