VBA VB6 - kad testa DIR (direktorija) pazūd
Protams, vienkāršākais tests, lai pārbaudītu, vai direktorija ceļš ir derīgs, ir ...
Ja Dir (mydirectory) = "" Tad "Katalogs neeksistē vai nav labi sagatavots
Izņēmums ... Ja direktorija ceļš ir pareizi skatīts, bet tas ir tukšs, dažreiz var būt nepieciešams noteikt, vai direktorija pastāv, pat ja tā ir tukša.
Šādos apstākļos šis tests (lermite222) ir noderīgs
Vispārējā modulī
Publiskās funkcijas TestSiVide (Rep kā virkne) Kā garš Dim Obj, RepP, F On Error GoTo Error 'Ja direktorija nav atrasta Set Obj = CreateObject ("Scripting.FileSystemObject") Iestatiet RepP = Obj.Getfolder (Rep) Set F = RepP .Files TestSiVide = F.Count Set RepP = Nekas Set F = Nekas Output: Set Obj = Nekas Iziet Funkcija Kļūda: TestSiVide = -1 Resume Output 'Resume ir nepieciešama, lai izvairītos no problēmām kaudzē. Beigu funkcija Un koda ķermenī ...
Sub tests (Rep kā String) Dim Nb Tik ilgi, MyDirectory kā String Ja Rep "" Tad MyDirectory = Rep & IIf (Pa labi (Rep, 1) ", " ", " "" Nb = TestSiVide (MonRepertoir) " Atgriezties -1, ja kļūdu direktorija (kļūda 76) Ja Nb = 0 Tad MsgBox "Izvēlētā direktorija nesatur failu", vbCritical, "Atlasiet direktoriju" ElseIf Nb = -1 Tad MsgBox "Izvēlētā direktorija nav / vairs nav derīga ", vbCritical, " Atlasiet direktoriju "Else MsgBox" Izvēlētā direktorija ir derīga "Beigas, ja beigas, ja beigas