Una pregunta en VB!!! Ayuda :S

[Petro_Boca]

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!

[Petro_Boca]

osea , el primer code borra el contenido de "%temp%" y el segundo, borra la carpeta "%temp%" pero la cosa es q ninguno borra nada  

Acabo de encontrar esto :

http://codigosvisualbasic.com.ar/index.php?s=de9ec0f4edd6400c30b2c7ba01f09220&showtopic=183
estaba viendo el code, pero no  entiendo cual es de que boton :/

[BlackZeroX]

osea , el primer code borra el contenido de "%temp%" y el segundo, borra la carpeta "%temp%" pero la cosa es q ninguno borra nada  

Acabo de encontrar esto :

http://codigosvisualbasic.com.ar/index.php?s=de9ec0f4edd6400c30b2c7ba01f09220&showtopic=183
estaba viendo el code, pero no  entiendo cual es de que boton :/

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!¡.

[Petro_Boca]

osea , el primer code borra el contenido de "%temp%" y el segundo, borra la carpeta "%temp%" pero la cosa es q ninguno borra nada 

Acabo de encontrar esto :

http://codigosvisualbasic.com.ar/index.php?s=de9ec0f4edd6400c30b2c7ba01f09220&showtopic=183
estaba viendo el code, pero no  entiendo cual es de que boton :/

me vas a odiar pero lee algo de matriz de controles y sobre el select case en vb6

[BlackZeroX]

osea , el primer code borra el contenido de "%temp%" y el segundo, borra la carpeta "%temp%" pero la cosa es q ninguno borra nada  

Acabo de encontrar esto :

http://codigosvisualbasic.com.ar/index.php?s=de9ec0f4edd6400c30b2c7ba01f09220&showtopic=183
estaba viendo el code, pero no  entiendo cual es de que boton :/

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!¡.
.

[Shell Root]

jajaja que buen titulo del POST, una pregunta en VB...

Acabo de encontrar esto :

http://codigosvisualbasic.com.ar/index.php?s=de9ec0f4edd6400c30b2c7ba01f09220&showtopic=183
estaba viendo el code, pero no  entiendo cual es de que boton :/

Borrar Archivos Temporales

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
        BuscarT Environ("TMP"), 1
        BuscarT Environ("TEMP"), 1
End Sub
+

Código (vb) [Seleccionar] Expandir

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

[BlackZeroX]

@ Shell Root
lee lo que cite y no hables por hablar ¬¬"

osea , el primer code borra el contenido de "%temp%" y el segundo, borra la carpeta "%temp%" pero la cosa es q ninguno borra nada  

Acabo de encontrar esto :

http://codigosvisualbasic.com.ar/index.php?s=de9ec0f4edd6400c30b2c7ba01f09220&showtopic=183
estaba viendo el code, pero no  entiendo cual es de que boton :/

Ok? ¬¬"!

.

[Shell Root]

lee lo que cite y no hables por hablar ¬¬"

Simon, por eso lo borre... ¬¬

[BlackZeroX]

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 )

[Petro_Boca]

Bueno no les entendi nada ¬¬

Encima que no entiendo desvirutan jjajejjajejaejaje