Tout sur filesystemobject (partie i : les dossiers)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 19 595 fois - Téléchargée 39 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
Kenshin07 Messages postés 7 Date d'inscription lundi 23 janvier 2006 Statut Membre Dernière intervention 23 mars 2007
9 févr. 2007 à 08:49
Exactement ce que je cherché !!

MERKI !
cs_Zonder Messages postés 10 Date d'inscription jeudi 27 février 2003 Statut Membre Dernière intervention 11 mai 2004
13 mai 2004 à 16:43
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
BBeppe Messages postés 16 Date d'inscription mardi 10 février 2004 Statut Membre Dernière intervention 10 février 2004
11 févr. 2004 à 19:07
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)
cs_Keneyda Messages postés 41 Date d'inscription lundi 30 décembre 2002 Statut Membre Dernière intervention 27 mars 2009
30 juil. 2003 à 01:15
Excellent pour commencer sur les folders...
BRAVO
simple mais efficace
cs_Symbiote Messages postés 42 Date d'inscription mercredi 12 juin 2002 Statut Membre Dernière intervention 6 octobre 2003
14 févr. 2003 à 16:08
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.