Tout sur filesystemobject (partie i : les dossiers)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 19 202 fois - Téléchargée 37 fois

Contenu du snippet

[30/01/2002]
FSO= FileSystemObject
C'est un composant pour maipuler les fichiers,dossiers et lecteur... super pratique!!

Tout est ds le titre...

Source / Exemple :


<%
'Un Objet FileSytemObject ca se déclare comme ça:
Dim FS
Set FS = CreateObject("Scripting.FileSystemObject")

'A partir de ca vous pouvez faire pas mal de trucs:

'I]Les dossiers
'--------------

'Crée un dossier
FS.CreateFolder([Chemin et nom])
'ex:
FS.CreateFolder(Server.MapPath("/Folder")) 'Ca crée un dossier nommé "Folder" dans le repertoire racine du serveur

'Pour travailler sur un dossier vous devez déjà spécifier lequel...
Dim F
Set F = FS.GetFolder(Server.MapPath"/Folder")

'Ensuite vous pouvez effectuer des opération sur celui ci
'Copier un dossier
F.copy("CopyFolder") 'Ceci aura pour effet de copier le dossier "Folder"(crée plus haut) et de renommer la copie "CopyFolder"

'Déplacer un dossier
F.Move(Server.MapPath("/AutreDossier/MoveCopyFolder")) 'Déplace le dossier "CopyFolder"(crée plus haut) dans le dossier "AutreDossier"

'Supprimer un dossier
F.delete() 'En fait ca supprime le dossier "Folder"(Que l'on a crée tout au début")

'Pour les opérations sur les dossier vous savez tout maintenant on attaque les renseignements sur les dossiers

'Date de création
F.DateCreated

'Attributs
F.Attributes
'Ca renvoie un numéro
'16 : Rien
'17 : Lecture Seule
'18 : Fichier Caché
'19 : Lecture Seule et Fichier Caché
'48 : Archive
'19 : Lecture Seule et Archive
'50 : Archive et Fichier Caché
'51 : Lecture Seule, Archive et Fichier Caché

'Dernier accès
F.DateLastAccessed

'Date de création (et heure)
F.DateCreated

'Date de dernière modification(et heure)
F.DateLastModified

'Lecteur sur lequel est le dossier
F.Drive

'URL du dossier parent
F.ParentFolder

'URL du dossier
F.Path

'Nom Du dossier
F.ShortName

'Nom du dossier(2)
F.Name

'URL du dossier mais en abrégé
F.ShortPath

'Taille du dossier (en Octets)
F.Size

%>

<%
'Voila deux exemples pour tester les 2 propriétés qui manquent

'SubFolder:
<%
Dim FS,F,SF
Set FS = CreateObject("Scripting.FileSystemObject")
Set F = FS.GetFolder(Server.MapPath("/Rpertoire"))
Set SF = F.SubFolders
%>
<TABLE border=1>
  <TR>
	<TD><B>Nom</B></TD>
	<TD><B>Taille</B></TD>
	<TD><B>Date de création</B></TD>
	<TD><B>Dernier accès</B></TD>
	<TD><B>Dernière modification</B></TD>

  </TR>
<% For each F1 in SF %>
	<% = "<TR>" %>

	<% = "<TD>" %>
	<% = F1.Name %>
	<% = "</TD>" %>

	<% = "<TD>" %>
	<% = F1.Size %>
	<% = "</TD>" %>

	<% = "<TD>" %>
	<% = F1.DateCreated %>
	<% = "</TD>" %>

	<% = "<TD>" %>
	<% = F1.DateLastAccessed %>
	<% = "</TD>" %>

	<% = "<TD>" %>
	<% = F1.DateLastmodified %>
	<% = "</TD>" %>

	<% = "</TR>" %>
<% Next %>
</TABLE>

'Pour tester avec "Files", vous remplacez "F.subFolders" par "F.Files" et voila

Conclusion :


C tout, c tout...

@++
vbtom

A voir également

Ajouter un commentaire

Commentaires

Messages postés
7
Date d'inscription
lundi 23 janvier 2006
Statut
Membre
Dernière intervention
23 mars 2007

Exactement ce que je cherché !!

MERKI !
Messages postés
10
Date d'inscription
jeudi 27 février 2003
Statut
Membre
Dernière intervention
11 mai 2004

Bjr,

Est ce que l'un d'entre vous saurez comment attaquer les autres propriétés d'un fichier stocké sur disque NTFS (exemple titre, mots clés ...)

Merci de votre aide.

Cordialement

Zonder
Messages postés
16
Date d'inscription
mardi 10 février 2004
Statut
Membre
Dernière intervention
10 février 2004

Cherche quelque chose de semblable.
Mais je ne connais queHTML et Javascropt alors comment interfacer ce que j'ai avec cette FSO ??
IE WIN98 pas de serveur juste un disque DUR et de la RAM.

Il est aussi possible de faire un disque RAM ????

Toute aide bienvennue.
Polyglotte et Editeur en plusieurs langues j'ai maintenant un editeur multilingue (version alpha mais cela devrait le FAIRE)
Messages postés
41
Date d'inscription
lundi 30 décembre 2002
Statut
Membre
Dernière intervention
27 mars 2009

Excellent pour commencer sur les folders...
BRAVO
simple mais efficace
Messages postés
42
Date d'inscription
mercredi 12 juin 2002
Statut
Membre
Dernière intervention
6 octobre 2003

bon je fais pas mal de truc mais j'arrive pas à mettre ton code en place ! tant pis
Afficher les 10 commentaires

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.