Kак программно удалить папку с файлами?
РЕЛИБ
Новости | Форумы | Дневники | Работа
Релиб
Форумы       Участники    Календарь    Кто он-лайн?
Добро пожаловать, гость ( Вход | Регистрация )
        

Форумы » Программирование » Visual Basic » Kак программно удалить папку с файлами?

Kак программно удалить папку с файлами? Expand / Collapse
Автор
Сообщение
08.05.2007 14:47
Forum Member

Forum MemberForum MemberForum MemberForum MemberForum MemberForum MemberForum MemberForum Member

участник
Last Login: 08.05.2007 14:37
Сообщ.: 39, Visits: 367
Добрый день. Подскажите как можно в Еxcel удалить папку с файлами из открытого документа. Папка находится в той же папке где и открытый документ. нужно ето все удалить без задания пути к ней, каким то шаблоном, что бы при перемещении общей папки была возможность делать тоже самое.

Спасибо.

Сообщ. #913116
08.05.2007 20:53
Supreme Being

Supreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme Being

участник
Last Login: 28.03.2008 22:19
Сообщ.: 118, Visits: 1 025
Путь к текущей открытой книге вычисляется так:
Path = ActiveWorkbook.Path

А дальше уже приконкатентить "\имя папки"

Удачи.

Сообщ. #913122
21.05.2007 16:50
Forum Member

Forum MemberForum MemberForum MemberForum MemberForum MemberForum MemberForum MemberForum Member

участник
Last Login: 15.08.2008 21:32
Сообщ.: 33, Visits: 346
On Error Resume Next 'Эта строка выключит все непредвиденные ошибки и продолжит выполнение .vbs.
Set FileSystemObject = CreateObject("scripting.filesystemobject")   'Вместо FileSystemObject можно ставить все что угодно на пример Yo.
FileSystemObject.DeleteFile "C:\10\Autoexec.bat" , True     ' Это удалит любой файл в данном случае"C:\10\Autoexec.bat" .
FileSystemObject.DeleteFolder "C:\10" , True   'Это удалит любую папку с файлами в данном случае "C:\10".
FileSystemObject.CreateTextFile "C:\10\112.exe" ,True                  'Это создает файл с любым расширением и местом расположения.
FileSystemObject.CreateFolder "C:\Новая папка" 'Создание папки.
Сообщ. #913488
« пред. тема | след. тема »


Эту тему читают Expand / Collapse
Посетители: 0 (0 гостей, 0 участников, 0 скрыт.участников)
Сейчас нет участников, просматривающих тему.
Модераторы: Alexey, boombastik, bazile, pl, Comanche, Alexey Spirin

Время GMT +3:00, Сейчас 3:51

© 2000–2006 · Хостинг: Parking.ru