Discussion :

[dubinc38]

Salut tout le monde

Aprés differentes recherche a propos de la copie de fichier il ne me semble pas avoir trouver la solution a mon probleme.

En effet mon but et de pouvoir :

lire le fichier ligne par ligne
effectué une recherche de caractere
si je trouve le caractere alors j'ajoute une ligne
Puis arriver a la fin du fichier je le copie dans un autre dossier

Mon probleme reside dans le fait que je n'arrive pas a recupérer le nom du fichier pour la copie si je note literralement sont nom sa marche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Const OverwriteExisting = True
	Set objFSO = CreateObject("Scripting.FileSystemObject")
	objFSO.CopyFile "c:\testvbs\monfichier.txr, "C:\testvbscopie" , OverwriteExisting
end if

mais j ai besoin de récupérer le nom pour ainsi automatiser le traitement pour tout les fichier

Voila ce que j'ai essayer et le message d'erreur que j 'obtient est permission non accordée (je suis pourtant admin du poste windows xp pro et je n 'ai pas ce message d'erreur si je note literralement le nom du fichier)

merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'----------
' Recherche d'une chaine de caractère dans une phrase + copie du fichier dans le nouveau repertoire
'----------
pos=InStr(ligne,schaine)
if pos = 1 then 
	Set WshShell = WScript.CreateObject("WScript.Shell")
	Set fso = CreateObject("Scripting.FileSystemObject")
	Set f = fso.OpenTextFile(objfile.Path,8,true)
	f.writeline("Netprinter|  \\proclu01ps\"& proclu &"\|Y")
 
	Const OverwriteExisting = True
	Set objFSO = CreateObject("Scripting.FileSystemObject")
	objFSO.CopyFile "c:\testvbs\"&objfile.name, "C:\testvbscopie" , OverwriteExisting
end if

[dubinc38]

Je viens de trouver la solution aprés X teste

si jamais sa peut interesser quelqu'un voici ce que j'ai fait:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Set FSO = CreateObject("Scripting.FileSystemObject")
'Fichier origine 
'je recupere objfile.Path lors de la lecture ligne par ligne de mon
'fichier.txt
Set Ftxt = fso.GetFile(objfile.Path)   'Fichier origine
'emplacement destination
Ftxt.copy("chemindudossierpourlacopie") 'emplacement destination