Nieuwe directory aanmaken via macro

[Gesus]

Hallo allemaal,

In excel heb ik een cel genaamd "nieuwe_directory" waarin bv de tekst "C:\budget\2008\versie12\" staat.
Dit is een doeldirectory waarin allemaal files komen te staan.

Kun je ook in een macro bepalen of deze directory bestaat en zo nee, deze directory dan via de macro laten aanmaken? Deze vraag sluit aan bij mijn zonet gestelde vraag in dit forum....

Thanx!!

Gesus

 

[Roncancio]

Aanmaken van de directory Gesus op de C-drive:

MkDir C:\Gesus\

Verwijderen van ALLE bestanden in de dezelfde directory.
Hierna wordt de directory zelf ook verwijderd.:

Kill " C:\Gesus\*.*"
RmDir C:\Gesus\

Met vriendelijke groet,


Roncancio

 

[Gesus]

Hé Roncancio,

Zoals tegenwoordig wel vaker: dank voor de snelle reactie.

Wordt de macro dan zoiets?

nieuwe_directory = Range("nieuwe_directory").Text
' (hier is dus de naam van de excel-cel en de variabele in de macro gelijk gehouden)[/I]
RmDir "nieuwe_directory" (om de oude directory weg te halen)
MkDir "nieuwe_directory" (om een nieuwe lege directory te creeren)

Gaat de macro dan wel goed indien er hij probeert een directory weg te halen die bv nog niet is?

Thanx!

Gesus

 

[Roncancio]

Via onderstaande code wordt gecontroleerd of de directory die in cel A1 staat, wel bestaat.
Als deze directory niet bestaat dan wordt deze aangemaakt.

If Len(Dir(Range("A1").Value)) = 0 Then
    MkDir (Range("A1").Value)
End If

Met vriendelijke groet,


Roncancio

 

[Wigi]

Pas op met MkDir: alle bovenliggende mappen moeten daarbij bestaan!

 

[Gesus]

Hallo allemaal....

Het lukt mij niet. Ik krijg steeds foutmeldingen en haak helaas af.
Dank voor de goede bedoelingen. Ik heb één en ander handmatig opgelost en de verantwoordelijkheid voor het leegmaken, verwijderren en daarna opvoeren van een nieuwe directory bij de eindgebruiker neergelegd.

Nogmaals dank

Gesus

 

[Gesus]

Hallo allemaal,

Ik heb de oplossing voor mijn probleem (mede met jullie aller hulp) gevonden.

Bij een directory met meerdere subdirectory's bv C:\budget\2008\test\plan4\versie12\) moet je eerst de naar de juiste directory springen en dan de laatste subdirectory verwijderen:

ChDir ("C:\budget\2008\test\plan4")
RmDir ("versie12\")

Op dezelfde manier kun je ook via MkDir een subdirectory maken.

Waarschijnlijk had ik de vraagstelling beter moeten formuleren, maar toch dank voor de tijd!

met vriendelijke groet,
Gezinus