| История развития программирования, программирование, языки программирования, книги программирование | На сайте представлена информация про программирование в Интернете и работу |
|
помогите с кодировкой, про сервлеты и <FORM> свойство объекта в переменной Timer+ProgressBar Где ошибка?, Где ошибка? Excel, работа с комментариями IExplorer & VBA, Вот вопросик, блин VB простые вопросы! StgOpenStorage Помогите!!! Нужен VB. Где взять?, Ищу VB Ухожу в отпуск!, Не флеймить и не ругаться! :) Программа на VB, не запускается...:(, Вечная проблема! Сохранение свойств объектов Файлы и папки, Помогите... Могу ли я сохранить рисонок выдаваемый РНР.... Как подключиться к таблице EXCEL через ODBC Excel сколько ячеек в листе для печати Помогите люди добрые сегодня зачет по ВБ, ответьте на 2 вопросика how to reload system Как Вы относитесь к курящим девушкам? КАК ПОЛУЧИТЬ НА КНОПКАХ ЗНАЧЕНИЯ ИЗ БД, А ЕСЛИ ЯЧЕ ПРОГЕРЫ, И ПРОСТО ХОРОШИЕ ЛЮДИ ПОМОГИТЕ!!!, Исправить баги, и кое-что добавить Запуск фильма Файловые ассоциации, как получить? Не могу остановить Асинхронное соединение (ADO), Connection И ещё один вопросик. :) WebBrowser элементы управления VBA, поле со списком Со строкой, как с массивом Базы данных, Несрочный вопрос! Проблемы с датами при поиске MS Access 2000 и элеькнт управления Data Передача данных в WebBrowser control, Способы передачи Определение подписи пунктов меню? Immediate Window, Immediate Window Учу ЯВУ, практика Интернет приложения, Пересылка текстовых строк Счетчик работы в интернете Дата Запуск *.EXE ?, как в Win98/95 запустить exe без .dll CheckBox в таблице OLE VSVIEW, Где его можно достать? Сделать надпись, которая отображается поверх ВСЕГО Есть две формы. В каждой ProgressBar TextBox+1,2,3 ...... Canvas => Image, как вырезать из Canvas и превратить.. Ширина столбца xl, Автоподбор Связь USB-устройства с ПК Копирование файлов на VB.NET, как лучше сделать... ПОМОГИТЕ С ПРАВИЛЬНОЙ РЕГИСТРАЦИЕЙ Два вопроса:как принудительно выгрузить программу;, И какие программы работают на компьютере Помогите! Переменная в ячейке и строке Доступ к другим программам, Доступ к другим программам Excel+Prozess+VB6, После закрытия програмы Ехсеl остается г Access VBA + реестр сравнение строк Помогите!!!, Криптография Batton1.Caption= вывести значение VB+Access+CommandCom.Caption объекты и свойства-помогите чайнику! Преобразование *.hlp файлов для VB, Подключение БД в виде *.hlp к VB Modem -> Ответный вызов, ждать звонка Как задать курсор для одной кнопки Как Вы относитесь к курящим девушкам? Как поймать конец процесса... Excel Application Jaba Builder ругается Выгрузка данных из текстового файла в массив Ms comun, Помогите!! Управление листами в Excel в VB. |
Платные хостинги Раскрутка сайта Книги по программированию Копирование файлов на VB.NET, как лучше сделать...
- Вобщем делаю прогу которая автоматом переносит файлы с сетевого диска на хард.На сетевом диске есть директория с файлами, а также в этой директории есть поддиректории (тоже с файлами) ну типа K:\файлы и K:\SYS\файлы итд Если делать просто DIR() то я получаю только файлы на K:\А если сделать DIR с атрибутом directory я получаю имя поддиректории SYS.Теперь чтоб получить имя файла в SYS вызываю DIR с путем SYS и все ок, имена файлов из поддиректории SYS считываются.Но как получить имя следующей поддиректории, ведь DIR уже считал имя файла, то есть, при вызове DIR с атрибутом directory я снова получаю SYS а мне нужен следующий подкаталог!Если сразу вызвать DIR с атриб. directory то он считывает все подряд: и файлы и поддиректории, но поддиректории он считывает не так, как мне нужно т.е. возвращяет просто имя SYS без слэша и именен файлов...Может кто разбирался с этими функциями? Как лучше сделать код? - Делаем подпрограмму (или функцию), которая принимает путь. Сперва она делает CHDIR по указаннному пути, потом DIR для получения списка файлов, затем DIR для получения списка подкаталогов, и наконец для каждого из полученных подкаталогов вызвать себя же, передав в качестве параметра подкаталог. Обычная рекурсия, короче... - Маловероятно что это будет работать.... так как DIR вначале должен вызываться с параметром пути, а затем, чтоб получить следующее имя - без параметров, а если его постоянно вызывать с параметром пути то и имя файла всегда будет одно и то же (первое), а без параметра пути первый раз DIR вызывать нельзя....я уже пробовал подобным образом все это в цикле сделать, но как написал выше, ничего невышло... - bankuss Здравствуй, милая моя! я тебе что, свою функцию DIR вместо системной предлагаю писАть? Сперва ты из текущего каталога выгребаешь по одному все файлы и все подкаталоги и только после этого начинаешь рекурсивный обход подкаталогов - которые ты нагреб в локальный массив. Это сообщение отредактировал Akina - 14.5.2004, 11:12 - ты имеешь ввиду имена поддиректорий складывать в строковый массив, а потом их "приклеивать" к пути и цеплять оттуда файлы? - bankuss Угусеньки. Типа так:Код Sub PrintFileList(ScanPath as String)Dim Temp as StringDim SubFolders(0 to 1000) as StringDim i as IntegerDim j as IntegerTemp=Dir(ScanPath & "\*.*",vbNormal)while Temp <> "" Debug.Print Temp Temp=Dirwendi=0SubFolders(i)=Dir(ScanPath & "\*.*",vbDirectory)while SubFolders(i)<> "" i=i+1 SubFolders(i)=Dirwendfor j=0 to i-1 call PrintFileList(SubFolders(j))next jend subhighlightSyntax('vbNjNTk5','vb'); - а уже так думал сделать но почему то хотелось без всяких массивов обойтись...оказалось низзя... - Это сообщение отредактировал Akina - 14.5.2004, 12:19 - я тоже к этому пришел так как этот код будет давать ошибку.Но тогда как отличить - каталог это или файл? - - с небольшими модернизациями и доработками все заработало... Добавлено @ 13:09 и ещеа можно ли сделать, чтоб копируемые файлы сжимались в zip?Я где то читал что есть dll зиповая, которую можно юзать в своих прогах - bankuss, еще тут можешь почитать по поводу первого вопроса:http://forum.vingrad.ru/index.php?showtopic=9458А по поводу второго задай вопрос отдельно- таковы правила.Ты их читал?  |