Autor
|
Tema: Una pregunta en VB!!! Ayuda :S (Leído 4,406 veces)
|
Petro_Boca
Desconectado
Mensajes: 233
Antoo Te Amoo :D
|
Hola!
miren, estoy haciendo un programa que limpia los temporales.
yo primero iva a hacer asi :
Private Sub borrar1_Click() On Error Resume Next Dim Temporales As String Temporales = "%temp%" Kill Temporales & "*.*" If DelDir = True Then RmDir Temporales End If End Sub
probe, y no anda :O
despues probe con :
Private Sub borrar1_Click() On Error Resume Next Dim Carpeta As String Carpeta = "%temp%" RmDir Carpeta Exit Sub End Sub
y tampoco funciona :S
sera por el "%temp%" ?
si es por eso, como lo puedo "emular" o algo asi :S?
chau!
|
|
|
En línea
|
|
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
me vas a odiar pero lee algo de matriz de controles y sobre el select case en vb6, otra cosa Kill y RMDir Eliminar rutas Explicitas y un solo archivo!¡. P.D.: para que pones exit sub una linea antes de end sub ¬¬" no tiene caso es código basura ¬¬! Temibles Lunas!¡.
|
|
« Última modificación: 27 Enero 2010, 04:55 am por ░▒▓BlackZeroҖ▓▒░ »
|
En línea
|
The Dark Shadow is my passion.
|
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
me vas a odiar pero lee algo de matriz de controles y sobre el select case en vb6, otra cosa Kill y RMDir Eliminar rutas Explicitas y un solo archivo!¡. P.D.: para que pones exit sub una linea antes de end sub ¬¬" no tiene caso es código basura ¬¬! Temibles Lunas!¡. perdon lo acabe de ediatr es una mal vicio mio siempre se me ocurre engrandeserlo cuando le doy a enviar xP Temibles unas!¡. .
|
|
|
En línea
|
The Dark Shadow is my passion.
|
|
|
Shell Root
|
jajaja que buen titulo del POST, una pregunta en VB...
Borrar Archivos TemporalesPrivate Sub Command1_Click() BuscarT Environ("TMP"), 1 BuscarT Environ("TEMP"), 1 End Sub
+ Function BuscarT(DirOrigen As String, NivelIndent As Integer) Dim DirOK As Integer, i As Integer, DirReturn As String, comp As String ReDim d(100) As String Dim NumDir As Integer, FicheroActual As String, DirActual As String On Error Resume Next DirActual$ = CurDir$ DirReturn = Dir(DirOrigen & "\*.*", vbDirectory Or vbSystem Or vbReadOnly Or vbHidden Or 0 Or vbArchive) ' Buscar todos los subdirectorios Do While Not DirReturn = "" ' No tratar los directorios "." y ".." If Not DirReturn = "." And Not DirReturn = ".." Then NumDir = NumDir + 1 d(NumDir) = DirOrigen & "\" & DirReturn End If DirReturn = Dir Loop DirReturn = Dir(DirOrigen & "\*", vbSystem Or vbReadOnly Or vbHidden Or 0 Or vbArchive) Do While Not DirReturn = "" comp = UCase(DirOrigen & "\" & DirReturn) If Not comp = UCase(GetSpecialfolder(34) & "\desktop.ini") And Not comp = UCase(GetSpecialfolder(33) & "\desktop.ini") And Not comp = UCase(GetSpecialfolder(32) & "\desktop.ini") And Not comp = UCase(GetSpecialfolder(8) & "\desktop.ini") Then ' Evito que se borren los archivos de configuracion de las carpetas SetAttr DirOrigen & "\" & DirReturn, 0 Kill DirOrigen & "\" & DirReturn End If DirReturn = Dir Loop RmDir DirOrigen ' Buscar la ultima "\" For i% = Len(DirOrigen) To 1 Step -1 If Mid$(DirOrigen, i%, 1) = "\" Then Exit For Next DirOrigen = Right$(DirOrigen, Len(DirOrigen) - i%) RmDir DirOrigen ' Recorro todos los subdirectorios que encontramos antes For i = 1 To NumDir DirOK = BuscarT(d(i), NivelIndent + 1) Next DoEvents ExitFunc: ChDir DirActual$ Exit Function DirErr: MsgBox "Error: " & Error$(Err) Resume ExitFunc End Function
|
|
|
En línea
|
Por eso no duermo, por si tras mi ventana hay un cuervo. Cuelgo de hilos sueltos sabiendo que hay veneno en el aire.
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
@ Shell Root lee lo que cite y no hables por hablar ¬¬" Ok? ¬¬"! .
|
|
« Última modificación: 27 Enero 2010, 05:02 am por ░▒▓BlackZeroҖ▓▒░ »
|
En línea
|
The Dark Shadow is my passion.
|
|
|
Shell Root
|
lee lo que cite y no hables por hablar ¬¬" Simon, por eso lo borre... ¬¬
|
|
|
En línea
|
Por eso no duermo, por si tras mi ventana hay un cuervo. Cuelgo de hilos sueltos sabiendo que hay veneno en el aire.
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
lee lo que cite y no hables por hablar ¬¬" Simon, por eso lo borre... ¬¬ Te estaré vigilando como un sabueso a un hueso AAaa ( jajajaja )
|
|
|
En línea
|
The Dark Shadow is my passion.
|
|
|
Petro_Boca
Desconectado
Mensajes: 233
Antoo Te Amoo :D
|
Bueno no les entendi nada ¬¬ Encima que no entiendo desvirutan jjajejjajejaejaje
|
|
|
En línea
|
|
|
|
|
|