Code van snb: bestanden komen in verkeerde map

[jansm]

Hallo, deze code heb ik van snb. De herbenoeming van de .csv bestanden gaat goed alleen worden deze bestanden in de map "Mijn Documenten" geplaatst. Weet iemand hoe dit komt? Ik wil ze in de map die aangegeven is in de code?

Mvg, Jansm

Sub M_snb()
Dim wb As Workbook

sn = Split(CreateObject("wscript.shell").exec("cmd /c Dir C:\Archief\PROCESSING\PROBEERSELS\*.csv /b").stdout.readall, vbCrLf)

For j = 0 To UBound(sn) - 1
Name "C:\Archief\PROCESSING\PROBEERSELS\" & sn(j) As Split(sn(j), "_")(1) & ".csv"
Next

End Sub

 

[edmoor]

Misschien omdat er geen doelmap wordt opgegeven? Probeer die Name opdracht eens zo:
Name "C:\Archief\PROCESSING\PROBEERSELS\" & sn(j) As "C:\Archief\PROCESSING\PROBEERSELS\" & Split(sn(j), "_")(1) & ".csv"

 

[jansm]

Hallo Edmoor, dat was h'm. Weer bedankt.
Waarom lukt mij dat zelf niet? Heb zitten pielen van hier tot Tokyo.

 

[edmoor]

Dat weet ik uiteraard ook niet
Ik zou 'm dan trouwens nog iets anders doen i.v.m. leesbaarheid en gemak van evt. aanpassingen:

Map = "C:\Archief\PROCESSING\PROBEERSELS\"

sn = Split(CreateObject("wscript.shell").exec("cmd /c Dir " & Map & "*.csv /b").stdout.readall, vbCrLf)
For j = 0 To UBound(sn) - 1
    Name Map & sn(j) As Map & Split(sn(j), "_")(1) & ".csv"
Next j

Op deze manier hoef je maar 1x de map aan te passen als het een andere map moet worden, in plaats van 3x.

 

[jansm]

... zinvolle verbetering!!!
Neem vanavond nog een biertje van mij.

 

[edmoor]

Dat laat ik me geen 2x zeggen