Jump to content
Forum Windows-az.com

Faylı silmək üçün .bat kodu


Karb10

Recommended Posts

Proqramlar telegramda

cd "C:\\Users\\tbrollo\\j2mewtk\\2.5.2\\appdb\\RMS"

del *.db

 

del "D:\\TEST\\TEST1\\Archive\\*.TSV"

del "D:\\TEST\\TEST1\\Archive\\*.TXT"

del "D:\\TEST\\TEST2\\Archive\\*.TSV"

del "D:\\TEST\\TEST2\\Archive\\*.TXT"

del "D:\\TEST\\TEST 100%\\Archive\\*.TSV"

del "D:\\TEST\\TEST 100%\\Archive\\*.TXT"

 

@echo off

del /q I:\\FTAPP\\*.*

del /q I:\\FTADMIN\\*.*

del /q I:\\FTAPP2\\*.*

del /q I:\\FTDC1\\*.*

exit

Təxminən belə bir şey?

Link to comment
Share on other sites

:Begin

2

del "\\your exe path\\yourfile.exe"

3

if exist "\\your exe path\\yourfile.exe" goto Begin

4

del "your batch file generated on the fly"

 

 

01

Dim batchbuild As String = ""

02

dim nl As String = ControlChars.NewLine

03

batchbuild &= "echo off" & nl

04

batchbuild &= ":Begin" & nl

05

batchbuild &= "del "\\your exe path\\yourfile.exe" & nl

06

batchbuild &= "if exist " & ControlChars.Quote & "\\your exe path\\yourfile.exe" & ControlChars.Quote & " goto Begin" & nl

07

batchbuild &= "del %0" & nl

08

 

09

My.Computer.FileSystem.WriteAllText("C:\\Temp\\delete.bat",batchbu

ild,False)

10

Shell("C:\\Temp\\delete.bat")

11

End

 

Mənim məlumatım olmadığı üçün yoxlaya bilmirəm içləyi ya yox.Amma bunaları tapdım baxın bəlkə işlədi.

Link to comment
Share on other sites

  • 2 hafta sonra...

Sohbete katıl

Şimdi mesajını gönderebilir ve daha sonra kayıt olabilirsin. Bir hesabın varsa, hesabınla göndermek için şimdi oturum aç.

Misafir
Bu konuya yanıt ver...

×   Zengin metin olarak yapıştırıldı.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Önceki içeriğiniz geri yüklendi.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • loading...
×
×
  • Create New...