Jak korzystać z Dir $ w VB6

Język programowania Visual Basic nadal ma wiele zastosowań w nowoczesnym programowaniu i tworzeniu aplikacji, dlatego też możesz zagłębić się w jego składnię, aby aplikacje Twojej firmy mogły współpracować ze starszymi aplikacjami lub bibliotekami kodu. Korzystanie z funkcji Dir $ pozwala w łatwy sposób sprawdzić, jak wyszukiwanie plików i folderów odbywa się za pośrednictwem VB6.

1.

Użyj funkcji Dir $, aby sprawdzić, czy plik istnieje. Jeśli plik nie istnieje, funkcja zwraca pusty ciąg znaków. Poniższy kod określa, czy plik "example.txt" istnieje w katalogu C:

Jeśli Dir $ ("C: \ example.txt") = "" To Msgbox "nie ma tu!" Else Msgbox "tutaj" End If

2.

Użyj Dir $, aby sprawdzić, czy katalog istnieje. To polecenie jest identyczne z tym, które sprawdza, czy plik istnieje, ale wymaga użycia dodatkowego argumentu "vbDirectory" w wywołaniu funkcji. Ten przykładowy kod sprawdza istnienie folderu o nazwie "example" na partycji C:

Jeśli Dir $ ("C: \ example", vbDirectory) = "" To Msgbox "nie ma tutaj!" Else Msgbox "tutaj" End If

3.

Użyj Dir $, aby wyświetlić zawartość katalogu. Jeśli wiesz, że istnieje katalog, możesz użyć Dir $, aby wyświetlić listę plików w tym katalogu. Używając zmiennej o nazwie "nazwa", użyj polecenia Dir $ wraz z pętlą Do-While, aby pobrać nazwę każdego pliku w katalogu, który ma rozszerzenie pliku .txt:

Dim name As String

name = Dir $ ("C: \ example * .txt") Do Until name = "" Nazwa nazwy wydruku = Dir $ () Loop