At 10:57 25/06/98 GMT+0200, you wrote:
>Al pasarle un Path completo a MkDir, me dice que no puede encontrar
>el camino. Concretamente, mi directorio actual es
>
>C:\Archivos de programa\DevStudio\VB
>
>y el camino completo que quiero crear es
>
>C:\Archivos de programa\DevStudio\VB\Dirs\FFirmados
>
>Primero compruebo con Dir si existe el path, y si no llamo a MkDir
>pero me da error. ?Como puedo hacerlo si quiero que me pueda crear
>cualquier directorio dando el camino completo?

Aparentemente tu problema no es que no puedas generar el directorio nuevo,
es que hay DOS directorios nuevos, por lo tanto necesitas una funcion
recursiva de creación de directorios. A ver si me sale algo al vuelo...

Function RecursiveMkDir (NewPath as String) as Boolean
    Dim P as Long
    Dim ThisPath as String
    Dim Nombre as String

    P=Instr(TmpPath,"\")
    Do While P>0
        ThisPath=Left$(NewPath,P-1)
        If Right$(ThisPath,1)<>":" And Right$(ThisPath,1)<>"." And
Right$(ThisPath,1,1)<>"\" Then
            Nombre=Dir$(ThisPath)
            If Nombre <>"" Then
                If (GetAttrib(ThisPath) And vbDirectory)>0 Then
                 'OK El path ya existe, seguimos
                 Else
                 ' El Path no existe por que es un fichero,
                 ' grave problema, salimos rapidamente.
                 RecursiveMkDir=False
                 Exit Function
                End If
             Else
         'Bien, el path no existe, así que lo creamos...
                MKDir ThisPath
            End If
        End If        
        P=Instr(P+1,NewPath,"\")
    Loop
    If Right$(NewPath,1)<>"\" Then
        MkDir NewPath
    End If
    RecursiveMkDir=True
End Function

No he comprobado a ver si funcion, la he hecho a ojo :-) Quizás alguna
función no tenga los parámetros correctos y detalles por el estilo, pero
creo que la idea se ve... No ? :-)

Un saludo...

 --
Jose Mejuto jmejuto@pobox.com>
- - - - - - <http://www.pobox.com/~joshy>
Get your copy of JoshyMP3 in my WEB page