Programación General > Visual Basic 6.0 e inferiores

 Re: Borrar carpetas del servidor

<< < (2/3) > >>

bea:
Pues es que el problema es que exactamente no se lo que tengo en la carpeta que quiero crear, se que tengo archivos y subcarpetas pero no se como se llaman.
¿Puedo hacer algun tipo de bucle que me recorra lo que hay en la carpeta en el servidor?

Muchas gracias Brroz

Brroz:
Podrías hacer algo de este estilo:

Private Sub BorrarFilesRtvDires(Byval ViaDeAcceso As String, Directorios() As String)

Dim strDir as String
strDir = Dir(ViaDeAcceso)
Dim lng1 As Long
Do Until strDir = ""
If (GetAttr(ViaDeAcceso & strDir) And vbDirectory) = vbDirectory Then
lng1 = lng1 + 1
ReDim Preserve Directorios(lng1)
Directorios(lng1) = strDir
Else
Kill ViaDeAcceso & strDir
End If
Dir
Loop

End Sub

Esta sub borraría los archivos del directorio que le especifiques y devolvería como elementos de la matriz 'Directorios' las carpetas que contenga (fíjate que es un argumento 'ByRef'
). Empleándolo recursivamente, podrías eliminar todos los archivos y carpetas. ¡Úsalo con tiento!

Suerte.

bea:
Pero esto me vale para el servidor?
Lo que quiero es recorrer una carpeta del servidor (que si que se donde esta) pero lo que no se es el nombre de los archivos y carpetas que tiene dentro, y esto es lo que quiero borrar

Vaya lio que tengo...:question:

Brroz:
En tu ejemplo incluyes esta línea:

gobjFTP.Execute , "RMDIR " & ruta

La vía de acceso que debes especificar es 'ruta'.

A ver si ahora... Chao.

bea:
Que no me sale. Es que el procedimiento que me has dicho antes es para local no?

Por que para hacer lo de dir en el servidor haya que poner

Inet1.Execute , "DIR BuscaEsto.txt"

Por favor me lo podrias aclarar un poco mas. Muchas gracias y perdona:)

Navegación

[0] Índice de Mensajes

[#] Página Siguiente

[*] Página Anterior