ASP

[ASP 3.0] FSO + Probleme pour renommer un fichier

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [ASP 3.0] FSO + Probleme pour renommer un fichier

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

Publicité

3xc4l18ur

question = ( to ) ? be : ! be;

comment je peux faire pour renommer un fichier ....
j'avais penser à

Code :

function mv (FichierSource, RepDestination)
'FichierSource = cv.doc
'RepDestination = "c:\windows\desktop\"
FSO.MoveFile FichierSource, RepDestination
end function

Mais hic! c'est je veux l'utiliser comme ceci

Code :

mv server.MapPath(".\" ) & "\img_eve\temp.gif", server.MapPath(".\" ) & "\img_eve\51.gif"

le second argument est aussi un fichier et non pas un repertoire de destination...
En plus c'est le même probleme pour un copier/supprimmer...
J'ai pas vu de "RenameFile Method" ici http://msdn.microsoft.com/library/ [...] ethods.asp

3xc4l18ur

question = ( to ) ? be : ! be;

bon bah j'editer le truc....
mais quand je l'utilise j'obtiens ca

Type d'erreur :
Erreur d'exécution Microsoft VBScript (0x800A01A8)
Objet requis: 'fichier'
_fso.asp, line 25 (c'est le .Move dans mv)

et je l'utilise comme ca
mv Server.MapPath(".\" ) & "\img_eve\temp." & ext, Server.MapPath(".\" ) & "\" & id_ev & "." & ext

3xc4l18ur

question = ( to ) ? be : ! be;

Message édité par !cricri le 25-05-2004 à 09:14:52

jc the great

aurais tu un on error resume next ? si oui enleve le pendant le deboguage.

---------------
"L'autodidacte, qui dans la vie, est parti de zéro pour n'arriver à rien dans l'existence, n'a de merci à dire à personne." (Pierre Dac)

jc the great

autre idée: set fichier = ...

---------------
"L'autodidacte, qui dans la vie, est parti de zéro pour n'arriver à rien dans l'existence, n'a de merci à dire à personne." (Pierre Dac)

3xc4l18ur

question = ( to ) ? be : ! be;

C'est nimp, les méthode sont dites equivalentes mais en fait non!

voici les corrections

Code :

function cp(FichierSource, RepDestination)
'FichierSource="c:\essai\*.doc"
'RepDestination="c:\TestRep\"
fso.CopyFile FichierSource, RepDestination, true
end function
function mv (FichierSource, RepDestination)
'FichierSource = cv.doc
'RepDestination = "c:\windows\desktop\"
fso.MoveFile FichierSource, RepDestination
end function
function del(Fichier)
'Fichier = "c:\TestRep\cv.doc"
FSO.DeleteFile Fichier, true
end function

Merci de ton aide, jc the great

jc the great

pour le coup j'ai été très utile.

---------------
"L'autodidacte, qui dans la vie, est parti de zéro pour n'arriver à rien dans l'existence, n'a de merci à dire à personne." (Pierre Dac)

3xc4l18ur

question = ( to ) ? be : ! be;

ca nous arrive a tous

FORUM HardWare.fr

Programmation

ASP

[ASP 3.0] FSO + Probleme pour renommer un fichier

Sujets relatifs
Problème de mise à jour d'une date ! [Résolu]	Tomcat proxy cache ==> probleme
access vba pb boucle impression ds fichier pdf + copie du fichier	[ASP] lister le contenu d'un répertoire
[JAVA] problème de lecture de fichier	[ASP 3.0] Vérifier les dimensions d'une image [Résolu]
[PHP] Modifier un fichier xml avec php/domxml	probleme de recherche dans un array
combobox petit problème
Plus de sujets relatifs à : [ASP 3.0] FSO + Probleme pour renommer un fichier

Page générée en 0.052 secondes