Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Операции с папками, Бред какой - то происходит 
V
    Опции темы
alt5000
Дата 29.1.2007, 10:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 40
Регистрация: 9.4.2006
Где: г. Выборг

Репутация: нет
Всего: нет
Не могу понять в чем обшибка в следующем коде. По идее переменная a должна содержать какое - то значение, но она содержит "" , то есть говоря о том. что никаких файлов в этой директории нет, хотя он там уже есть !!! Помогите разобраться, а то бред какой-то получается. Заранее благодарен.

Код

Private Sub Form_Load()
MkDir ("Directory") 'Создает директорию
'Записывает в директорию файл (чтобы она не была пустой и определялась Dir)
Open "Directory\test.txt" For Random As #1
Close #1

a = Dir("Directory")'Передает в переменную a результат.
Kill "Directory\*.*"'Удаляет файлы из директоррии
RmDir ("Directory")'Удаляет уже пустую папку, чтобы при последующем выполнении программы не было обшибки
End Sub
PM MAIL WWW   Вверх
Akina
Дата 29.1.2007, 10:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Правильно.

Параметр attributes не указан, следовательно ищется vbNormal
Файла с именем Directory и атрибутами vbNormal в текущем каталоге нет - возвращается пустая строка.

Рекомендуется перед использованием функции читать ее описание ДО ПОЛНОГО ПОНИМАНИЯ.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
alt5000
  Дата 29.1.2007, 15:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 40
Регистрация: 9.4.2006
Где: г. Выборг

Репутация: нет
Всего: нет
Цитата(Akina @ 29.1.2007,  10:37)
Правильно.

Параметр attributes не указан, следовательно ищется vbNormal

Вы не могли бы подсказать, какие аттрибуты нужно указать, чтобы программа работала правильно...  smile 
PM MAIL WWW   Вверх
Akina
Дата 29.1.2007, 19:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
alt5000, я понятия не имею, какие ВАМ нужны атрибуты. Но очень бы хотелось видеть, что Вы ПРОЧИТАЛИ описание функции, ПОНЯЛИ назначение каждого параметра (включая значения констант) и ИЗУЧИЛИ примеры использования функции. Этого ДОСТАТОЧНО для написания верного кода.

PS. Но если хотите - я отправлю тему в Центр помощи. 


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
alt5000
Дата 30.1.2007, 09:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 40
Регистрация: 9.4.2006
Где: г. Выборг

Репутация: нет
Всего: нет
Нет, спасибо. Я разобрался и дело было вовсе не в аттрибутах как Вы утверждали.
Просто использовал конструкцию
Код

Dir("Имя папки\*.*")


Но за помощь спасибо.

Добавлено @ 10:01 
Всем спасибо за помощь. Тема закрыта  smile 
PM MAIL WWW   Вверх
Akina
Дата 30.1.2007, 11:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(alt5000 @  30.1.2007,  10:59 Найти цитируемый пост)
Просто использовал конструкцию

ОБ этом я говорил:
Цитата(Akina @  29.1.2007,  11:37 Найти цитируемый пост)
Файла с именем Directory [skipped] в текущем каталоге нет




--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0566 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.