Checken en aanmaken map op netwerk

Status
Niet open voor verdere reacties.
T

TEP

Gebruiker
Lid geworden
2 nov 2017
Berichten
42
zou via excel VBA willen checken of een bepaalde map op het netwerk reeds bestaat, en als dat niet het geval is, deze aanmaken.
heb in de help gezocht, maar krijg zoveel mogelijkheden dat ik niet vind wat ik moet hebben.

iemand tips?

dank.
 
Code: 
Public Function FolderExists(strFolderName) As Integer
On Error GoTo Err_FolderExists

    Dim objFS As Object
    Dim objFolder As Object
    
    Set objFS = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFS.GetFolder(strFolderName)
    FolderExists = 1
    
Exit_FolderExists:
    Set objFS = Nothing
    Set objFolder = Nothing
    Exit Function
    
Err_FolderExists:
    FolderExists = 0
    
    Resume Exit_FolderExists
    

End Function
 
thanks. had 'm ondertussen ook via google gevonden en hier aangeduid als zijnde 'opgelost'.
wist niet wat de jusite procedure was en ook niet hoe ik de thread terug kon verwijderen.

in elk geval hartelijk dank!
 
is dit niet voldoende?
Code: 
Function test(c00 As String) As Boolean
  test = Dir(c00, 16) <> ""
End Function
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan