RE: Carpetas
Totalmente de acuerdo con la respuesta de acalanto (faltaría más que no estuviera de acuerdo... ni que me hubiera vuelto chocho de repente...). Pero voy a indicarte otra posibilidad: Se trata de una instrucción específica de VB:
If Dir( Nombre_Carpeta, vbDirectory) = "" Then
Está vacía = NO EXISTE ESA CARPETA
End If
Ahora tú usas la que mejor te resulte...