3xc4l18ur question = ( to ) ? be : ! be; | Bah voila je suis en pleinne gestion de fichiers et j'ai commencé a rédiger des fonctions pratique pour évité d'avoir a retenir de les methodes de FSO...
Je vous en fait profiter, et même si vous voyez des trucs a reprendre ou a completer : ne vous gènez pas!
Code :
- <%
- 'http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/fsooriScriptingRun-TimeReference.asp
- Dim fso
- Set fso = CreateObject("Scripting.FileSystemObject" )
- function mkdir(chemin, nomRep)
- 'chemin="c:\TestRep\"
- 'nomRep="Nouveau_Rep"
- FSO.createfolder(chemin & nomRep)
- end function
- function cp(FichierSource, RepDestination, OverWrite)
- 'FichierSource="c:\essai\*.doc"
- 'RepDest="c:\TestRep\"
- 'OverWrite=true
- Dim Fichier
- fichier = FSO.getFile(FichierSource)
- fichier.Copy RepDestination, OverWrite
- end function
- function mv (FichierSource, RepDestination)
- 'FichierSource = cv.doc
- 'RepDestination = "c:\windows\desktop\"
- Dim Fichier
- fichier = FSO.getFile(FichierSource)
- fichier.Move RepDestination
- end function
- function delFichier(Fichier, force)
- 'Fichier = "c:\TestRep\cv.doc"
- 'force = True
- FSO.DeleteFile Fichier, force
- end function
- function creeFichier(chemin, nomFichier, Unicode)
- 'chemin = "c:\TestRep\"
- 'nomFichier = "DocText.txt"
- 'Unicode = true -> false ASCII
-
- Dim MonFichier
- MonFichier = FSO.createtextfile (chemin & nomFichier, Unicode)
- MonFichier.close()
- MonFichier = Nothing
- end function
- Function GetCheminAbsolu(path)
- 'path le chemin relatif
- GetCheminAbsolu = fso.GetAbsolutePathName(path)
- End Function
- Function OuvreFichier(Fichier, mode, creation)
- 'fichier = "c:\TestRep\DocText.txt"
- 'mode : 8 en ajout, 2 en ecriture, 1 en lecture
- 'creation = true (creation du fichier s'il n'existe pas)
- Dim f
- f = FSO.OpenTextFile(Fichier, mode, creation)
- f.close()
- f = Nothing
- end function
- function LireNcaractere(Fichier, n)
- 'Fichier = "c:\TestRep\DocText.txt"
- 'n = nombre de caracteres a lire (READALL pour la totalité du texte; READLINE pour la premère ligne)
- Dim f
- f = FSO.OpenTextFile(Fichier, 1)
-
- Dim Nchar
- Nchar = f.read(n)
- f.close()
- f = Nothing
- end function
- function SauterNcaractere (Fichier, n)
- 'Fichier = "c:\TestRep\DocText.txt"
- 'n = nombre de caracteres a sauter
- Dim f
- f = FSO.OpenTextFile(Fichier, 1)
-
- f.skip(n)
- SauterNcaractere = f
- f.close()
- f = Nothing
- end function
- function SauterDesLignes (Fichier, n)
- 'Fichier = "c:\TestRep\DocText.txt"
- 'n = nombre de lignes a sauter
- Dim f
- f = FSO.OpenTextFile(Fichier, 8)
- f.writeBlankLines(n)
- f.close()
- f = Nothing
- end function
- %>
|
Message édité par !cricri le 25-05-2004 à 10:33:14
|