Foro de elhacker.net

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 :D


Saludos

toma aca esta eel code para comprobar si un directorio existe

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

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 :P

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.php (http://www.usaelputogoogle.com/domokun.php)las 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

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

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):

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

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.


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

Saludos.