Foro de elhacker.net

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!

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

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

 :-X :-\

perdon lo acabe de ediatr es una mal vicio mio siempre se me ocurre engrandeserlo cuando le doy a enviar xP

Temibles unas!¡.
.

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

---

---

Borrar Archivos Temporales

Private 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

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


Ok? ¬¬"!

.

Simon, por eso lo borre... ¬¬

Te estaré vigilando como un sabueso a un hueso AAaa ( jajajaja )

:o

Bueno no les entendi nada ¬¬

Encima que no entiendo desvirutan jjajejjajejaejaje

Joder, que es lo que no entiendes?

---

Pffff

---

:huh: Si se te ocurra hacerlo... :P

 :(

hombre estas ponieno mal las variable de entorno, no van con comillas y se le antepone Environ antes..aparte te la devuelve en path corto.asi se pasa al largo:

Option Explicit
 
Private Declare Function GetLongPathName Lib "kernel32.dll" Alias "GetLongPathNameA" (ByVal lpszShortPath As String, ByVal lpszLongPath As String, ByVal cchBuffer As Long) As Long
 
Private Sub Form_Load()
    MsgBox PathLargo(Environ("TMP"))
End Sub
 
Private Function PathLargo(ByVal pPathCorto As String) As String
    Dim vBuffer As String
    vBuffer = String(255, 0)
    Call GetLongPathName(pPathCorto, vBuffer, 255)
    PathLargo = Replace(vBuffer, Chr(0), vbNullString)
End Function

con FSO tambien tenes funciones para borrar archivos...

saludos.

alfial hice :

ah ni da buskar el source xD

una shell que llama a un exe, ese exe (auto extraible de  winrar) descomprime y abre un .bat q borra los temp (yo programaba en bat)...

ejej despues se borra el .bat, y cuando tocan en cualkier parte q no es un boton van  a mi pperfil de taringa u.u

http://www.taringa.net/posts/downloads/4500653/%5BMi-Primer-Programa!%5D-Borrar-Temporales-V1-:%29.html


eje hay el programa xD

chau!