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.
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.