Bepaalde files verplaatsen a.d.v. aangemaakte Map.

[ExcelTonnie]

In de map Y:\Werk worden een 9 tal files geplaatst door collega's
De data wil ik verwerken en van Cel G3 wordt een map aangemaakt.
Eenmaal als deze files ingelezen zijn dan moeten de 9 files verplaatst worden naar die aangemaakte map.
Kom een eind maar nog niet correct hij verplaatst de file naar Y:\Werk\Export2\\

In het voorbeeld alleen 1 file die verplaatst wordt.

Sub MAPmaken()


'Map aanmaken
    c00 = "Y:\Werk\Export2\\"
    ' Hier wordt van de waarde uit cel G3 (dit is een datum) een mapnaam aangemaakt.
    x = Range("G3").Value
   
  
    If Dir(c00 & x, 16) = "" Then MkDir c00 & x
    Name "Y:\Werk\R&RTEST10000.txt" As c00 & "R&RTEST10000.txt"
   
    
    
    
End Sub

 

[snb]

Sub M_snb()
    c00 = "Y:\Werk\Export2\"
    c01 = c00 & Range("G3").Value
    If Dir(c01, 16) = "" Then MkDir c01

    c02 = Dir("Y:\Werk\*.txt")
    do until c02=""
      Name "Y:\Werk\" & c02 As c01 & "\" & c02
      c02 = Dir
    loop
End Sub

 

[ExcelTonnie]

Heb de code overgenomen maar hij plaatst alle .txt files naar de export2 map en hierin wordt ook de map aangemaakt met de naam uit de waarde van G3.

De bedoeling is dus dat de .txt files in de aangemaakte map komt.

 

[snb]

De code is wat aangepast. Heb je de laatste versie gebruikt ?
Met F8 voer je de macro per regel uit en kun je gemakkelijk controleren wat er gebeurt.

 

[ExcelTonnie]

Het werkt nu, super

bedankt voor de hulp.