[kapetang]

Μετά τη γραμμή κώδικα: Dim strName As String στην 1η συνάρτηση

πρόσθεσε τον κώδικα:

    If Dir(strParentFolder, vbDirectory) = "" Then
        MkDir strParentFolder
    End If

Ο κώδικας ελέγχει αν υπάρχει ο φάκελος strParentFolder (=c:\test\) και αν δεν υπάρχει τον δημιουργεί.