Naam van bestandsmap wijzigen met VBA

[123peter]

hallo,

ik heb in Excel een lijst met plaats, adres, huisnummer en een projectnummer.
en in C:\005\ heb ik mappen met dezelfde naam als deze projectnummer's

nu wil ik de naam van deze bestandsmappen aanpassen in

projectnummer + plaats + straat + huisnummer.
dit lukt met onderstaand programma.
( hij werkt nu niet meer ?, ik heb er al te veel mee geprutst denk ik )
( maar als iemand weet wat het probleem is, lees ik dit hier graag )

alleen kan ik nu NIETS meer met deze map.

ik kan hem niet verwijderen , verplaatsen of hernoemen.

ik krijg de melding: "kan dit item niet vinden, dit item bevindt zich niet langer in C:\005. Controleer de locatie van het item en probeer het opnieuw"

toch staat de map er nog gewoon ?



Sub Knop1_Klikken()

MyPath = "C:\005\"

Dim projectnummer As String
Dim plaats As String
Dim adres As String
Dim huisnr As String

Cells(ActiveCell.Row, 1).Select

kLIC01:

If ActiveCell.Value = "" Then

Else
With ActiveCell
plaats = ActiveCell.Value
adres = .Offset(0, 1).Value
huisnummer = .Offset(0, 2).Value
projectnummer = .Offset(0, 3).Value
End With
Name MyPath & projectnummer As MyPath & projectnummer & " " & plaats & " " & adres & " " & huisnr & "\"
ActiveCell.Offset(1, 0).Select
GoTo kLIC01
End If
End Sub

 

[OctaFish]

Zou je eens kunnen beginnen met je code op te poetsen. Nu is het een nodeloos lange lastig te lezen zooitje. En dat houdt dus in: overtollige lege regels verwijderen (waarom zitten die daar überhaupt?) en opmaken met de CODE knop. We willen graag de structuur van je code kunnen herkennen, met inspringen etc. Kortom: lever je code netjes aan