El problema esq el path de los discos duros tiene un \ al final, por ejemplo, C:\, pero el path de las carpetas no, por ejemplo C:\Carpeta. Para solucionarlo comprueba si el directorio es una unidad o una carpeta viendo su longitud, y sólo si su longitud es mayor de 3 le añades el \. Por ejemplo:
Código:
If Len(Dir1.Path) = 3 Then MsgBox Dir1.Path, vbOKOnly, "" Else MsgBox Dir1.Path & "\", vbOKOnly, "" End If
La aplicación DHTML hay q instalarla para q funcione como si fuera un control Active X, en tu PC se instala automáticamente al compilar el proyecto, pero en otro ordenador tendrás q hacer q se instale antes de poder usarla.
Hay se explica cómo hacer q una página web invite a descargar un ActiveX.