Tout sur filesystemobject (partie i : les dossiers)

Commenter

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

S'inscrire maintenant

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.

Du même auteur (vbtom)