Excel uitlezen en mappen verwijderen.

[Phebe]

Goedendag,

Ik heb forum doorzocht maar ik kon mijn onderwerp niet vinden, vandaar mijn volgende vraag;

Ik moet voor m'n project lege mappen verwijderen. Deze mappen heb ik in een excelsheet in kolom A onderelkaar staan.

Met onderstaande kan ik 1 map verwijderen.

[
Set fso = CreateObject("Scripting.FileSystemObject")



fso.DeleteFolder "C:\VB\Test", True
]

Maar nu wil alle mappen in mijn excelsheet die kolom A onderelkaar staan uitlezen en verwijderen.

Ik heb niet veel ervaring maar ik heb een begin voor het uitlezen gevonden;

[
Function UitLezenExcelSheet()

Dim strSheet
Dim objExcel
Dim objWorkBook

Dim intRow
Dim intKolom

strSheet = "c:\Beheer\Scripts\Mappenverwijderen.xls"

' Open the Excel spreadsheet
Set objExcel = CreateObject("Excel.Application")
Set objWorkBook = objExcel.Workbooks.Open(strSheet)

' Row 1 often contains headings
intRow = 2

' Here is the 'DO...Loop' that cycles through the cells
' Note intRow, x must correspond to the column in strSheet
Do Until objExcel.Cells(intRow,1).Value = ""

intKolom = 2

]

Kan iemand me hiermee verder helpen?

Alvast bedankt voor de genomen moeite.

 

[Wigi]

ongeteste code

Sub MappenVerwijderen()
    
    Dim bestand As Workbook
    Dim cel As Range
    
    Const strSheet As String = "c:\Beheer\Scripts\Mappenverwijderen.xls"

    Set bestand = Workbooks.Open(strSheet)
    
    For Each cel In bestand.Sheet(1).Range("A2", bestand.Sheet(1).Range("A" & Rows.Count).End(xlUp))
    
        VerwijderMap (cel.Text)
        
    Next
    
    bestand.Close 0
    
    Set bestand = Nothing

End Sub

Function VerwijderMap(sMap As String)

    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.DeleteFolder sMap, True
    
End Function

Wigi

PS: code tags zijn [ CODE] en [ /CODE] rondom de code, zonder spaties erin

 

[Phebe]

foutmelding

Hartelijk bedankt voor je reactie.
Ik ben erg blij mee.

Alleen krijg ik nu volgende foutmeling;

Line: 18
Char: 17
Error: Expected end of statement
Code: 800A0401
Source: Microsoft VBScript compilation error

en line: 18 char: 17 komt uit bij de As van;

Dim Bestand As Workbook

 

[snb]

Dit moet voldoende zijn.

sub weg()
  with workbooks.add("C:\Beheer\Scripts\Mappenverwijderen.xls")
    for each cl in .sheets(1).columns(1).specialcells(xlcelltypeconstants)
       createobject("scripting.filesystemobject").deletefolder cl.value
    Next
    .close false
  End With
End Sub

 

[Phebe]

bedankt

Ik denk dat het wel gaat lukken.
thnx