Удаление PDF-файла

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Удаление PDF-файла (Макросы Sub)

Удаление PDF-файла

Espada

Дата: Среда, 09.10.2013, 15:37 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 121

Репутация: 0 ±

Замечаний: 40% ±

Всем доброго времени суток! Возник такой вопрос, как сдеать так, чтобы при нажатии на кнопку удалялся pdf-файл по конкретному пути( в данном случае \\server\ОТК\ВОДНЫЕ\BazaPDF\)? имя пдф файла задано 2-мя переменными pas par. Спасибо.

Ответить

SkyPro

Дата: Среда, 09.10.2013, 16:06 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1206

Репутация: 255 ±

Замечаний: 0% ±

2010

[vba]

Код

Sub dlt()
Kill ("\\server\ОТК\ВОДНЫЕ\BazaPDF\" & ваша_переменная)
End Sub

[/vba]
Файл должен быть закрыт в момент удаления.

skypro1111@gmail.com

Сообщение отредактировал SkyPro - Среда, 09.10.2013, 16:10

Ответить

Poltava

Дата: Среда, 09.10.2013, 16:15 | Сообщение № 3

Группа: Друзья

Ранг: Форумчанин

Сообщений: 232

Репутация: 50 ±

Замечаний: 0% ±

Так длинней зато пользователь получит последнее китайское и в случае неудачи узнает о том что файл не был удален
[vba]

Код

    On Error Resume Next
       Select Case MsgBox("Вы действительно хотите удалить файл:" _
                          & vbCrLf & FullNameXl _
                          , vbOKCancel Or vbQuestion Or vbDefaultButton1, Application.Name)
       Case vbOK
           Kill ПутьКФайлу
       Case vbCancel
       End Select
       If Err.Number > 0 Then
           Call MsgBox("Во время удаления произошла ошибка " & Err.Description, vbCritical, Err.Number)
       End If
       On Error GoTo 0

[/vba]

Сообщение отредактировал Poltava - Среда, 09.10.2013, 16:16

Ответить

Espada

Дата: Четверг, 10.10.2013, 09:06 | Сообщение № 4

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 121

Репутация: 0 ±

Замечаний: 40% ±

Спасибо, всё работает отлично!)

Ответить

Удаление PDF-файла (Макросы Sub)

Страница 1 из 1
1