Bagaimana untuk menyemak sama ada fail atau folder wujud dalam komputer anda dengan Excel VBA?

Tutorial automasi Office hari ini tertumpu pada pembelajaran cara mengesahkan bahawa fail wujud dalam salah satu direktori komputer anda.

Persediaan

Jika anda agak baru dalam pengekodan, pastikan tab pembangunan Microsoft Office Excel didayakan dan anda sudah biasa dengan beberapa asas Excel VBA .

Menyemak sama ada fail wujud dengan Excel VBA

Kod berikut memanfaatkan kotak input untuk menangkap laluan ke fail serta nama fail itu sendiri daripada pengguna.

Kemudian ia memanfaatkan kaedah Dir untuk mengesahkan sama ada laluan fail memang wujud.

Akhir sekali, ia memaparkan kotak mesej kepada pengguna dengan hasil semak.

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

Semak sama ada folder wujud

Dengan cara yang agak serupa, anda boleh menyemak sama ada folder tertentu wujud dalam sistem pengendalian anda. Juga di sini kita memanfaatkan kaedah Dir , tetapi dengan parameter 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

Menggunakan Kod

• Buka Microsoft Excel dan navigasi ke buku kerja anda.
• Tekan Pembangun dan kemudian tekan Visual Basic.
• Salin dan Tampal kod dari atas sebagai subrutin dalam sama ada helaian khusus modul VBA anda.
• Jalankan (F5) kod.
• Simpan buku kerja anda.

Sambungan yang mungkin

Kod plat dandang di atas dilanjutkan untuk kes penggunaan berikut:

• Buat folder / fail jika ia belum wujud.
• Padamkan fail folder dengan syarat ia terdapat dalam direktori fail sistem pengendalian anda.
• Cari fail/folder menggunakan kad bebas.