[ASP 3.0] FSO + Probleme pour renommer un fichier

FSO + Probleme pour renommer un fichier [ASP 3.0] - ASP - Programmation

Marsh Posté le 19-05-2004 à 17:00:55    

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 :
  1. <%
  2. 'http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/fsooriScriptingRun-TimeReference.asp
  4. Dim fso
  5. Set fso = CreateObject("Scripting.FileSystemObject" )
  7. function mkdir(chemin, nomRep)
  8. 'chemin="c:\TestRep\"
  9. 'nomRep="Nouveau_Rep"
  10. FSO.createfolder(chemin & nomRep)
  11. end function
  13. function cp(FichierSource, RepDestination, OverWrite)
  14. 'FichierSource="c:\essai\*.doc"
  15. 'RepDest="c:\TestRep\"
  16. 'OverWrite=true
  17. Dim Fichier
  18. fichier = FSO.getFile(FichierSource)
  19. fichier.Copy RepDestination, OverWrite
  20. end function
  22. function mv (FichierSource, RepDestination)
  23. 'FichierSource = cv.doc
  24. 'RepDestination = "c:\windows\desktop\"
  25. Dim Fichier
  26. fichier = FSO.getFile(FichierSource)
  27. fichier.Move RepDestination
  28. end function
  30. function delFichier(Fichier, force)
  31. 'Fichier = "c:\TestRep\cv.doc"
  32. 'force = True
  33. FSO.DeleteFile Fichier, force
  34. end function
  36. function creeFichier(chemin, nomFichier, Unicode)
  37. 'chemin = "c:\TestRep\"
  38. 'nomFichier = "DocText.txt"
  39. 'Unicode = true -> false ASCII
  40.    
  41. Dim MonFichier
  42. MonFichier = FSO.createtextfile (chemin & nomFichier, Unicode)
  43. MonFichier.close()
  44. MonFichier = Nothing
  45. end function
  47. Function GetCheminAbsolu(path)
  48. 'path le chemin relatif
  49.   GetCheminAbsolu = fso.GetAbsolutePathName(path)
  50. End Function
  52. Function OuvreFichier(Fichier, mode, creation)
  53.  'fichier = "c:\TestRep\DocText.txt"
  54. 'mode : 8 en ajout, 2 en ecriture, 1 en lecture
  55. 'creation = true (creation du fichier s'il n'existe pas)
  56. Dim f
  57.     f = FSO.OpenTextFile(Fichier, mode, creation)
  58. f.close()
  59.     f = Nothing
  60. end function
  62. function LireNcaractere(Fichier, n)
  63. 'Fichier = "c:\TestRep\DocText.txt"
  64. 'n = nombre de caracteres a lire (READALL pour la totalité du texte; READLINE pour la premère ligne)
  66.     Dim f
  67.     f = FSO.OpenTextFile(Fichier, 1)
  68.    
  69. Dim Nchar
  70. Nchar = f.read(n)
  71.     f.close()
  72.     f = Nothing
  73. end function
  75. function SauterNcaractere (Fichier, n)
  76.     'Fichier = "c:\TestRep\DocText.txt"
  77. 'n = nombre de caracteres a sauter
  79.     Dim f
  80.     f = FSO.OpenTextFile(Fichier, 1)
  81.    
  82. f.skip(n)
  83.     SauterNcaractere = f
  84. f.close()
  85.     f = Nothing
  86. end function
  88. function SauterDesLignes (Fichier, n)
  89. 'Fichier = "c:\TestRep\DocText.txt"
  90. 'n = nombre de lignes a sauter
  92. Dim f
  93.     f = FSO.OpenTextFile(Fichier, 8)
  94.     f.writeBlankLines(n)
  95.     f.close()
  96.     f = Nothing
  97. end function
  99. %>


Message édité par !cricri le 25-05-2004 à 10:33:14
Reply

Marsh Posté le 19-05-2004 à 17:00:55   

Reply

Marsh Posté le 24-05-2004 à 15:58:27    

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

Code :
  1. function mv (FichierSource, RepDestination)
  2. 'FichierSource = cv.doc
  3. 'RepDestination = "c:\windows\desktop\"
  4. FSO.MoveFile FichierSource, RepDestination
  5. end function


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

Code :
  1. 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

Reply

Marsh Posté le 24-05-2004 à 16:54:42    

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

Reply

Marsh Posté le 25-05-2004 à 09:14:36    

http://forum.hardware.fr/images/perso/yoyoz.gif


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

Marsh Posté le 25-05-2004 à 14:38:06    

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)
Reply

Marsh Posté le 25-05-2004 à 14:39:58    

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)
Reply

Marsh Posté le 25-05-2004 à 15:57:21    

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

Code :
  1. function cp(FichierSource, RepDestination)
  2. 'FichierSource="c:\essai\*.doc"
  3. 'RepDestination="c:\TestRep\"
  4. fso.CopyFile FichierSource, RepDestination, true
  5. end function
  7. function mv (FichierSource, RepDestination)
  8. 'FichierSource = cv.doc
  9. 'RepDestination = "c:\windows\desktop\"
  10. fso.MoveFile FichierSource, RepDestination
  11. end function
  13. function del(Fichier)
  14. 'Fichier = "c:\TestRep\cv.doc"
  15. FSO.DeleteFile Fichier, true
  16. end function


 
Merci de ton aide, jc the great

Reply

Marsh Posté le 25-05-2004 à 17:21:31    

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)
Reply

Marsh Posté le 26-05-2004 à 19:58:51    

ca nous arrive a tous ;)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed