Crée et supprimer un dossier via mkdir, rmdir ou encor "kill" pour les fichier

Soyez le premier à donner votre avis sur cette source.

Vue 5 482 fois - Téléchargée 309 fois

Description

Voici un exemple de code qui crée un dossier avec un timer tout les second
un dossier est crée ou le log. est utilise et son contraire qui supprimera un dossier tout les second (les dossier son crée par des valeur numérique)

Source / Exemple :


Private Sub Timer1_Timer()
On Error Resume Next
MkDir (Text1.Text)

End Sub

Private Sub Timer2_Timer()
 Text1.Text = Val(Text1.Text) + 1
End Sub

CONTRAIRE

Private Sub Timer1_Timer()
On Error Resume Next
RmDir (Text1.Text)

End Sub

Private Sub Timer2_Timer()
 Text1.Text = Val(Text1.Text) + 1
End Sub

Conclusion :


C'est peut-étre pas utile mais très désagreable quand on se retrouve avec 18000
dossier sur le bureau He bein si on n'a pas l'antivirus "ou le cod contrére" on se sent tout drole

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
267
Date d'inscription
lundi 22 septembre 2003
Statut
Membre
Dernière intervention
27 novembre 2005

-1- Deja ton code contraire :

Private Sub Timer1_Timer()
On Error Resume Next
RmDir (Text1.Text)
End Sub

Private Sub Timer2_Timer()
Text1.Text = Val(Text1.Text) + 1
End Sub


Ca se resume en :
private sub timer1_timer()
remdir(text1.text)
text1.text=val(text1.text)+1
end sub

-2- pourquoi utiliser un textbox ?? utilise une variable toute bete pour ton compteur, ca consommera moin de ressources

-3- au lieu de faire un bete mkdir (text1.text), fais plutot un mkdir("NOM_DE_BASE_" & text1.text) et pour effacer :
menu demarrer/commande msdos
rmdir NOM_DE_BASE_*

c'est beaucoup + rapide !

en+, tu dois gerer les erreurs causees par des effacements de dossiers qui n'existent pas !

QUE DE GACHI !!!!

a la place, met un dirlistbox, un filelistbox, et une petite fonction recursive, et ca sera + mieux :-D
Messages postés
939
Date d'inscription
vendredi 25 octobre 2002
Statut
Membre
Dernière intervention
27 janvier 2009
1
ce qui est chiant avec vb4,5,6 c'est que les mecs cherchent tjrs a faire des "casse-couillez-appz" à leurs debuts.
ça a aucun interet ton truc, deja le timer il sert a rien du tout, c'est juste lent et pas propre... et je me sentirais pas tout drole si ça m'arrivais, je me dirais juste que le mec qui a ecrit ça s'embetait dans la vie, et je coderais en 20sc en n'importe quel language de quoi virer ça (et encore...vu que les noms sont les meme et que seuls le chiffre change a la fin du nom, je pourrais meme les virer à la main! )
Messages postés
3
Date d'inscription
jeudi 19 juin 2003
Statut
Membre
Dernière intervention
29 décembre 2003

Mais non Renfield telecharge le et tu verra il y a un timer qui tout les second change le contenue du textebox par une valeur numerique
(..1.2.3.500.600)
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
62
pas très utile....

de plus, tu argues de l'eventualité de 18 000 dossiers sur le bureau.
mais il faut toujours saisir les noms des dossiers a lamain........

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.