Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Windows Windows Serveur SQL Serveur Pb script dans un tavail

Pb script dans un tavail

1 réponse
Avatar
Sylvie
Bonjour

Dans un travail qui execute plusieurs taches, je voudrai executer une copie
de fichier d'un emplacement à un autre par un script vbs que voici :

Dim ThisDay
Dim ThisMonth
Dim ThisYear
Dim ExistFile
Dim I
DIm StrName
Dim ObjFSO

ThisDay = Day(Date)
ThisMonth = Month(Date)
ThisYear = Year(Date)
ExistFile = True
I = 1

If thismonth < 10 Then
strName = ThisYear & "0" & ThisMonth & ThisDay
Else
strName = ThisYear & ThisMonth & ThisDay
End If

Set objFSO = CreateObject("Scripting.FileSystemObject")

Do while Existfile = objFSO.FileExists("G:\Transfert\Sylvie\" & strname &
"_" & I & ".csv")
I = I+1
loop
StrName = StrName & "_" & I
objFSO.CopyFile "D:\WicamExp\DataWicam.csv" , "G:\Transfert\Sylvie\" &
strname & ".csv"

Ce script fonctionne très bien mais à partir de Sql j'ai un message d'erreur
m'indiquant que le script ne détruit pas les objets qu'il a créés, donc qu'il
faut vérifier le script. Vraiment je ne vois pas, qui peut m'aider ?
Le travail étant lancé par SQL nécessite des particularité ?

Merci d'avance.

--
Sylvie
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Arnaud CLERET
Ajoutez en fin du script : Set objFSO = Nothing
--
arno - http://www.dotnetguru2.org/acleret/

"Sylvie" a écrit dans le message de news:

Bonjour

Dans un travail qui execute plusieurs taches, je voudrai executer une
copie
de fichier d'un emplacement à un autre par un script vbs que voici :

Dim ThisDay
Dim ThisMonth
Dim ThisYear
Dim ExistFile
Dim I
DIm StrName
Dim ObjFSO

ThisDay = Day(Date)
ThisMonth = Month(Date)
ThisYear = Year(Date)
ExistFile = True
I = 1

If thismonth < 10 Then
strName = ThisYear & "0" & ThisMonth & ThisDay
Else
strName = ThisYear & ThisMonth & ThisDay
End If

Set objFSO = CreateObject("Scripting.FileSystemObject")

Do while Existfile = objFSO.FileExists("G:TransfertSylvie" & strname &
"_" & I & ".csv")
I = I+1
loop
StrName = StrName & "_" & I
objFSO.CopyFile "D:WicamExpDataWicam.csv" , "G:TransfertSylvie" &
strname & ".csv"

Ce script fonctionne très bien mais à partir de Sql j'ai un message
d'erreur
m'indiquant que le script ne détruit pas les objets qu'il a créés, donc
qu'il
faut vérifier le script. Vraiment je ne vois pas, qui peut m'aider ?
Le travail étant lancé par SQL nécessite des particularité ?

Merci d'avance.

--
Sylvie