Današnji vodič za automatizaciju sustava Office usmjeren je na učenje kako provjeriti postoji li datoteka u jednom od direktorija vašeg računala.
Priprema
Ako ste donekle novi u kodiranju, provjerite je li kartica za razvoj programa Microsoft Office Excel omogućena i jeste li upoznati s nekim osnovnim Excel VBA .
Provjera postojanja datoteke pomoću Excel VBA
Sljedeći kod koristi okvire za unos kako bi uhvatio put do datoteke kao i sam naziv datoteke od korisnika.
Zatim koristi metodu Dir kako bi provjerio postoji li put datoteke doista.
Na kraju, korisniku prikazuje okvir s porukom s rezultatom provjere.
Sub Check_file_exists()
Dim NameDir As String
Dim NameFile As String
'Capture the file path and name from the users
NameDir = InputBox("Enter file directory")
NameFile = InputBox("Enter file name")
'Check whether the file exists
If (Dir(NameDir & NameFile)) = "" Then
MsgBox ("File doesn't exist")
Else
MsgBox ("File exists")
End If
End Sub
Provjerite postoji li mapa
Na sličan način možete provjeriti postoji li određena mapa u vašem operativnom sustavu. Također ovdje koristimo metodu Dir , ali s parametrom vbDirectory .
Sub Check_folder_exists()
Dim NameDir As String
NameDir = InputBox("Enter file directory")
If (Dir(NameDir, vbDirectory)) = "" Then
MsgBox ("Folder doesn't exist")
Else
MsgBox ("Folder exists")
End If
End Sub
Korištenje Koda
- Otvorite Microsoft Excel i idite do svoje radne knjige.
- Pritisnite Developer, a zatim pritisnite Visual Basic.
- Kopirajte i zalijepite kod odozgo kao potprogram u bilo koji određeni list vašeg VBA modula.
- Pokrenite (F5) kod.
- Spremite svoju radnu bilježnicu.
Moguća proširenja
Šifra kotlovske ploče iznad može se proširiti za sljedeće slučajeve upotrebe:
- Napravite mapu/datoteku ako već ne postoji.
- Izbrišite datoteku mape pod uvjetom da je prisutna u direktoriju datoteka vašeg operativnog sustava.
- Tražite datoteke/mape pomoću zamjenskog znaka.