Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Как переместить все файлы одного расширения(нап... Добавлено: 21.03.03 08:30  

Автор вопроса:  VisBas | Web-сайт: chipmicro.narod.ru
Как переместить все файлы одного расширения(например *.txt) из одной папки в другую ?

Ответить

  Ответы Всего ответов: 2  

Номер ответа: 1
Автор ответа:
 Bratok



ICQ: 5585601 

Вопросов: 0
Ответов: 15
  Профиль | | #1 Добавлено: 21.03.03 17:44

Размести на форме CommandButton и FileListBox

Dim Dir1 As String
Dim Dir2 As String

Private Sub Form_Load()
Dir1 = "c:\1\" ' дирректория откуда совершается копироватье
Dir2 = "c:\2\" ' дирректория куда совершается копированье
End Sub

Private Sub Command1_Click()
File1.Pattern = "*.txt" ' расширение
File1.Path = Dir1
For i = 0 To File1.ListCount - 1
FileCopy Dir1 & File1.List(i), Dir2 & File1.List(i)
Next
End Sub

Может можно и проще, но так вроде тожа работает...

Ответить

Номер ответа: 2
Автор ответа:
 VisBas



Вопросов: 44
Ответов: 127
  Web-сайт: chipmicro.narod.ru
 Профиль | | #2 		Добавлено: 22.03.03 01:47
Спасибо .  Все работает !!!

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам