Hola Rodrigo, aquí he rescatado una de las funciones que todavía no he pasado a la librería. Esta función es para Clipper 5.x, pero seguro que funciona con C3. Comprueba la salida del array de la función GetParameters() en la librería EB4BGRC3.PRG, es posible que el bucle FOR...NEXT tengas que indicar únicamente "... To Len(_a0) Step 1".
*****************************************************
Código:
Function MD(_InDir)
Private _l0 := .F., _n0, _c0 := Space(0), _c1, _a0 := {}
_InDir := If((SubStr(_InDir, 2, 1) = Chr(58)) .And.
(IsAlpha(_InDir) <> .F.), _InDir, (DiskName() + Chr(58) +
_InDir))
_a0 := GetParameters(_InDir, 92)
For _n0 = 1 To (Len(_a0) - 1) Step 1
If (Empty(_a0[_n0]) <> .T.)
_c0 := FName((_c0 + If(_n0 < 2, Space(0), Chr(92)) +
_a0[_n0]), .T., .T.)
_l0 := If(DirMake(_c0) <> 0, .F., .T.)
EndIf
Next
Return (_l0)
*****************************************************
Espero que te sirva en tu programa.
Un saludo.
Identificarse
FAQ
Buscar
