Bestäm Om Fil eller katalogen finns VBA Makro avgör om en fil eller katalog existerar.
Förklaring För att kunna avgöra om en fil eller katalog existerar kan vara användbart i vissa kodning situationer. Denna kod är en rättfram approach som loggar om ett fel uppstår när de försöker utnyttja GetAttr () om ett fel inträffar sedan den fil eller katalog uppenbarligen inte existerar. Hela VBA Excel-programmet finns att ladda ner längst ner på denna sida, njut!
Kod Public Sub DetermineIfFileDirectoryExists ()
Dim DetermineFileExists As Integer
Dim PathOfName As String
Range (C8) .Value = ""
Range (C8) .Interior.ColorIndex = 0
"If den filen inte finns kommer programmet att logga in ett fel
On Error Resume Next
PathOfName = Range ("C5") .Value + "" + Range ("C6") .Value
DetermineFileExists = GetAttr (PathOfName)
Select Case Err.Number
Case Is = 0
Range (C8) .Value = "Filen eller katalogen finns"
Range (C8) .Interior.ColorIndex = 4
Case Else
Range (C8) .Value = "Filen eller katalogen existerar inte"
Range (C8) .Interior.ColorIndex = 3
End Select
On Error GoTo 0
End Sub
Ladda ner Excel-fil!Determine_If_File_Or_Directory_Exists.xls |
