Bonjour ! peut-etre essayer avec le chemin réseau ( "Serveur-reseaumonfichier.txt" )
--
"John Fuss" a écrit dans le message de news:bvto5p$c1b$
Bonjour à tous,
je souhaite dupliquer un fichier "x:monfichier.txt" (où x: est un lecteur réseau) en "x:Archivesmonfichier_" & date & ".txt"
j'ai essayé FSO mais ça marche pas sur un lecteur réseau.
Des idées ?
Merci
John
FxM
Bonsoir,
je souhaite dupliquer un fichier "x:monfichier.txt" (où x: est un lecteur
réseau) en "x:Archivesmonfichier_" & date & ".txt"
j'ai essayé FSO mais ça marche pas sur un lecteur réseau.
Meuh si ca marche sur un réseau (si tu as une lettre de lecteur). J'ai pu faire une procédure de sauvegarde automatique des fichiers modifiés (unisuement les modifiés). Faudra que je l'envoie à notre bienaimée volatile un de ces jours.
Non testé : Sub test() origine = "c:testtest.txt" dest = "c:archive" Set fso = CreateObject("Scripting.FileSystemObject") fil = Dir(origine) chemin = Left(origine, Len(origine) - Len(fil) - 1) dest = Replace(origine, chemin, dest) dest = Left(dest, Len(dest) - 4) & "_" & _ Format(Now, "yyyymmdd_hhmm") & Right(dest, 4) FileCopy origine, dest End Sub
@+ FxM
Bonsoir,
je souhaite dupliquer un fichier "x:monfichier.txt" (où x: est un
lecteur
réseau) en "x:Archivesmonfichier_" & date & ".txt"
j'ai essayé FSO mais ça marche pas sur un lecteur réseau.
Meuh si ca marche sur un réseau (si tu as une lettre de lecteur).
J'ai pu faire une procédure de sauvegarde automatique des fichiers
modifiés (unisuement les modifiés). Faudra que je l'envoie à notre
bienaimée volatile un de ces jours.
Non testé :
Sub test()
origine = "c:testtest.txt"
dest = "c:archive"
Set fso = CreateObject("Scripting.FileSystemObject")
fil = Dir(origine)
chemin = Left(origine, Len(origine) - Len(fil) - 1)
dest = Replace(origine, chemin, dest)
dest = Left(dest, Len(dest) - 4) & "_" & _
Format(Now, "yyyymmdd_hhmm") & Right(dest, 4)
FileCopy origine, dest
End Sub
je souhaite dupliquer un fichier "x:monfichier.txt" (où x: est un lecteur
réseau) en "x:Archivesmonfichier_" & date & ".txt"
j'ai essayé FSO mais ça marche pas sur un lecteur réseau.
Meuh si ca marche sur un réseau (si tu as une lettre de lecteur). J'ai pu faire une procédure de sauvegarde automatique des fichiers modifiés (unisuement les modifiés). Faudra que je l'envoie à notre bienaimée volatile un de ces jours.
Non testé : Sub test() origine = "c:testtest.txt" dest = "c:archive" Set fso = CreateObject("Scripting.FileSystemObject") fil = Dir(origine) chemin = Left(origine, Len(origine) - Len(fil) - 1) dest = Replace(origine, chemin, dest) dest = Left(dest, Len(dest) - 4) & "_" & _ Format(Now, "yyyymmdd_hhmm") & Right(dest, 4) FileCopy origine, dest End Sub
@+ FxM
John Fuss
Merci c'était le FileCopy qui me manquait !
John
"FxM" a écrit dans le message de news:
Bonsoir,
je souhaite dupliquer un fichier "x:monfichier.txt" (où x: est un lecteur
réseau) en "x:Archivesmonfichier_" & date & ".txt"
j'ai essayé FSO mais ça marche pas sur un lecteur réseau.
Meuh si ca marche sur un réseau (si tu as une lettre de lecteur). J'ai pu faire une procédure de sauvegarde automatique des fichiers modifiés (unisuement les modifiés). Faudra que je l'envoie à notre bienaimée volatile un de ces jours.
Non testé : Sub test() origine = "c:testtest.txt" dest = "c:archive" Set fso = CreateObject("Scripting.FileSystemObject") fil = Dir(origine) chemin = Left(origine, Len(origine) - Len(fil) - 1) dest = Replace(origine, chemin, dest) dest = Left(dest, Len(dest) - 4) & "_" & _ Format(Now, "yyyymmdd_hhmm") & Right(dest, 4) FileCopy origine, dest End Sub
@+ FxM
Merci c'était le FileCopy qui me manquait !
John
"FxM" <fxmanceaux@chello.fr> a écrit dans le message de
news:enRL79C7DHA.4012@tk2msftngp13.phx.gbl...
Bonsoir,
je souhaite dupliquer un fichier "x:monfichier.txt" (où x: est un
lecteur
réseau) en "x:Archivesmonfichier_" & date & ".txt"
j'ai essayé FSO mais ça marche pas sur un lecteur réseau.
Meuh si ca marche sur un réseau (si tu as une lettre de lecteur).
J'ai pu faire une procédure de sauvegarde automatique des fichiers
modifiés (unisuement les modifiés). Faudra que je l'envoie à notre
bienaimée volatile un de ces jours.
Non testé :
Sub test()
origine = "c:testtest.txt"
dest = "c:archive"
Set fso = CreateObject("Scripting.FileSystemObject")
fil = Dir(origine)
chemin = Left(origine, Len(origine) - Len(fil) - 1)
dest = Replace(origine, chemin, dest)
dest = Left(dest, Len(dest) - 4) & "_" & _
Format(Now, "yyyymmdd_hhmm") & Right(dest, 4)
FileCopy origine, dest
End Sub
je souhaite dupliquer un fichier "x:monfichier.txt" (où x: est un lecteur
réseau) en "x:Archivesmonfichier_" & date & ".txt"
j'ai essayé FSO mais ça marche pas sur un lecteur réseau.
Meuh si ca marche sur un réseau (si tu as une lettre de lecteur). J'ai pu faire une procédure de sauvegarde automatique des fichiers modifiés (unisuement les modifiés). Faudra que je l'envoie à notre bienaimée volatile un de ces jours.
Non testé : Sub test() origine = "c:testtest.txt" dest = "c:archive" Set fso = CreateObject("Scripting.FileSystemObject") fil = Dir(origine) chemin = Left(origine, Len(origine) - Len(fil) - 1) dest = Replace(origine, chemin, dest) dest = Left(dest, Len(dest) - 4) & "_" & _ Format(Now, "yyyymmdd_hhmm") & Right(dest, 4) FileCopy origine, dest End Sub
@+ FxM
FxM
Z'en prie.
@+ FxM
John Fuss wrote:
Merci c'était le FileCopy qui me manquait !
John
"FxM" a écrit dans le message de news:
Bonsoir,
je souhaite dupliquer un fichier "x:monfichier.txt" (où x: est un lecteur
réseau) en "x:Archivesmonfichier_" & date & ".txt"
j'ai essayé FSO mais ça marche pas sur un lecteur réseau.
Meuh si ca marche sur un réseau (si tu as une lettre de lecteur). J'ai pu faire une procédure de sauvegarde automatique des fichiers modifiés (unisuement les modifiés). Faudra que je l'envoie à notre bienaimée volatile un de ces jours.
Non testé : Sub test() origine = "c:testtest.txt" dest = "c:archive" Set fso = CreateObject("Scripting.FileSystemObject") fil = Dir(origine) chemin = Left(origine, Len(origine) - Len(fil) - 1) dest = Replace(origine, chemin, dest) dest = Left(dest, Len(dest) - 4) & "_" & _ Format(Now, "yyyymmdd_hhmm") & Right(dest, 4) FileCopy origine, dest End Sub
@+ FxM
Z'en prie.
@+
FxM
John Fuss wrote:
Merci c'était le FileCopy qui me manquait !
John
"FxM" <fxmanceaux@chello.fr> a écrit dans le message de
news:enRL79C7DHA.4012@tk2msftngp13.phx.gbl...
Bonsoir,
je souhaite dupliquer un fichier "x:monfichier.txt" (où x: est un
lecteur
réseau) en "x:Archivesmonfichier_" & date & ".txt"
j'ai essayé FSO mais ça marche pas sur un lecteur réseau.
Meuh si ca marche sur un réseau (si tu as une lettre de lecteur).
J'ai pu faire une procédure de sauvegarde automatique des fichiers
modifiés (unisuement les modifiés). Faudra que je l'envoie à notre
bienaimée volatile un de ces jours.
Non testé :
Sub test()
origine = "c:testtest.txt"
dest = "c:archive"
Set fso = CreateObject("Scripting.FileSystemObject")
fil = Dir(origine)
chemin = Left(origine, Len(origine) - Len(fil) - 1)
dest = Replace(origine, chemin, dest)
dest = Left(dest, Len(dest) - 4) & "_" & _
Format(Now, "yyyymmdd_hhmm") & Right(dest, 4)
FileCopy origine, dest
End Sub
je souhaite dupliquer un fichier "x:monfichier.txt" (où x: est un lecteur
réseau) en "x:Archivesmonfichier_" & date & ".txt"
j'ai essayé FSO mais ça marche pas sur un lecteur réseau.
Meuh si ca marche sur un réseau (si tu as une lettre de lecteur). J'ai pu faire une procédure de sauvegarde automatique des fichiers modifiés (unisuement les modifiés). Faudra que je l'envoie à notre bienaimée volatile un de ces jours.
Non testé : Sub test() origine = "c:testtest.txt" dest = "c:archive" Set fso = CreateObject("Scripting.FileSystemObject") fil = Dir(origine) chemin = Left(origine, Len(origine) - Len(fil) - 1) dest = Replace(origine, chemin, dest) dest = Left(dest, Len(dest) - 4) & "_" & _ Format(Now, "yyyymmdd_hhmm") & Right(dest, 4) FileCopy origine, dest End Sub
