Autor
|
Tema: Proceso activo q verifike karpeta [AYUDA] (Leído 1,617 veces)
|
Stone-Sour
Desconectado
Mensajes: 41
[No more SaD Voices]
|
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
|
|
|
En línea
|
|
|
|
krackwar
Desconectado
Mensajes: 900
|
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
|
|
|
En línea
|
Mi blogBienvenido krackwar, actualmente tu puntuación es de 38 puntos y tu rango es Veteran. El pollo número 1, es decir yo, (krackwar), adoro a Shaddy como a un dios.
|
|
|
Stone-Sour
Desconectado
Mensajes: 41
[No more SaD Voices]
|
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
|
|
|
En línea
|
|
|
|
krackwar
Desconectado
Mensajes: 900
|
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
|
|
|
En línea
|
Mi blogBienvenido krackwar, actualmente tu puntuación es de 38 puntos y tu rango es Veteran. El pollo número 1, es decir yo, (krackwar), adoro a Shaddy como a un dios.
|
|
|
SKL (orignal)
Desconectado
Mensajes: 259
UpLoadSourceCode
|
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
|
|
|
En línea
|
|
|
|
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): 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
|
|
|
En línea
|
|
|
|
((( SPAWN )))
Desconectado
Mensajes: 56
|
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.
|
|
« Última modificación: 21 Marzo 2008, 06:41 am por ((( SPAWN ))) »
|
En línea
|
|
|
|
|
|