Bestem Hvis fil eller mappe eksisterer VBA Makro afgør om en fil eller mappe findes.
Forklaring For at kunne afgøre, om en fil eller mappe findes kan være nyttigt i nogle kodning situationer. Denne kode er en simpel tilgang, logs hvis en fejl opstår, når de forsøger at bruge GetAttr (), hvis en fejl opstår så den fil eller mappe tydeligvis ikke eksisterer. Hele VBA Excel program kan downloades nederst på denne side, god fornøjelse!
Kode Public Sub DetermineIfFileDirectoryExists ()
Dim DetermineFileExists As Integer
Dim PathOfName As String
Range ("C8") .Value = ""
Range ("C8") .Interior.ColorIndex = 0
»If filen ikke eksisterer vil programmet logger en fejl
On Error Resume Next
PathOfName = Range ("C5") .Value + "" + Range ("C6") .Value
DetermineFileExists = GetAttr (PathOfName)
Select Case Err.Number
Case Is = 0
Range ("C8") .Value = "Fil eller Bibliotek eksisterer"
Range ("C8") .Interior.ColorIndex = 4
Case Else
Range ("C8") .Value = "Fil eller Bibliotek ikke eksisterer"
Range ("C8") .Interior.ColorIndex = 3
End Select
On Error GoTo 0
End Sub
Download excel filen!Determine_If_File_Or_Directory_Exists.xls |
