Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Grupul de firme Paysera Bulgaria ...

Upgrade Ryzen 9 5900X -> Ryze...

Priza aplicata cu intrerupator cu...

Tor cu IP de UK
 Sugestii road trip Moldova + Mara...

Recomandare apartament 3 camere

Casa in constructie la tara, ce s...

Procesor cu pini indoiti, vandut ...
 Examene competența lingvisti...

Probleme vw golf 7

laptop acer nu merge tastatura

De ce ca Freelancer caștigi ...
 La mulți ani @hvz!

La mulți ani @cotzi!

Probleme testosteron scazut

Capac culbutori fisurat
 

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