Proceso activo q verifike karpeta [AYUDA]

[Stone-Sour]

Bueno, les explico, queria ver si alguno de usd sabian como hacer un proceso activo (no hace falta q sea oculto ya q es para un amigo), qe este todo el dia fijandose si existe la carpeta "Save" i si existe entonces que la borre, i asi cada vez que esta se cree.... Yo no se mucho vb, no me leo manuales xq no los entiendo mui bien, miro codes i aprendo pero la verdad nunca vi un code como este,... Si me pueden ayudar se los agradecería, iwalmente de todas formas gracias


Saludos

[krackwar]

toma aca esta eel code para comprobar si un directorio existe

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
a = Dir$("carpeta", vbDirectory)
If a = "" Then
MsgBox ("El directorio no existe!")
Else
MsgBox ("El directorio existe!")
End If
End Sub

fuente =http://www.lawebdelprogramador.com
2 cosas
1º_no agas doble post
2º_busca en googleeeeee!!!!!!!!! estaba en el 3 resultado en gogle

[Stone-Sour]

Thnx por el code, pero como hago para q este todo el tiempo poniendo el codigo?
osea, lo hace, termina de poner ese code i lo vuelve hacer i asi sucesivamente?

Thnx

Hice el doble post para que no baje el thread

[krackwar]

Thnx por el code, pero como hago para q este todo el tiempo poniendo el codigo?
osea, lo hace, termina de poner ese code i lo vuelve hacer i asi sucesivamente?

Thnx

Hice el doble post para que no baje el thread

dijiste que sabias algo de vb
sabesw no voi a dar todo tan facil ya que tu no pones ni un poco de tu parte ,ocupa http://www.usaelputogoogle.com/domokun.phplas cosas que dicen te las dedico.i no agas doble post si nadie te contesto es por que a nadie le intereso contestarte i punto

[SKL (orignal)]

usa un timer chabon.... poner el tiempo de intervalo y listo...


1000 = 1 segundo
500 = medio segundo

si 1000 = 1

2000 seria igual a que???


sl2

[Karman]

con este código no tienes que hacer casi nada (está en C pero podes pasarlo a VB sin problemas, funciona con las apis del sistema):

Código (c) [Seleccionar] Expandir


while(1){
  HANDLE cnh = FindFirstChangeNotification("c:\\", TRUE,
               FILE_NOTIFY_CHANGE_FILE_NAME | FILE_NOTIFY_CHANGE_DIR_NAME);
  if(cnh!=INVALID_HANDLE_VALUE){
    while(1) {
      DWORD wr = WaitForSingleObject(cnh, INFINITE);
      DWORD dwMilSecs = 200; // arbitrary; enlarge for floppies
      do {
        FindNextChangeNotification(cnh);
        wr = WaitForSingleObject(cnh, dwMilSecs);
      } while(wr == WAIT_OBJECT_0);
      //MessageBox(0,"Event intercepted, refresh contents!\n",0,0);
      if(wr==WAIT_ABANDONED)
        break;
    }
    FindCloseChangeNotification(cnh); // release notification handle
  }
}


FindFirstChangeNotification quedará en espera (el programa se detendrá) hasta que haya alguna modificación en "c:\\" o el directorio que elijas, solo tendrías que averiguar si la modificación fue de una nueva carpeta (preguntando si existe la carpeta) sino volverá a empezar, tendrías que agregar alguna forma de terminar el código si no te interesa continuar la ejecución....

S2

[((( SPAWN )))]

hola, proba con esto, agregale un timer a un form, tilda la opcion de "Microsoft Scripting Runtime" en Proyecto --> Referencias, para utilizar el FileSystemObject con el metodo DeleteFolder, el cual elimina la carpeta sin importar el contenido q tenga.

Código [Seleccionar] Expandir


Private Sub Form_Load()
    Timer1.Enabled = True
    Timer1.Interval = 5000
End Sub

Private Sub Timer1_Timer()
Dim xcarpeta As FileSystemObject
Set xcarpeta = New FileSystemObject
    On Error GoTo elerror
    xcarpeta.DeleteFolder "c:\Save" '---> Le indico la ubicacion de la carpeta a eliminar
    MsgBox "CARPETA ELIMINADA"
elerror:
    If Err = 76 Then
        Exit Sub
    End If
End Sub


Segui el consejo de krackwar 2º_busca en googleeeeee!!!!!!!!!

Saludos.