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
Cita de: Stone-Sour en 20 Marzo 2008, 01:23 AM
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.
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.