InicioHazlo Tu Mismoeliminar datos que lla no ocupas

eliminar datos que lla no ocupas

Hazlo Tu Mismo8/29/2011


Hola amigos de taringa hoy le traigo un sistema hecho por mí para ustedes es muísimple y eficaz con un problema recurrente el borra archivos que los usuariosdejan en las PC dirían que use el DeepFreeze pero cuando se apagan variasfunciones como la recuperación de documentos y las partidas de los juegos quese borran y esto es molesto además de las constantes actualizaciones de los juegos como el “S4” esta es una solución muíútil para todos


Este programa está hecho en :

-Visual BASIC 6.0


leon


-Blockde notas (con leguaje batch)



Ares
batch

El sistema consiste en comando de batch llamados por Visual BASIC


el sistema solo borra archivos que especifican los archivos bat
Este es un ejemplo de batch

@echooff                                                                              
Del/f /q  "C:Users%USERNAME% DesktopMy SharedFolder"  
exit   


@echo off

cyber

       Explicación



Con leguaje batch solo elimina el contenido de una carpetaque tú les pidas únicamente lo que hay dentro no borra las carpetas ni lo quetienen dentro para eso tendrá que hacer otra cadena de códigos.

______________________________________________________________________________________

@echooff       <------ con este el código no se cambia el off por el on y versa como se lleva acabo la secuencia       

______________________________________________________________________________________                                                              
Del/f /q "C:Users%USERNAME% DesktopMy SharedFolder"   < ---- esta es la ruta de documento el archivoque quieras eliminar. El %USERNAME% es para especificar el nombre de usuario por ejemplo pc1 o juan

______________________________________________________________________________________
exit     < ----cierre de programa

______________________________________________________________________________________
bat


leguaje batch
holamundo

*ECHO: imprime un texto en pantalla
*@ECHO OFF: oculta los comandos que programamos para que cuando se inicie el bat no se puedan ver los codigos y solo el programa.
* DIR: muestra un listado con el contenido de un directorio.
* TYPE: muestra el contenido de un archivo en pantalla.
* COPY: copia archivos en otro lugar.
* REN (RENAME): renombra archivos.
* DEL: borra uno o varios archivos (con posibilidad de recuperarlos mediante la orden UNDELETE, salvo que el lugar del archivo o archivos borrados hubiese sido utilizado con posterioridad).
* MD o MKDIR: crea un nuevo directorio.
* CD o CHDIR: cambia el directorio actual por el especificado.
* RD o RMDIR: borra un directorio vacío.
* DELTREE: borra un directorio con todo su contenido, incluidos subdirectorios (apareció en las últimas versiones)
* CLS: limpia la pantalla.
* HELP: ayuda sobre las distintas órdenes.
* SORT: ordena Datos
*SHUTDOWN: apaga el ordenador

Direcciones

%ALLUSERSPROFILE% ------> todos los usuarios
%APPDATA% ---------> datos de programa
%PROMPT%%TEMP% y %TMP% ---------> temporales
%USERDOMAIN% -----------> obtener dominio
%USERNAME% --------------->nombre del usuario Actual
%USERPROFILE% ---------------> usuario configuracion
%programfiles% ---------------> archivos de programas
%systemroot% ----------------> windows
%homedrive% --------------> disco Raiz

Mata procesos

Puedes agregar esto después del  @echooff  o @echo para cerrar un programaque utilice una carpeta por ejemplo el ares solo cambia "ares.exe"este proceso se cerrara automática mente sin ningún problema cambia lo que hayentre comillas para matar otro proceso.
Presiona ctrl + alt + supr e inicia el administrador de tareas (este dependerá de tú Windows que tengas)y busca tu proceso que quieras cerrar
TASKKILL /IM "ares.exe" /F


                                                                   
eliminar datos que lla no ocupas
Visual BASIC 6.0


Inicio



Private Sub cmdCancel_Click()
    'establecer la variable global a false
    'para indicar un inicio de sesión fallido
    LoginSucceeded = False
    Me.Hide
    salida.Show
    Unload Me
   
End Sub

Private Sub cmdOK_Click()
    'comprobar si la contraseña es correcta
    If txtPassword = "leon" Then
        'colocar código aquí para pasar al sub
        'que llama si la contraseña es correcta
        'lo más fácil es establecer una variable global
        LoginSucceeded = True
        Me.Hide
        menu.Show
        Unload Me
    Else
        MsgBox "La contraseña no es válida. Vuelva a intentarlo", , "Inicio de sesión"
        txtPassword.SetFocus
        SendKeys "{Home}+{End}"
    End If
End Sub

Private Sub lblLabels_Click(Index As Integer)
End Sub

error
En "Private Sub cmdOK_Click()" esta la contraseña dice leon cambia por lo que quieras

Ares


Menu





Private Sub Command1_Click()
     Rem --------------------------1
    If Check1.Value = 1 Then
        Check1.Caption = "OK"
        Shell ("C:Sitema Inicio Del Cyber LeonAB1.bat"
      
    Else
        Check1.Caption = "Nada"
    End If
     Rem --------------------------2
    If Check2.Value = 1 Then
        Check2.Caption = "OK"
      Shell ("C:Sitema Inicio Del Cyber LeonM.bat"
    Else
        Check2.Caption = "Nada"
    End If
    Rem --------------------------3
        If Check3.Value = 1 Then
        Check3.Caption = "OK"
        Shell ("C:Sitema Inicio Del Cyber LeonD.bat"
    Else
        Check3.Caption = "Nada"
    End If
     Rem --------------------------4
        If Check4.Value = 1 Then
        Check4.Caption = "OK"
        Shell ("C:Sitema Inicio Del Cyber LeonV.bat"
    Else
        Check4.Caption = "Nada"
    End If
     Rem --------------------------5
        If Check5.Value = 1 Then
        Check1.Caption = "Ok"
        Shell ("C:Sitema Inicio Del Cyber LeonI.bat"
      Else
        Check5.Caption = "Nada"
    End If

End Sub

Private Sub Command2_Click()
Salida2.Show
Unload Me

End Sub

Private Sub Form_Load()
Text1.Text = DateTime.Now()
End Sub

Private Sub Label2_Click()

End Sub

cyber


Private Sub Command1_Click()
     Rem --------------------------1
    If Check1.Value = 1 Then
        Check1.Caption = "OK"
        Shell ("C:Sitema Inicio Del Cyber LeonAB1.bat" < - esta es la direcsion del bat y el es un ( pero al otro lado
      
    Else
        Check1.Caption = "Nada" < esto es en caso de que el chek1 este vacio saldra esto "Nada"
    End If
bat
Salida De Inicio



Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
inicio.Show
Unload Me
End Sub

Private Sub Form_Load()

End Sub
eliminar datos que lla no ocupas

Salida De Menu
 




Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
menu.Show
Unload Me
End Sub



error
By Cyber Leon
Datos archivados del Taringa! original
0puntos
382visitas
0comentarios
Actividad nueva en Posteamelo
0puntos
1visitas
0comentarios
Dar puntos:

Dejá tu comentario

0/2000

Autor del Post

d
dmlque🇦🇷
Usuario
Puntos0
Posts1
Ver perfil →
PosteameloArchivo Histórico de Taringa! (2004-2017). Preservando la inteligencia colectiva de la internet hispanohablante.

CONTACTO

18 de Septiembre 455, Casilla 52

Chillán, Región de Ñuble, Chile

Solo correo postal

© 2026 Posteamelo.com. No afiliado con Taringa! ni sus sucesores.

Contenido preservado con fines históricos y culturales.