mappen aanmaken

Status
Niet open voor verdere reacties.
DClewis

DClewis

Gebruiker
Lid geworden
25 feb 2020
Berichten
46
Ik had de vraag al eerder gesteld en een antwoord gekregen.
Het werkte in eerste instantie ook maar ik moet best wat mappen aanmaken.
Nu werkt de code niet meer.
Het stukje code vet gedrukt MkDir sPad kleurt geel

Code: 
mappen sub()
For Rij = 1 To 200
   sPad = Sheets("Param").Range("D" & Rij).Value
    Pad = Split(sPad, "\")
    sPad = Pad(0)
    For i = 1 To UBound(Pad)
        sPad = sPad & "\" & Pad(i)
        If Dir(sPad, vbDirectory) = "" Then
       [B] MkDir sPad[/B]
        End If
    Next i
Next Rij
End sub

Wie helpt mij uit de brand?
 
Je hebt ook een foutmelding gekregen.
Die is belangrijker dan dat de regel geel kleurt.
Laat ook weten wat de waarde van de variabele sPad op dat moment is.
 
Laatst bewerkt:
Bij mij doet-ie het goed; weet je zeker dat alle cellen correct gevuld zijn? Je kunt, als de code stopt, makkelijk zien in je variabelen wat de actuele inhoud is door je muis er even boven te houden. Of door in het venster "Lokale variabelen" te kijken wat de variabelen doen op dat moment.
 
Allereerst bedank voor jullie reactie .
Mijn late reactie komt doordat ik een behoorlijke tijd de griep heb gehad.
Gelukkig geen Corona

De fout zit m in het padnaam en niet in de code ben ik inmiddels achter.
Dank jullie wel .
Voor mij is de vraag dus opgelost
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan