Map maken

Status
Niet open voor verdere reacties.
R

Ron001

Gebruiker
Lid geworden
4 dec 2017
Berichten
384
Ik heb deze eens geprobeerd, maar voor alle zekerheid vraag ik het hier nog eens na;

Als de map al bestaat en er zit iets in qua bestand, wordt deze toch nooit zeker overschreven of de map leeg gemaakt?

Code: 
Sub Maakmap()
Dim MyRange As String
MyRange = Range("C1")
Dim vFolderList As Variant, i As Long
vFolderList = Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row).Value
On Error Resume Next
For i = 1 To UBound(vFolderList, 1)
    MkDir MyRange & vFolderList(i, 1)
Next
End Sub
 
Laatst bewerkt:
Dat zou inderdaad zo moeten werken, maar als er iets fout gaat zie je dat niet door die On Error Resume Next.
Haal die regel weg en wijzig de For loop in dit:
Code: 
For i = 1 To UBound(vFolderList, 1)
    fldr = MyRange & vFolderList(i, 1)
    If Dir(fldr, vbDirectory) = "" Then MkDir fldr
Next
 
Laatst bewerkt:
Zo? Kan het zijn dat deze trager is/lijkt?

Code: 
Sub Maakmap()
Dim MyRange As String
MyRange = Range("C1")
Dim vFolderList As Variant, i As Long
vFolderList = Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row).Value
For i = 1 To UBound(vFolderList, 1)
    fldr = MyRange & vFolderList(i, 1)
    If Dir(fldr, vbDirectory) = "" Then MkDir fldr
Next

End Sub
 
Hij doet natuurlijk een extra controle, maar het lijkt me sterk dat je daar iets van merkt.
 
Juist dankzij die foutafhandeling kan er niets mis gaan

Code: 
Sub M_snb()
  On Error Resume Next
  sn=cells(1).currentregion.resize(,3)

  For j = 1 To UBound(sn)
    MkDir sn(1,3) & sn(j,1)
  Next
End Sub
 
Welke combinatie of welke macro? Dat ik zeker als de map al bestaat met informatie in, deze niet overschrijf door een lege map...
 
Dat laatste kan nooit.
 
Dus de bestaande map met alle info in deleten en een nieuwe aanmaken met dezelfde naam kan nooit?
 
Niet met wat snb en ik lieten zien.
Het verwijderen van een mappenstructuur kan wel maar daar is meer voor nodig.
Dat doe je niet per ongeluk.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan