Tervehdys,
Mitenkäs saan makrolla poistettua tyhjiä kansioita, ts. jos kansio on tyhjä. kansiot ovat numeroituja välillä 1-200000, joten ajattelin jotain tällaista:
for laskuri = 1 to 200000
If "e:\" & laskuri = Null Then
RmDir "e:\" & laskuri
End If
next
mutta mitenkäs se oikeasti menee, sillä toihan on vain hahmotelma
Kiitos avustanne
Mitenkäs saan makrolla poistettua tyhjiä kansioita, ts. jos kansio on tyhjä. kansiot ovat numeroituja välillä 1-200000, joten ajattelin jotain tällaista:
for laskuri = 1 to 200000
If "e:\" & laskuri = Null Then
RmDir "e:\" & laskuri
End If
next
mutta mitenkäs se oikeasti menee, sillä toihan on vain hahmotelma
Kiitos avustanne
Vastaukset 2
Vanhimmat
Rmdir poistaa vain tyhjiä kansioita ja On Error Resume Next komennolla kuitataan virhe(kun kansio ei ole tyhjä)
Sub Poista()
On Error Resume Next
For laskuri = 1 To 200000
RmDir "e:\" & laskuri
Next
End Sub
Voi että olinpa lähellä onnistumista itsekkin, mutta kun ei ihan riittävästi osaa niin ei voi mitään.
Kiitos tuhannesti.