VBA, aşağıdakileri kullanarak bir dosya veya klasörün var olup olmadığını kontrol etmenizi sağlar. Yön işlev.
Bir Dosyanın Var Olup Olmadığını Kontrol Etmek İçin Dir Komutunu Kullanma
Girişte de belirttiğimiz gibi, Yön işlevi, bilgisayarda seçilen bir dosyanın olup olmadığını kontrol etmemizi sağlar. İşte kod:
| 123456789101112131415 | Alt CheckFileExists ()Dim strFileName As StringDim strFile String Olarak VarstrFileName = "C:\Users\Nikola\Desktop\VBA makaleleri\Test Dosyası Exists.xlsx"strFileExists = Dir(strFileName)Eğer strFileExists = "" O zamanMsgBox "Seçilen dosya mevcut değil"BaşkaMsgBox "Seçilen dosya mevcut"BitirAlt Bitiş |
İlk önce dosya yolunu değişkene atadık strDosyaAdı. Sonra kullanırız Yön dosya adını değişkene alma işlevi strFileVar. Dosya dizinde varsa, adı dize değişkenine atanacaktır. strFileVar. Eğer yoksa o zaman strFileVar boş kalacaktır. Son olarak, dosyanın var olup olmadığını bize bildiren mesaj kutusu belirir.
Bir Klasörün Var Olup Olmadığını Kontrol Etmek İçin Dir Komutunu Kullanma
Bir dosyanın var olup olmadığını kontrol etmeye benzer şekilde, bir klasörün var olup olmadığını kontrol edebilirsiniz. Sadece bir argüman eklemeniz gerekiyor Yön emretmek. Koda bakalım:
| 123456789101112131415 | Alt CheckFolderExists ()Dim strFolderName As StringDim strFolder String Olarak MevcutturstrFolderName = "C:\Kullanıcılar\Nikola\Desktop\VBA makaleleri\Test Klasörü\"strFolderExists = Dir(strFolderName, vbDirectory)Eğer strFolderExists = "" O zamanMsgBox "Seçilen klasör mevcut değil"BaşkaMsgBox "Seçilen klasör mevcut"BitirAlt Bitiş |
Önce klasör yolunu değişkene atadık strKlasörAdı. Sonra kullanırız Yön dosya adını değişkene alma işlevi strFileVar. Bir klasörü kontrol etmek için, fonksiyona ikinci argümanı eklememiz gerekiyor - vbDirecotry. Klasör dizinde varsa, adı değişkene atanacaktır. strFolderVar. değilse strFolderVar boş kalacak.
