Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Incalzire in pardoseala etapizata

Suprataxa card energie?!

Cum era nivelul de trai cam din a...

probleme cu ochelarii
 Impozite pe proprietati de anul v...

teava rezistenta panou apa calda

Acces in Curte din Drum National

Sub mobila de bucatarie si sub fr...
 Rezultat RMN

Numar circuite IPAT si prindere t...

Pareri brgimportchina.ro - teapa ...

Lucruri inaintea vremurilor lor
 Discuții despre TVR Sport HD.

Cost abonament clinica privata

Tremura toata, dar nu de la ro...

Renault Android
 

Program care sterge un fisier

- - - - -
  • Please log in to reply
6 replies to this topic

#1
stefan07

stefan07

    Member

  • Grup: Members
  • Posts: 661
  • Înscris: 21.04.2007
As nevoie de un program care sa stearga un fisier(sau mai multe) dintr-un folder specificat ,daca in numele fisierului se gaseste un cuvant cheie. De exemplu : peisaj . Sa stearga toate fisierele ce contin cuvantul peisaj.Cum as putea sa fac?

#2
queensoft

queensoft

    Trust no one

  • Grup: Banned
  • Posts: 16,079
  • Înscris: 26.11.2005
Folosesti modulul atasat.
Apelezi asa:
	Dim Temcol As New Collection
	Dim i As Long
	On Error Resume Next
	Set Temcol = FindFiles("", "c:\folder\")
	For i = 1 To Temcol.Count
		Debug.Print Temcol(i)
	Next i
	Debug.Print Temcol.Count
Modifici "c:\folder\" cu folderul dorit, normal.
Dupa linia asta: Debug.Print Temcol(i) - pui instructiunea de sters fisierul - Kill .....

In fisierul modul Find_File.bas modifici linia asta, incluzi acolo cuvintele cheie
Const exts As String = "avi,mpg,mpeg,mpv,mov,3gp,divx,m1v,mp4,wmv"

Attached Files



#3
stefan07

stefan07

    Member

  • Grup: Members
  • Posts: 661
  • Înscris: 21.04.2007
Da,merge bine.Mersi

#4
msmihai

msmihai

    Senior Member

  • Grup: Senior Members
  • Posts: 5,271
  • Înscris: 02.09.2006
Copii . Lectia 2 . Inlocuiti cuvantul "peisaj" cu cuvantul "guta". Ati realizat un virus anti manele...

#5
Ann0nim

Ann0nim

    Active Member

  • Grup: Members
  • Posts: 1,082
  • Înscris: 07.04.2008

View Postmsmihai, on Jan 29 2009, 00:50, said:

Copii . Lectia 2 . Inlocuiti cuvantul "peisaj" cu cuvantul "guta". Ati realizat un virus anti manele...
la asta ma gandeam si eu inainte sa citesc ce ai scris tu  :lol:

#6
stefan07

stefan07

    Member

  • Grup: Members
  • Posts: 661
  • Înscris: 21.04.2007

View Postmsmihai, on Jan 29 2009, 00:50, said:

Copii . Lectia 2 . Inlocuiti cuvantul "peisaj" cu cuvantul "guta". Ati realizat un virus anti manele...

Mda,m-am gandit la asta,dar la mine nu e doar fisierul VBS. Poate cineva sa il faca sa fie doar fisierul VBS?

#7
Dj_Eagle

Dj_Eagle

    Member

  • Grup: Members
  • Posts: 244
  • Înscris: 12.04.2007
Si apropo de visusul anti-manele :))

Am realizat (tot in VB6) un mic programel "Files Finder" in care poti cauta fisiere (exact ca Search-ul din WONDOWS) si apoi le poti sterge.

Cum zice si msmihai , poti realiza foarte usor un virus ANTI MANELE.

Anunturi

Chirurgia spinală minim invazivă Chirurgia spinală minim invazivă

Chirurgia spinală minim invazivă oferă pacienților oportunitatea unui tratament eficient, permițându-le o recuperare ultra rapidă și nu în ultimul rând minimizând leziunile induse chirurgical.

Echipa noastră utilizează un spectru larg de tehnici minim invazive, din care enumerăm câteva: endoscopia cu variantele ei (transnazală, transtoracică, transmusculară, etc), microscopul operator, abordurile trans tubulare și nu în ultimul rând infiltrațiile la toate nivelurile coloanei vertebrale.

www.neurohope.ro

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate