Bestand verplaatsen met extra data uit een cel

[edmoor]

Het bronpad bevat spaties, maak er dus eens dit van:

ar = Split(CreateObject("WScript.Shell").Exec("cmd /c dir /b [COLOR="#FF0000"]"""[/COLOR] & c00 & "*.xlsm[COLOR="#FF0000"]"""[/COLOR]).StdOut.readall, vbCrLf)

 

[ExcelTonnie]

Zoiets al dit bedoel je dus.

 

[ExcelTonnie]

Bron geprobeerd zoals Edmoor voorstelde en dit werkt.
Thx voor jullie hulp.

 

[HSV]

De bedoeling is om alle bestanden die in een bepaalde map staan om deze te verplaatsen naar een map op een server met toevoeging in de naam uit cel A1.

Sub hsv()
CreateObject("scripting.filesystemobject").movefolder "c:\temp\map1", "c:\temp\map2"
End Sub