Opgelost FileFolderExists

[DutchOirs]

Goedenavond,

Zit weer met een vraagje.
Heb een stukje code geschreven in een macro .
Hierin wordt gecheckt of een map bestaat.
Hieronder de code:

    Dim BestMap As String                       ' Map 2026 Update-Office aanmaken
    BestMap = ActiveWorkbook.Worksheets("Control").Range("AI61") & ActiveWorkbook.Worksheets("Control").Range("C14") & " " & ActiveWorkbook.Worksheets("Control").Range("AX50")
    If FileFolderExists(BestMap) Then           ' Als MAP 2026 Update-Office bestaat, gaat naar Door1
      MsgBox ("#UpD1 <><<<<<<<<<< Message Box >>>>>>>>>><>     " & vbNewLine & vbNewLine & "De Map is al aangemaakt! " & vbNewLine & vbNewLine & "U gaat gewoon door zonder een nwe map aan te maken!")
      GoTo Door1
    Else                                        ' Als MAP Niet bestaat, wordt deze gemaakt
      MsgBox ("#UpD2 <><<<<<<<<<< Message Box >>>>>>>>>><>     " & vbNewLine & vbNewLine & "De Map: " & ActiveWorkbook.Worksheets("Control").Range("AX50") & " wordt nu aangemaakt! " & vbNewLine & vbNewLine & "En " & ActiveWorkbook.Worksheets("Control").Range("AX51") & " wordt erin gekopieerd!")
      MkDir ActiveWorkbook.Worksheets("Control").Range("AI61") & ActiveWorkbook.Worksheets("Control").Range("C14") & " " & ActiveWorkbook.Worksheets("Control").Range("AX50")
      FileCopy ActiveWorkbook.Worksheets("Control").Range("AI61") & (ActiveWorkbook.Worksheets("Control").Range("C14").Value - 1) & " " & ActiveWorkbook.Worksheets("Control").Range("AX50") & "\" & ActiveWorkbook.Worksheets("Control").Range("AX51") & ".doc", ActiveWorkbook.Worksheets("Control").Range("AI61") & ActiveWorkbook.Worksheets("Control").Range("C14") & " " & ActiveWorkbook.Worksheets("Control").Range("AX50") & "\" & ActiveWorkbook.Worksheets("Control").Range("AX51") & ".doc"
Door1:  
End if

Op zich werkte het goed in een test-filtje, maar krijg nu de melding:

op FileFolderExsist van:
Compileer fout
Sub of Function is niet gedefineerd

Hoe kan ik dit het beste oplossen?

Thanks

Dutch

 

[DutchOirs]

Goedenavond,

Zit weer met een vraagje.
Heb een stukje code geschreven in een macro .
Hierin wordt gecheckt of een map bestaat.
Hieronder de code:

    Dim BestMap As String                       ' Map 2026 Update-Office aanmaken
    BestMap = ActiveWorkbook.Worksheets("Control").Range("AI61") & ActiveWorkbook.Worksheets("Control").Range("C14") & " " & ActiveWorkbook.Worksheets("Control").Range("AX50")
    If FileFolderExists(BestMap) Then           ' Als MAP 2026 Update-Office bestaat, gaat naar Door1
      MsgBox ("#UpD1 <><<<<<<<<<< Message Box >>>>>>>>>><>     " & vbNewLine & vbNewLine & "De Map is al aangemaakt! " & vbNewLine & vbNewLine & "U gaat gewoon door zonder een nwe map aan te maken!")
      GoTo Door1
    Else                                        ' Als MAP Niet bestaat, wordt deze gemaakt
      MsgBox ("#UpD2 <><<<<<<<<<< Message Box >>>>>>>>>><>     " & vbNewLine & vbNewLine & "De Map: " & ActiveWorkbook.Worksheets("Control").Range("AX50") & " wordt nu aangemaakt! " & vbNewLine & vbNewLine & "En " & ActiveWorkbook.Worksheets("Control").Range("AX51") & " wordt erin gekopieerd!")
      MkDir ActiveWorkbook.Worksheets("Control").Range("AI61") & ActiveWorkbook.Worksheets("Control").Range("C14") & " " & ActiveWorkbook.Worksheets("Control").Range("AX50")
      FileCopy ActiveWorkbook.Worksheets("Control").Range("AI61") & (ActiveWorkbook.Worksheets("Control").Range("C14").Value - 1) & " " & ActiveWorkbook.Worksheets("Control").Range("AX50") & "\" & ActiveWorkbook.Worksheets("Control").Range("AX51") & ".doc", ActiveWorkbook.Worksheets("Control").Range("AI61") & ActiveWorkbook.Worksheets("Control").Range("C14") & " " & ActiveWorkbook.Worksheets("Control").Range("AX50") & "\" & ActiveWorkbook.Worksheets("Control").Range("AX51") & ".doc"
Door1: 
End if

Op zich werkte het goed in een test-filtje, maar krijg nu de melding:

op FileFolderExsist van:
Compileer fout
Sub of Function is niet gedefineerd

Hoe kan ik dit het beste oplossen?
Weet even niet wat ik zo onder Module moet zetten.
Thanks

Dutch

 

[DutchOirs]

Heb dit gevonden in een module

Public Function FileFolderExists(strFullPath As String) As Boolean

    On Error GoTo EarlyExit
    If Not Dir(strFullPath, vbDirectory) = vbNullString Then FileFolderExists = True
EarlyExit:
    On Error GoTo 0
End Function

zou dit goed zijn?

 

[DutchOirs]

Heb dit gevonden in een module

Public Function FileFolderExists(strFullPath As String) As Boolean

    On Error GoTo EarlyExit
    If Not Dir(strFullPath, vbDirectory) = vbNullString Then FileFolderExists = True
EarlyExit:
    On Error GoTo 0
End Function

zou dit goed zijn?

Yep is gelukt

 

[edmoor]

Ik gebruik deze:

Public Function ExistFolder(strFolder As String) As Boolean
    ExistFolder = CreateObject("Scripting.FileSystemObject").FolderExists(strFolder)
End Function

 

[Warme bakkertje]

Of nog eentje .

Public Function PathExists(pname) As Boolean
'   Returns TRUE if the path exists
    Dim x As String
    On Error Resume Next
    x = GetAttr(pname) And 0
    If Err = 0 Then PathExists = True Else PathExists = False
End Function

 

[snb]

Zit gewoon in de standaard VBA-bibliotheek:

Sub M_snb()
   msgbox dir("G:\OF",16)<>""
End Sub