begin process at 2012 02 16 00:27:28
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

VBScript

 > OBSERVATEUR

OBSERVATEUR


 Information sur la source

Note :
8 / 10 - par 1 personne
8,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :VBScript Classé sous :observation, optimisation, document, fichier Niveau :Débutant Date de création :11/11/2006 Date de mise à jour :03/11/2007 18:27:02 Vu / téléchargé :3 364 / 33
Auteur : titou_hello

Ecrire un message privé
Site perso
Commentaire sur cette source (1)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
Voila mon 1er code et mon 1er post^^

Alors j'ai fait ce tit code pour pouvoir gere l'accumulation des fichiers et dossiers dans c:\.
En général quand un fichier ce retrouve la il est pas a ca place
ca permet donc de s'en rendre compte asser vite.

hf ^^

Source

  • ' ----------------------------------------------
  • ' ---------------- By BlaZed -------------------
  • ' ----------------------------------------------
  • 'But du programme
  • 'voir ce que contient un dossier
  • 'voir les dossier et les fichiers
  • Dim fso, dossier, sous_dossier, fichiers
  • Set fso = CreateObject("Scripting.FileSystemObject")
  • Set dossier = fso.GetFolder("C:\")
  • Set sous_dossier = dossier.SubFolders
  • Set fichiers = dossier.files
  • info = "Nom" + vbTab + "Taille" + vbTab + "Date de création" + vbCr
  • For Each fichier in fichiers
  • info = info & fichier.Name & vbTab
  • info = info & fichier.Size & vbTab
  • info = info & fichier.DateCreated & vbCr
  • Next
  • For Each rep in sous_dossier
  • info = info & rep.Name & vbTab
  • info = info & rep.Size & vbTab 'Enlever cette ligne en cas d'erreur !access denied!
  • info = info & rep.DateCreated & vbCr 'vbCr ou vbCrLf en cas de bug
  • Next
  • MsgBox info,vbInformation + vbOkOnly + vbApplicationModal + 0,"Info" 
' ----------------------------------------------
' ---------------- By BlaZed -------------------
' ----------------------------------------------

'But du programme
'voir ce que contient un dossier

'voir les dossier et les fichiers

Dim fso, dossier, sous_dossier, fichiers

Set fso = CreateObject("Scripting.FileSystemObject")

Set dossier = fso.GetFolder("C:\")

Set sous_dossier = dossier.SubFolders
Set fichiers = dossier.files

info = "Nom" + vbTab + "Taille" + vbTab + "Date de création" + vbCr
For Each fichier in fichiers
info = info & fichier.Name & vbTab
info = info & fichier.Size & vbTab
info = info & fichier.DateCreated & vbCr
Next

For Each rep in sous_dossier
info = info & rep.Name & vbTab
info = info & rep.Size & vbTab          'Enlever cette ligne en cas d'erreur !access denied!
info = info & rep.DateCreated & vbCr    'vbCr ou vbCrLf en cas de bug
Next
MsgBox info,vbInformation + vbOkOnly + vbApplicationModal + 0,"Info"


 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Historique

11 novembre 2006 21:26:35 :
correction du code pour voir les fichiers (petit erreur personnel)
03 novembre 2007 18:27:02 :
Mise a jour! _ Ajout du zip et de la capture

 Sources de la même categorie

Source avec Zip Source avec une capture RECHERCHE & SAUVEGARDE DES FICHIERS PAR LEURS EXTENSIONS par hackoo
Source avec Zip Source avec une capture [VBS] SPLASH SCREEN EN VBSCRIPT par hackoo
Source avec Zip Source avec une capture [VBS] GOOGLE EASTER EGGS par hackoo
Source avec Zip Source avec une capture FILE2COMPARE: COMPARAISON DE DEUX FICHIERS LIGNE PAR LIGNE par hackoo
Source avec Zip Source avec une capture [VBS] COMMENT CRÉER UN DOSSIER ET LE PROTÉGER PAR MOT DE PAS... par hackoo
Toutes les sources de la catégorie VBScript

 Sources en rapport avec celle ci

Source avec Zip Source .NET (Dotnet) DÉFRAGMENTER UN FICHIER par ShareVB
Source avec Zip Source .NET (Dotnet) MODIFIER LES EXTENSION DES FICHIERS par okosa
Source avec Zip Source avec une capture FILE,SECURITY,FICHIER par okosa
Source avec Zip Source avec une capture Source .NET (Dotnet) PATCHEUR DE FICHIER par tototh
Source avec Zip Source .NET (Dotnet) ENREGISTREUR DE NOMS par 1234567890MOFF

Commentaires et avis

Commentaire de mortalino le 12/11/2006 01:45:05

Salut,

Moi j'ai un bug ici :

info = info & rep.Size & vbTab
*  erreur 70, permission refusée. Il faut donc gérer cette erreur.

Et il faut remplacer, dans ton code, vbCr par vbCrLf.

D'autre codes sont dispo ici :
http://www.codyx.org/snippet_lister-tous-fichiers-repertoire_198.aspx

++

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Suppression de l'historique du fichier document de la barre de tache [ par Jeanne ] Je cherche une commande poursupprimer ou bloquer l'historique (Document du menu démarrer) lorsque je clique sur un fichier Urgent !!! Document associé [ par Eurololo ] J'ai associé un fichier à mon appli VB en tant que "Document associé" par l'intermédiaire de CTRL + D, puis "Ajouter comme document associé".Maintenan fussion avec un nouveaux document [ par laulaut ] voila j'ai le code suivant Dim fichier As String Dim myapp As Word.Application Dim mydoc As Word.Document Set myapp = New Word.Application fussion avec un nouveaux document [ par laulaut ] voila j'ai le code suivant Dim fichier As String Dim myapp As Word.Application Dim mydoc As Word.Document Set myapp = New Word.Application fussion avec un nouveaux document [ par laulaut ] voila j'ai le code suivant Dim fichier As String Dim myapp As Word.Application Dim mydoc As Word.Document Set myapp = New Word.Application Pb de chemin de fichier urgent!!!!!!!!!! [ par bossun ] salut,j'ai une applicaiton qui me fait générer des documents word. le problème est que lorsque je lui dis de copier le document de base qui se trouve Lire un fichier texte [ par linkinpar236737 ] Imaginons que j'ai un textbox ou je demande le nom d'une personne. Et que quand la personne clique sur le command en dessous, ce qu'a marqué la person


Nos sponsors


Sondage...

Comparez les prix


Samsung Galaxy S
Entre 529€ et 529€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Underwater View of the Ocean With LIght Shining Through the WavePhoto Beautiful woman in a bikini meditating on the beach
Photo Bright Beautiful Daisy and Grass Field 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,983 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)