• Звідки: Черкаси
  • Дата реєстрації: 08.04.2014
  • Повідомлень: 57
    • Репутація: 1

Тема: файли у Visual Basic

Як відтворити пошук по назвам файла, з певного каталогу файлів (папки)?

2 Відповідь від koala

  • koala
  • koala
  • Лінива тваринка
  • Поза форумом
  • Дата реєстрації: 01.05.2013
  • Повідомлень: 15 620
    • Репутація: 13333

Re: файли у Visual Basic

Вам .Net чи WinAPI? І взагалі - гуглом користувалися?

koala вебсайт

3 Відповідь від lichmanmaksim Востаннє редагувалося lichmanmaksim (19.07.2014 17:44:40)

  • Звідки: Черкаси
  • Дата реєстрації: 08.04.2014
  • Повідомлень: 57
    • Репутація: 1

Re: файли у Visual Basic

WinAPI напевно. потрібно щоб коли я в textbox ввів назву файлу та за допомогою кнопки мені відкрило другу форму та на новому textbox висвітило його дані, а якщо файла такого не існує, діалогове вікно яке про це повідомляло. все це розташування, вікна та форуми я зробив от тільки принцип знаходження я не зрозумію.
ось щось на кшталт моєї логіки роботи VB в цій формі:    

Private Sub Command3_Click()
Dim a4
Load Form2
aa = "\chancery\" + a4 + ".txt"
f = FreeFile
Open aa For Input As f
Form2.Show
a4 = Text1.Text
Text1.Text = Input(LOF(f), f)
Close f
End Sub


усі змінні які не оголошені в цій формі присутні у модулі
сайт про WinAPI - представляє собою цікаві методи побудування та пошук тих фалів але чомусь у мене ті 2 способи не працюють

4 Відповідь від 0xDADA11C7

  • Звідки: Дніпрожидівськ
  • Дата реєстрації: 14.02.2014
  • Повідомлень: 5 707
    • Репутація: 5777

Re: файли у Visual Basic

Який у вас бейсік? 5.1/6.0/.NET/VBA?

5 Відповідь від lichmanmaksim

  • Звідки: Черкаси
  • Дата реєстрації: 08.04.2014
  • Повідомлень: 57
    • Репутація: 1

Re: файли у Visual Basic

6.0 - він від 2013 здається кращим

6 Відповідь від 0xDADA11C7

  • Звідки: Дніпрожидівськ
  • Дата реєстрації: 14.02.2014
  • Повідомлень: 5 707
    • Репутація: 5777

Re: файли у Visual Basic

Бейсік 6.0 1998 року випуску, підтримка якого закінчилася у 2005 році.
Відповім, якщо ми про однаковий бейсик балакаємо.

lichmanmaksim написав:

але чомусь у мене ті 2 способи не працюють

Тому, що ви маєте спершу підключити вінапі функції
Але я раджу глянути на FileSystemObject

Dim fso, f1, ts
Set fso = CreateObject("Scripting.FileSystemObject")
f1 = fso.GetFile("c:\detlog.txt")
Set ts = f1.OpenAsTextStream(ForWriting, True)
Подякували: 0x9111A, lichmanmaksim2