begin process at 2010 03 20 08:34:51
  Trouver un code source :
 
dans
 
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 000 / 24

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

SURVEILLER UN SERVICE ET FORCER SON REDEMARRAGE par fabkiller
CORRIGER RÉCURSIVEMENT LA CIBLE DES RACCOURCIS D'UN RÉPERTOI... par sammounier
Source avec Zip COMMENT RENOMMER UN OU PUSIEURS NOM DE GROUPES ACTIVE DIRECT... par drassef14
Source avec Zip RECHERCHER TOUS LES FICHIERS DONT L'EXTENSION EST *.VBS ET L... par hackoo
Source avec Zip DÉPLACER ET PARAMÉTRER LA BARRE DES TACHES / LE MENU DÉMARRE... par MS1969

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture ALTERNATIVE À LA FUNCTION VBA OU VB REPLACE (JUSQU'À 10 FOI... par vicosta
Source avec Zip Source avec une capture Source .NET (Dotnet) INSERER TOUT TYPE DE FICHIERS DANS ORACLE EN VB.NET par SKY32
Source avec Zip Source avec une capture Source .NET (Dotnet) CAPTURE ET ENREGISTREMENT D'UNE IMAGE DEPUIS UNE WEBCAM par RENAUD34
Source avec Zip OUVRIR TOUS LES FICHIERS EXCEL D'UN DOSSIER ET DE SES SOUS-D... par Unforgiven3303
Source avec Zip Source avec une capture UTILITAIRE WAV, MID ET MP3 par SnkVrt

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...

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

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,702 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales