Difficulte de recuperation du nom d'un fichier plat source
Bonjour cher amis!!
A travers ActiveX,je veux recuperer le nom d'un fichier txt pour y extraire la date du fichier et l'inserer dans une table Sqlserver2000 à travers le DTS de SQLserver2000. le code utiliser est un code VbScript. Voici un exemplaire du script au niveau duquelle la variable qui doit en principe représenter le nom de la source de donnée(fichier txt), est remplacé par le nom d'un fichier:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| Function Main()
DTSGlobalVariables("recup").value="dbdump-01082007"
DTSGlobalVariables("Position1")=Instr( DTSGlobalVariables("recup"),"-")
DTSGlobalVariables("Position2 ")=Len( DTSGlobalVariables("recup"))- DTSGlobalVariables("Position1")
DTSGlobalVariables("Str2") =Right( DTSGlobalVariables("recup"),Position2 )
DTSDestination("datejour")=DTSGlobalVariables("Str2")
Main = DTSTransformStat_OK
End Function |
Je n'y arrive pas!! Au secour c'est urgent!!!
