Wie kan me hier uit helpen? Ik probeer in een folder alle pdf bestanden te wissen die beginnen met een naam (komt uit form txtKlasgroep) en alles wat er achter komt. Elke keer loopt ik vast, wat is hier mis?
Elke keer loop is vast bij: Set fldr1
Bedankt
Elke keer loop is vast bij: Set fldr1
Bedankt
Code:
Dim objFSO1 As Object
Dim fldr1 'moet hier nog iets achter?
Dim path1 As String 'Variant werkt ook niet
path1 = "C:\A-POL\PDFtePrinten"
Dim file1 As Variant
file1 = Form_B4groepKlas.txtKlasgroep.Value & "*.pdf" ' Forms!B4groepKlas.. werkt ook niet
Set objFSO1 = CreateObject("Scripting.FileSystemObject")
Set fldr1 = objFSO.GetFolder(path1)
For Each file1 In fldr1.Files
file1.Delete
Next
Set objFSO1 = Nothing
Set file1 = Nothing