Excel VBA ile bilgisayarınızda bir dosya veya klasör olup olmadığı nasıl kontrol edilir?

Bugünün Office otomasyon öğreticisi, bilgisayar dizinlerinizden birinde bir dosyanın var olduğunu nasıl doğrulayacağınızı öğrenmeye odaklanmıştır.

Hazırlık

Kodlama konusunda biraz yeniyseniz, Microsoft Office Excel geliştirme sekmesinin etkinleştirildiğinden ve bazı temel Excel VBA'larına aşina olduğunuzdan emin olun .

Excel VBA ile bir dosyanın olup olmadığını kontrol etme

Aşağıdaki kod, kullanıcıdan dosya adının yanı sıra dosya yolunu da yakalamak için giriş kutularından yararlanır.

Ardından , dosya yolunun gerçekten var olup olmadığını doğrulamak için Dir yönteminden yararlanır.

Son olarak, kullanıcıya kontrol sonucunu içeren bir mesaj kutusu görüntüler.

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

Bir klasör olup olmadığını kontrol edin

Oldukça benzer bir şekilde, işletim sisteminizde belirli bir klasörün olup olmadığını kontrol edebilirsiniz. Ayrıca burada Dir yönteminden yararlanıyoruz, ancak vbDirectory parametresiyle.

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

Kodu Kullanmak

• Microsoft Excel'i açın ve çalışma kitabınıza gidin.
• Geliştirici'ye ve ardından Visual Basic'e basın.
• Yukarıdaki kodu kopyalayıp VBA modülünüzün belirli bir sayfasında bir alt program olarak yapıştırın.
• (F5) kodunu çalıştırın.
• Çalışma kitabınızı kaydedin.

Olası uzantılar

Yukarıdaki kazan plakası kodu, aşağıdaki kullanım durumları için genişletilmiştir:

• Zaten yoksa bir klasör/dosya oluşturun.
• İşletim sistemi dosya dizininizde bulunmaları koşuluyla bir klasör dosyasını silin.
• Bir joker karakter kullanarak dosya/klasör arayın.