Gestion de fichier (créer, lire, rajouter des lignes,effacer, détruire)
Contenu du snippet
Ben voilà, j'ai fait une fonction utilisant le FILESYSTEMOBJECT qui permet de manipuler des fichiers.
Vous pouvez créer, lire, rajouter des lignes, détruire un fichier.
Je vous conseille de mettre cette fonction dans un fichier que vous appellerez ensuite dans un include.
Voir la page test.
Fichier test :
<%@ Language=VBScript %>
<!--#include file="fonctions.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>Acceuil</TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="WebMaster">
<META NAME="Keywords" CONTENT="Intranet">
<META NAME="Description" CONTENT="Gestion de Ticketclic">
<script language="JavaScript">
<!--
//-->
</script>
</HEAD>
<BODY>
<br>copie de tous les fichiers dans le répertoire courant (*.*) dans test :
<%
temp = gestion_fichier("non","","tes*.asp","test","testo.asp","6","")
response.Write temp
response.end
%>
<br>exitence du fichier toto.htm :
<%
temp = gestion_fichier("","test","toto.htm","","","0","")
response.Write temp
%>
<br>créer le fichier toto.htm :
<%
temp = gestion_fichier("","test","toto.htm","","","1","")
response.Write temp
%>
<br>exitence du fichier toto.htm :
<%
temp = gestion_fichier("","test","toto.htm","","","0","")
response.Write temp
%>
<br>on recrée le fichier toto.htm :
<%
temp = gestion_fichier("","test","toto.htm","","","1","")
response.Write temp
%>
<br>on recrée le fichier toto.htm en forçant l'écrasement de l'ancien :
<%
temp = gestion_fichier("","test","toto.htm","","","1","oui")
response.Write temp
%>
<br>on ouvre le fichier toto.htm et on lui rajoute des lignes :
<%
temp = gestion_fichier("","test","toto.htm","TITI<br>;TOTO<br>;<br>;vont à la mer<br>;<br>;FIN;",";","2","")
response.Write temp
%>
<br>on supprime le fichier toto.htm :
<%
temp = gestion_fichier("","test","toto.htm","1","","3","")
response.Write temp
%>
<br>exitence du fichier toto.htm :
<%
temp = gestion_fichier("","test","toto.htm","","","0","")
response.Write temp
%>
<br>on ouvre le fichier toto.htm et on lui rajoute des lignes :
<%
temp = gestion_fichier("","test","toto.htm","TITI<br>;TOTO<br>;<br>;vont à la mer<br>;<br>;FIN;",";","2","")
response.Write temp
%>
<br>on ouvre le fichier toto.htm en forçant la création et on lui rajoute des lignes :
<%
temp = gestion_fichier("","test","toto.htm","TITI<br>;TOTO<br>;<br>;vont à la mer<br>;<br>;FIN;",";","2","oui")
response.Write temp
%>
<br>on ouvre le fichier toto.htm et on lit tout le contenu :
<%
temp = gestion_fichier("","test","toto.htm","","","4","")
response.Write temp
%>
<br>on ouvre le fichier toto.htm et on lit la 4è ligne :
<%
temp = gestion_fichier("","test","toto.htm","","","4","4")
response.Write temp
%>
<br>on ouvre le fichier toto.htm et on lit la dernière ligne :
<%
temp = gestion_fichier("","test","toto.htm","","","4","end")
response.Write temp
%>
<br>on ouvre le fichier toto.htm et on calcule le nb de ligne ligne :
<%
temp = gestion_fichier("","test","toto.htm","","","4","nb")
response.Write temp
%>
<br>on supprime le fichier toto.htm :
<%
temp = gestion_fichier("","test","toto.htm","one","","3","")
response.Write temp
%>
<br>on ouvre le fichier toto.htm et on lui rajoute des lignes :
<%
temp = gestion_fichier("","test","toto.htm","TITI<br>;TOTO<br>;<br>;vont à la mer<br>;<br>;FIN;",";","2","")
response.Write temp
%>
<br>créer le fichier toto.htm :
<%
temp = gestion_fichier("","test","toto.htm","","","1","")
response.Write temp
%>
<br>on ouvre le fichier toto.htm et on lui rajoute des lignes :
<%
temp = gestion_fichier("","test","toto.htm","TITI<br>;TOTO<br>;<br>;vont à la mer<br>;<br>;FIN;",";","2","")
response.Write temp
%>
<br>recréer le fichier toto.htm en écrasant l'ancien :
<%
temp = gestion_fichier("","test","toto.htm","","","1","oui")
response.Write temp
%>
<br>on ouvre le fichier toto.htm et on calcule le nb de ligne ligne :
<%
temp = gestion_fichier("","test","toto.htm","","","4","nb")
response.Write temp
%>
<br>copie de tous les fichiers dans le répertoire courant (*.*) dans test :
<%
temp = gestion_fichier("","","*.*",server.mappath("/test"),"","6","oui")
response.Write temp
%>
<br>on supprime tout le contenu du répertoire test :
<%
temp = gestion_fichier("","test","*.*","","","3","oui")
response.Write temp
%>
<br>copie de du fichier test.asp dans test en écrasant l'ancien :
<%
temp = gestion_fichier("oui","","test.asp",server.mappath("/test"),"","6","one")
response.Write temp
%>
<br>on supprime le fichier test.asp dans le répertoire test :
<%
temp = gestion_fichier("","test","test.asp","1","","3","oui")
response.Write temp
%>
</BODY>
</HTML>
Si il y a des bugs, remontez moi l'info, merci
Vous pouvez créer, lire, rajouter des lignes, détruire un fichier.
Je vous conseille de mettre cette fonction dans un fichier que vous appellerez ensuite dans un include.
Voir la page test.
Source / Exemple :
'-------------------------------------------------------------------------------------------------------------------
'gestion_fichier : cette fonction permet de gérer un fichier (créer, détruire, ouvrir et lire, ouvrir et écrire...
'-------------------------------------------------------------------------------------------------------------------
'ENTREES :Valeurs possibles de Choix :
'0,exits : indique si le fichier spécifié existe ou non
'Option1 : chemin vers le répertoire du fichier
'si le fichier est situé dans un répertoire à partir du répertoire actuel, alors Option1 contient le chemin relatif
'sinon on donne le chemin complet
'si vide, alors c'est que le fichier est situé dans le répertoire actuel (c'est à dire celui dans lequel se situe le fichier ASP qui exécute la fonction)
'Option2 : Nom du fichier à vérifier
'1,créer,create : crée un fichier
'Option1 : chemin vers le répertoire du fichier
'si le fichier est situé dans un répertoire à partir du répertoire actuel, alors Option1 contient le chemin relatif
'sinon on donne le chemin complet
'si vide, alors c'est que le fichier est situé dans le répertoire actuel (c'est à dire celui dans lequel se situe le fichier ASP qui exécute la fonction)
'Option2 : Nom du fichier à créer
'Si Opt=écraser|oui|vrai|true alors, on écrase l'ancien, sinon message d'erreur (le fichier à créer existe déjà)
'2,écrire,write : ouvre un fichier et rajoute des lignes de texte
'Option1 : chemin vers le répertoire du fichier
'si le fichier est situé dans un répertoire à partir du répertoire actuel, alors Option1 contient le chemin relatif
'sinon on donne le chemin complet
'si vide, alors c'est que le fichier est situé dans le répertoire actuel (c'est à dire celui dans lequel se situe le fichier ASP qui exécute la fonction)
'Option2 : Nom du fichier à ouvrir
'Option3 : Liste des lignes à insérer dans le fichier
'Option4 : Séparateur de la liste (si vide alors c'est ;)
'Si Opt=écraser|oui|vrai|true alors, on crée le fichier si il n'existe pas, sinon message d'erreur (le fichier à ouvrir n'existe pas)
'3,supprimer,delete : supprimer un fichier
'Option1 : chemin vers le répertoire du fichier
'si le fichier est situé dans un répertoire à partir du répertoire actuel, alors Option1 contient le chemin relatif
'sinon on donne le chemin complet
'si vide, alors c'est que le fichier est situé dans le répertoire actuel (c'est à dire celui dans lequel se situe le fichier ASP qui exécute la fonction)
'Option2 : Nom du fichier à supprimer, caractère générique accepté (*)
'Option3 : indique s'il s'agit d'un fichier (1,one,un) ou de plusieurs fichiers
'Opt = vrai|true|oui|écraser : écraser le fichier même si il porte l'attribut read only
'4,lire,read : ouvre un fichier et le parcourt lis
'Option1 : chemin vers le répertoire du fichier
'si le fichier est situé dans un répertoire à partir du répertoire actuel, alors Option1 contient le chemin relatif
'sinon on donne le chemin complet
'si vide, alors c'est que le fichier est situé dans le répertoire actuel (c'est à dire celui dans lequel se situe le fichier ASP qui exécute la fonction)
'Option2 : Nom du fichier à lire
'Si Opt=6 alors on lira seulement la 6è ligne du fichier
'Si Opt=dernière,last,fin,end alors on retourne la dernière ligne du fichier
'Si Opt=nb,nbligne,nombre de ligne,nbline,number of line alors on retourne le nombre de ligne du fichier
'Si Opt=vide alors on lit tout le contenu du fichier
'5,renommer,rename : renomme le fichier Option2 en Option3 (Opt=true,vrai,oui=>écrase le fichier existant portant déjà ce nom)
'6,copier,copy : copie un ou plusieurs fichiers depuis une répertoire source Option1 vers un répertoire destination Option3
'si Opt=one,un,1 alors on copie le fichier de nom Option2 en le renommant Option4 (si Option4 est vide, alors le fichier est copié en gardant le nom de Option2)
'sinon on copie tous les fichiers dans le répertoire source Option1 vers le répertoire destinantion Option3, en gardant le nom des fichiers source (on ne tient pas compte de Option4 et de Option2 contient des caractères génériques)
'Option2 = chemin relatif ou complet vers le ou les fichiers à copier (si vide, alors le répertoire actuel est considéré comme le répertoire source)
'Option3 = chemin relatif par rapport au répertoire actuel ou sinon chemin complet si en dehors du répertoire actuel (si vide, c'est le répertoire actuel qui est le répertoire destination)
'Si Option0=vrai,oui,true alors on copie en écrasant le fichier existant
'ATTENTION : les caractères génériques ne doivent être utilisés qu'une fois dans le chemin ou dans le nom du fichier
'Exemple : FileSystemObject.CopyFile "c:\mydocuments\letters\*.doc", "c:\tempfolder\" bon
'FileSystemObject.CopyFile "c:\mydocuments\*\R1???97.xls", "c:\tempfolder" pas bon
'Rappel sur les caractères génériques:
'* Matches any number of characters. It can be used as the first or last character in the character string.
'Ex : wh* finds what, white, and why
'? Matches any single alphabetic character.
'Ex : B?ll finds ball, bell, and bill
'[ ] Matches any single character within the brackets.
'Ex : B[ae]ll finds ball and bell but not bill
'! Matches any character not in the brackets.
'Ex : b[!ae]ll finds bill and bull but not bell
'- Matches any one of a range of characters. You must specify the range in ascending order (A to Z, not Z to A).
'Ex : b[a-c]d finds bad, bbd, and bcd
'# Matches any single numeric character.
'Ex : 1#3 finds 103, 113, 123
'SORTIES : true si l'opération s'est bien déroulée, sinon contient le message indiquant la nature de l'erreur
'-------------------------------------------------------------------------------------------------------------------
function gestion_fichier(Option0,Option1,Option2,Option3,Option4,Choix,Opt)
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
'TristateUseDefault =-2 :Opens the file using the system default.
'TristateTrue = -1 :Opens the file as Unicode.
'TristateFalse = 0 :Opens the file as ASCII.
Const Normal = 0' Normal file. No attributes are set.
Const ReadOnly = 1' Read-only file. Attribute is read/write.
Const Hidden = 2 ' Hidden file. Attribute is read/write.
Const System = 4 ' System file. Attribute is read/write.
Const Volume = 8 'Disk drive volume label. Attribute is read-only.
Const Directory = 16 ' Folder or directory. Attribute is read-only.
Const Archive = 32 ' File has changed since last backup. Attribute is read/write.
Const Alias = 64 ' Link or shortcut. Attribute is read-only.
Const Compressed = 128' Compressed file. Attribute is read-only.
Dim fso, f, ts
Dim f1, f2, fc
Dim MessErreur,NomFichierListe
MessErreur = ""
err.number = 0
Set fso = Server.CreateObject("Scripting.FileSystemObject")
SELECT CASE LCase(Choix)
CASE "0", "exists"
'------------------------------------------------------------------------------------------------------------
'EXISTENCE D'UN FICHIER
'------------------------------------------------------------------------------------------------------------
if (Option2<>"") then
CheminVersFichier = CheminComplet(Option1)
' on vérifie que le répertoire existe
if fso.FolderExists(CheminVersFichier) then
' on regarge si le fichier existe
MessErreur = fso.FileExists(CheminVersFichier & Option2)
else
MessErreur = "Le répertoire '" & CheminVersFichier & "' dans lequel vous voulez vérifier l'existence du fichier '" & Option2 & "' n'existe pas!"
end if
else
MessErreur = "Veuillez préciser le nom du fichier à vérifier l'existence!"
end if
CASE "1", "créer", "create"
'------------------------------------------------------------------------------------------------------------
'CREATION D'UN FICHIER
'------------------------------------------------------------------------------------------------------------
if (Option2<>"") then
CheminVersFichier = CheminComplet(Option1)
' on vérifie que le répertoire existe
if fso.FolderExists(CheminVersFichier) then
CheminVersFichier = CheminVersFichier & Option2
if (Opt="écraser" OR Opt="oui" OR Opt="vrai" OR Opt=true) then
' on écrase le fichier si il existe déjà : permet de créer un fichier vide
Set f = fso.CreateTextFile(CheminVersFichier, True)
if err.number = 0 then
MessErreur = true
else
MessErreur = "Problème lors de la tentative de création du fichier '" & CheminVersFichier & "'.<br>" & vbcrlf & "Erreur description : " & err.description
end if
else
' Avant de créer on vérifie qu'un fichier portant ce nom n'existe pas déjà
if not (gestion_fichier("",Option1,Option2,"","","0","")) then
Set f = fso.CreateTextFile(CheminVersFichier, false)
if err.number = 0 then
MessErreur = true
else
MessErreur = "Problème lors de la tentative de création du fichier '" & CheminVersFichier & "'.<br>" & vbcrlf & "Erreur description : " & err.description
end if
else
MessErreur = "Le fichier, '" & CheminVersFichier & "', que vous voulez créer existe déjà!"
end if
end if
else
MessErreur = "Le répertoire '" & CheminVersFichier & "' dans lequel vous voulez créer le fichier '" & Option2 & "' n'existe pas!"
end if
else
MessErreur = "Veuillez préciser le nom du fichier à créer!"
end if
CASE "2","write","écrire"
'------------------------------------------------------------------------------------------------------------
'OUVERTURE D'UN FICHIER ET ECRITURE DANS UN FICHIER
'------------------------------------------------------------------------------------------------------------
IF Option4 = "" THEN
Option4 = ";"
END IF
if (Option2<>"") then
CheminVersFichier = CheminComplet(Option1)
' on vérifie que le répertoire existe
if fso.FolderExists(CheminVersFichier) then
CheminVersFichier = CheminVersFichier & Option2
' est ce qu'on crée le fichier en l'ouvrant?
if (Opt="écraser" OR Opt="oui" OR Opt="vrai" OR Opt=true) then
Set f = fso.CreateTextFile(CheminVersFichier, true)
TabLigneAjouter = split(Option3,Option4)
IndMaxTabLigneAjouter = UBound(TabLigneAjouter)
if IndMaxTabLigneAjouter=0 then
' on n'a qu'une ligne à mettre
ReDim TabLigneAjouter(1)
TabLigneAjouter(0) = Option3
IndMaxTabLigneAjouter = UBound(TabLigneAjouter)
end if
i = 0
DO WHILE i < IndMaxTabLigneAjouter
f.WriteLine TabLigneAjouter(i)
if err.number > 0 then
MessErreur = "Erreur lors de la tentative d'écriture dans le fichier '" & CheminVersFichier & "' de la ligne '" & TabLigneAjouter(i) & "'!<br>" & vbcrlf & "Erreur description : " & err.description
exit DO
end if
i = i + 1
LOOP
f.close
IF err.number = 0 THEN
MessErreur = true
END IF
else
' Avant d'ouvir le fichier en écriture on vérifie que le fichier existe
if gestion_fichier("",Option1,Option2,"","","0","") then
Set f = fso.OpenTextFile(CheminVersFichier,ForAppending,false,TristateFalse)
TabLigneAjouter = split(Option3,Option4)
IndMaxTabLigneAjouter = UBound(TabLigneAjouter)
i = 0
DO WHILE i < IndMaxTabLigneAjouter
f.WriteLine TabLigneAjouter(i)
if err.number > 0 then
MessErreur = "Erreur lors de la tentative d'écriture dans le fichier '" & CheminVersFichier & "' de la ligne '" & TabLigneAjouter(i) & "'!<br>" & vbcrlf & "Erreur description : " & err.description
exit DO
end if
i = i + 1
LOOP
f.close
IF err.number = 0 THEN
MessErreur = true
END IF
else
MessErreur = "Le fichier '" & CheminVersFichier & "' dans lequel vous voulez écrire n'existe pas!"
end if
end if
else
MessErreur = "Le répertoire '" & CheminVersFichier & "' du fichier '" & Option2 & "', dans lequel vous voulez écrire, n'existe pas!"
end if
else
MessErreur = "Veuillez préciser le nom du fichier dans lequel vous voulez écrire!"
end if
CASE "3","supprimer","delete"
'------------------------------------------------------------------------------------------------------------
'SUPPRIMER UN FICHIER
'------------------------------------------------------------------------------------------------------------
if (Option2<>"") then
CheminVersFichier = CheminComplet(Option1)
' on vérifie que le répertoire existe
if fso.FolderExists(CheminVersFichier) then
if (Option3="one" OR Option3="un" OR Option3="1") THEN
' on vérifie que le fichier à supprimer existe
if (gestion_fichier("",Option1,Option2,"","","0","")) then
if (Opt="écraser" OR Opt="oui" OR Opt="vrai" OR Opt=true) then
' on supprime le fichier même si il porte l'attribut read-only
fso.DeleteFile CheminVersFichier & Option2, true
if err.number>0 then
MessErreur = "Erreur lors de la tentative de suppression du fichier '" & CheminVersFichier & Option2 & "'!<br>Erreur description : " & err.description
else
MessErreur = true
end if
else
' on ne supprime pas le fichier si il porte l'attribut read-only
set f = fso.GetFile(CheminVersFichier & Option2)
response.write("f.attributes = " & f.attributes)
if ((f.attributes - Archive)= Normal) OR ((f.attributes - ReadOnly)= Normal) then
fso.DeleteFile CheminVersFichier & Option2, false
if err.number>0 then
MessErreur = "Erreur lors de la tentative de suppression du fichier '" & CheminVersFichier & Option2 & "'!<br>Erreur description : " & err.description
else
MessErreur = true
end if
else
MessErreur = "Impossible de supprimer le fichier '" & CheminVersFichier & Option2 & "' car il porte un attribut spécial : " & f.attributes & " ( Normal = 0 | ReadOnly = 1 | Hidden = 2 | System = 4 | Volume = 8 | Directory = 16 | Archive = 32 | Alias = 64 | Compressed = 128 )"
end if
end if
else
MessErreur = "Le fichier '" & CheminVersFichier & "' que vous voulez supprimer n'existe pas!"
end if
else
' on supprime un groupe de fichier : attribut read-only du fichier est à 1 : effacer ou pas?
if (Opt="écraser" OR Opt="oui" OR Opt="vrai" OR Opt=true) then
fso.DeleteFile CheminVersFichier & Option2, true
else
'sinon, il faut lister les attributs de tous les fichiers présents dans le répertoire et ne supprimer
' que ceux qui n'ont pas l'attribut read-only à 1
Set f1 = fso.GetFolder(CheminVersFichier)
Set fc = f1.Files
For Each f2 in fc
if (f.attributes-Archive)=Normal then
fso.DeleteFile CheminVersFichier, false
if err.number>0 then
MessErreur = "Erreur lors de la tentative de suppression du fichier '" & CheminVersFichier & fc.name & "'!<br>Erreur description : " & err.description
exit for
end if
end if
Next
end if
if err.number>0 then
MessErreur = "Erreur lors de la tentative de suppression des fichiers '" & CheminVersFichier & Option2 & "'!<br>Erreur description : " & err.description
else
MessErreur = true
end if
end if
else
MessErreur = "Le répertoire '" & CheminVersFichier & "' du fichier '" & Option2 & "' que vous voulez supprimer n'existe pas!"
end if
else
MessErreur = "Veuillez préciser le nom du fichier que vous voulez supprimer!"
end if
CASE "4","lire","read"
'------------------------------------------------------------------------------------------------------------
'OUVERTURE ET LECTURE D'UN FICHIER
'------------------------------------------------------------------------------------------------------------
if (Option2<>"") then
CheminVersFichier = CheminComplet(Option1)
' on vérifie que le répertoire existe
if fso.FolderExists(CheminVersFichier) then
CheminVersFichier = CheminVersFichier & Option2
' on vérifie que le fichier à lire existe
if (gestion_fichier("",Option1,Option2,"","","0","")) then
' on prend la main sur le fichier
Set f = fso.GetFile(CheminVersFichier)
' on vérifie que la taille du fichier n'est pas vide
if f.size > 0 then
' puis on l'ouvre en tant que TextStream object
Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
if (Opt<>"" AND IsNumeric(Opt)) then
' on lit la nième ligne du fichier
NumeroLigne = Cint(Opt)
DO WHILE ( (ts.line <> NumeroLigne) AND (not ts.AtEndOfStream) )
ts.SkipLine
LOOP
IF (not ts.AtEndOfStream) THEN
MessErreur = ts.ReadLine
if err.number>0 then
MessErreur = "Erreur lors de la tentative de lecture de la ligne numéro '" & Opt & "' du fichier '" & CheminVersFichier & "'!<br>Erreur description : " & err.description
end if
ELSE
MessErreur = "La ligne numéro '" & Opt & "' n'existe pas dans le fichier '" & CheminVersFichier & "'!"
END IF
else
IF (Opt="dernière" OR Opt="last" OR Opt="fin" OR Opt="end" OR Opt="nb" OR Opt="nbligne" OR Opt="nombre de ligne" OR Opt="nbline" OR Opt="number of line") THEN
' on calcule le nombre de lignes du fichier
NbLigne = 0
DO WHILE (not ts.AtEndOfStream)
ts.SkipLine
NbLigne = NbLigne + 1
LOOP
IF (Opt="dernière" OR Opt="last" OR Opt="fin" OR Opt="end") THEN
MessErreur = gestion_fichier("",Option1,Option2,"","","4",NbLigne)
ELSE
MessErreur = NbLigne
END IF
ELSE
' on lit tout le fichier
MessErreur = ts.ReadAll
if err.number>0 then
MessErreur = "Erreur lors de la tentative de lecture du fichier '" & CheminVersFichier & "'!<br>Erreur description : " & err.description
end if
END IF
end if
ts.close
else
MessErreur = "Le fichier '" & CheminVersFichier & "' que vous voulez lire est vide!"
end if
else
MessErreur = "Le fichier '" & CheminVersFichier & "' que vous voulez lire n'existe pas!"
end if
set f = nothing
else
MessErreur = "Le répertoire '" & CheminVersFichier & "' du fichier '" & Option2 & "' que vous voulez lire n'existe pas!"
end if
else
MessErreur = "Veuillez préciser le nom du fichier que vous voulez lire!"
end if
CASE ELSE
MessErreur = "Vous n'avez fait aucun choix quant à la nature de l'opération."&vbcrlf
END SELECT
set fso = nothing
gestion_fichier = MessErreur
end function
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'CheminComplet : permet de construire le chemin complet d'un chemin relatif
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'ENTREES : NomRepertoire(chemin relatif vers le répertoire)
' Si NomRepertoire est vide, alors on construit le chemin vers le répertoire courant
'SORTIES : chemin complet vers le nom du répertoire NomRepertoire
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
function CheminComplet(NomRepertoire)
' La méthode server.mappath n'accepte que les chemins relatifs : il ne doit donc pas y avoir ":" dans le nom du répertoire
if (instr(NomRepertoire,":")=0) then
if (NomRepertoire="") then
Str = server.mappath("/")
else
Str = server.mappath(NomRepertoire)
end if
else
Str = NomRepertoire
end if
if (right(Str,1)<>"\") then
Str = Str & "\"
end if
CheminComplet = Str
end function
Conclusion :
Fichier test :
<%@ Language=VBScript %>
<!--#include file="fonctions.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>Acceuil</TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="WebMaster">
<META NAME="Keywords" CONTENT="Intranet">
<META NAME="Description" CONTENT="Gestion de Ticketclic">
<script language="JavaScript">
<!--
//-->
</script>
</HEAD>
<BODY>
<br>copie de tous les fichiers dans le répertoire courant (*.*) dans test :
<%
temp = gestion_fichier("non","","tes*.asp","test","testo.asp","6","")
response.Write temp
response.end
%>
<br>exitence du fichier toto.htm :
<%
temp = gestion_fichier("","test","toto.htm","","","0","")
response.Write temp
%>
<br>créer le fichier toto.htm :
<%
temp = gestion_fichier("","test","toto.htm","","","1","")
response.Write temp
%>
<br>exitence du fichier toto.htm :
<%
temp = gestion_fichier("","test","toto.htm","","","0","")
response.Write temp
%>
<br>on recrée le fichier toto.htm :
<%
temp = gestion_fichier("","test","toto.htm","","","1","")
response.Write temp
%>
<br>on recrée le fichier toto.htm en forçant l'écrasement de l'ancien :
<%
temp = gestion_fichier("","test","toto.htm","","","1","oui")
response.Write temp
%>
<br>on ouvre le fichier toto.htm et on lui rajoute des lignes :
<%
temp = gestion_fichier("","test","toto.htm","TITI<br>;TOTO<br>;<br>;vont à la mer<br>;<br>;FIN;",";","2","")
response.Write temp
%>
<br>on supprime le fichier toto.htm :
<%
temp = gestion_fichier("","test","toto.htm","1","","3","")
response.Write temp
%>
<br>exitence du fichier toto.htm :
<%
temp = gestion_fichier("","test","toto.htm","","","0","")
response.Write temp
%>
<br>on ouvre le fichier toto.htm et on lui rajoute des lignes :
<%
temp = gestion_fichier("","test","toto.htm","TITI<br>;TOTO<br>;<br>;vont à la mer<br>;<br>;FIN;",";","2","")
response.Write temp
%>
<br>on ouvre le fichier toto.htm en forçant la création et on lui rajoute des lignes :
<%
temp = gestion_fichier("","test","toto.htm","TITI<br>;TOTO<br>;<br>;vont à la mer<br>;<br>;FIN;",";","2","oui")
response.Write temp
%>
<br>on ouvre le fichier toto.htm et on lit tout le contenu :
<%
temp = gestion_fichier("","test","toto.htm","","","4","")
response.Write temp
%>
<br>on ouvre le fichier toto.htm et on lit la 4è ligne :
<%
temp = gestion_fichier("","test","toto.htm","","","4","4")
response.Write temp
%>
<br>on ouvre le fichier toto.htm et on lit la dernière ligne :
<%
temp = gestion_fichier("","test","toto.htm","","","4","end")
response.Write temp
%>
<br>on ouvre le fichier toto.htm et on calcule le nb de ligne ligne :
<%
temp = gestion_fichier("","test","toto.htm","","","4","nb")
response.Write temp
%>
<br>on supprime le fichier toto.htm :
<%
temp = gestion_fichier("","test","toto.htm","one","","3","")
response.Write temp
%>
<br>on ouvre le fichier toto.htm et on lui rajoute des lignes :
<%
temp = gestion_fichier("","test","toto.htm","TITI<br>;TOTO<br>;<br>;vont à la mer<br>;<br>;FIN;",";","2","")
response.Write temp
%>
<br>créer le fichier toto.htm :
<%
temp = gestion_fichier("","test","toto.htm","","","1","")
response.Write temp
%>
<br>on ouvre le fichier toto.htm et on lui rajoute des lignes :
<%
temp = gestion_fichier("","test","toto.htm","TITI<br>;TOTO<br>;<br>;vont à la mer<br>;<br>;FIN;",";","2","")
response.Write temp
%>
<br>recréer le fichier toto.htm en écrasant l'ancien :
<%
temp = gestion_fichier("","test","toto.htm","","","1","oui")
response.Write temp
%>
<br>on ouvre le fichier toto.htm et on calcule le nb de ligne ligne :
<%
temp = gestion_fichier("","test","toto.htm","","","4","nb")
response.Write temp
%>
<br>copie de tous les fichiers dans le répertoire courant (*.*) dans test :
<%
temp = gestion_fichier("","","*.*",server.mappath("/test"),"","6","oui")
response.Write temp
%>
<br>on supprime tout le contenu du répertoire test :
<%
temp = gestion_fichier("","test","*.*","","","3","oui")
response.Write temp
%>
<br>copie de du fichier test.asp dans test en écrasant l'ancien :
<%
temp = gestion_fichier("oui","","test.asp",server.mappath("/test"),"","6","one")
response.Write temp
%>
<br>on supprime le fichier test.asp dans le répertoire test :
<%
temp = gestion_fichier("","test","test.asp","1","","3","oui")
response.Write temp
%>
</BODY>
</HTML>
Si il y a des bugs, remontez moi l'info, merci
A voir également
- Gestion de fichier (créer, lire, rajouter des lignes,effacer, détruire)
- Créer des mots mélés - Forum Java
- Gestion des demandes d'intervention - Forum PHP
- Tableau gestion des clés ✓ - Forum VB.NET
- Créer bulletin scolaire en ligne - Forum PHP
- Fichier excel gestion de flotte - Forum Visual Basic 6
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.