Удаление файла???

[Rik3D]

У меня программа на VBA выводит в первую колонку имена файлов на листе, а во вторую( напротив каждого имени файла свой путь) полный путь с именем. Как сделать так что бы когда я щёлкал двоййным щелчком мыши, брался путь напротив имени файла на который я щеллкнул двойным щелчком и он удаляляся из самой папки? Заранее благодарю! Жду вашей помощи

[$€rg]

http://bbs.vbstreets.ru/viewtopic.php?t ... light=kill

[Avtopic]

http://bbs.vbstreets.ru/viewtopic.php?t=15875&highlight=kill

Здесь тебе ответили, и ты благодарил. Так в чем же проблема?

[Rik3D]

Спасибо большое $€rg за ответ!!!
Avtopic я не понимаю - совета толкового не дал, а ты просто чтоли рейтинг повышаешь?!!!! так лучше дельными советами выделяться

[Avtopic]

Спасибо большое $€rg за ответ!!!
Avtopic я не понимаю - совета толкового не дал, а ты просто чтоли рейтинг повышаешь?!!!! так лучше дельными советами выделяться

Ты что, парен, не того?
В ветке, которую я указал, тему создавал ты, там отвечали тебе и ты
благодарил и опять вопрос, и я спрашиваю, какие проблемы еще,
чтобы можно было помочь.

Из твоего ответа видно, что ты считаешь, что здесь какие-то очки
можно зарабатывать отвечая кому-то на вопросы, тогда, скажу тебе,
что это болезнь твоя а не других.

[Rik3D]

Ты что, парен, не того?
В ветке, которую я указал, тему создавал ты, там отвечали тебе и ты
благодарил и опять вопрос, и я спрашиваю, какие проблемы еще,
чтобы можно было помочь.

Я извеняюсь, ты оказывется помочь хочешь!!!? просто я не правильно понял твою реплику

Цитата:
http://bbs.vbstreets.ru/viewtopic.php?t ... light=kill
Здесь тебе ответили, и ты благодарил. Так в чем же проблема?

Avtopic ветку я создал где-то год назад! И тогда kill работал.Щас не удаляет файлы.
А проблемма в следующем! вот мой код(в первой колонке на листе у ме5ня имена файлов а во второй колонке напротев каждого имени полный путь к файлу). Но вот проблемма почему-то не удаляются файлы?

Private Sub CommandButton2_Click()
kill Worksheets("файлы").Cells(ActiveCell.Address, 2).Value
ActiveCell.Selec
Selection.delete Shift:=xlUp
Unload UserForm1
End Sub

[Avtopic]

Cells(ActiveCell.Address, 2)

Это что такое?

[Rik3D]

Cells(ActiveCell.Address, 2)

- у меня в первом столбце имена файлов, а во втором напрокив каждого файла в первом столбце полный его путь. Так вот - это когда я кликаю двойным щелчком мыши по имени файла вылазиет форма с кномками да и нет. нажимаешь да и должен работать этот код:
Private Sub CommandButton2_Click()
kill Worksheets("файлы").Cells(ActiveCell.Address, 2).Value
ActiveCell.Selec
Selection.delete Shift:=xlUp
Unload UserForm1
End Sub

Cells(ActiveCell.Address, 2)

- это та ечейка (во втором столбце) напротив имени файла на который я нажимаю в первом столбце

[Avtopic]

1. Вопрос я понял Rik3D, но, Cells(ActiveCell.Address, 2) такая запись не существует в VB.
Возьми ActiveCell. Value, если ты это хочешь сделать, или
Cells(ActiveCell.Row, 2) если ты это имел в виду.

2. нужно объединить фазу из столбца фаз и имя файла из
столбца имен по одному из следующих двух принципов

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

Cells(ActiveCell.Row, 2) & Cells(ActiveCell.Row, 1)

или

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

Cells(ActiveCell.Row, 2) & Application.PathSeparator & Cells(ActiveCell.Row, 1)

Смотря, как ты их хранишь, там

Это и будет что ты должен Kill