crear carpeta

adt
24 de Marzo del 2006
podeis decirme si ahi algun codigo, para, por ejemplo, que yo ponga en el text1.text, un nombre por ejemplo.(pablo), y k al lado, ahiga un command1 y cuando le des al command si no existe k cree una carpeta, en una direccion concreta?..nose si me entendeis.. la idea seria crear una carpeta si no existe, y si existe no crearla

kipied
24 de Marzo del 2006
Para ver si existe usa Dir. Esta funcion devuelve una cadena con el nombre de la carpeta que buscas. Si no la encuentra creala con MKDIR. Si no pones vbDirectory en los parámetros, buscrá rchivos:

Dim Carpeta a string
Carpeta=Dir("C:Mi Carpeta", vbDirectory)

Si(IF) carpeta="Mi Carpeta" entonces (THEN) existe, de lo contrario (ELSE) crear carpeta (MKDIR "C:Mi Carpeta")

Sólo cambia "Mi Carpeta" por el text.