VBA aanmaken folder

[M.v.Veelen]

Hi,

we maken gebruik van een Excel-'formulier' waarin een hoop slimmigheidjes zijn verwerkt, onder andere met VBA code. Nu laat ik het bestand dat wordt aangemaakt wegschrijven in een subfolder met als naam het jaartal en dat doe ik als volgt:

code:

    Dim FSO As Object
    Dim SourceFileNameA, SourceFileNameB, DestinFileName, MoveFileName As String
    Set FSO = CreateObject("Scripting.Filesystemobject")
    SourceFileNameA = "C:\Temp\"
    SourceFileNameB = PartFileName
    MoveFileName = SourceFileNameA & SourceFileNameB
    DestinFileName = "\\path\Afgehandeld\" & Year(Now) & "\" & SourceFileNameB
    FSO.MoveFile BestandsNaam, DestinFileName

Nu heb ik voor de komende paar jaar al lege mapjes aangemaakt, maar ik zou heel graag automatisch een check willen doen of de jaar-map al bestaat. Zo niet: aanmaken. Enz.

Ik had dit bedacht:

code:

Sub TestForDir()
Dim strDir As String
    strDir = "\\path\Afgehandeld\" & Year(Now)
    
    If Dir(strDir, vbDirectory) = "" Then
        MkDir strDir
    Else

    End If
End Sub

Ik denk dat dit laatste wel zou moeten werken, maar hoe combineer ik dit in de code in het eerste blok?

[nescafe]

Je kunt TestForDir als enkele regel opnemen in je eerste routine en dan wordt hij uitgevoerd

Let erop dat je code ongebruikte regels bevat - ik weet niet of dat voor het voorbeeld is, maar SourceFileNameA, SourceFileNameB en MoveFileName zijn ongebruikt (of enkel toegewezen).

[SpamLame]

Als je het perse in een sub wilt doen >> https://docs.microsoft.co...b-and-function-procedures

Maar waarom niet gewoon inline in je eerste bloc

[M.v.Veelen]

Het was inderdaad zo simpel. Ik heb het nu inderdaad in het 1e blok/sub verwerkt en dat gaat prima. Thanks !