lire un repertoire virtuel en vbscript
Bonjour, j'ai un script vbs stocké dans un repertoire virtuel nommé \SPACE_MUTASIR3. Le repertoire SPACE_MUTASIR3 se trouve dans IIS . Ce script exporte des données d'une table access vers un fichier excel . Mon problème est que je n'arrive pas à accéder à ma base de données ou à tout autre fichier de mon repertoire virtuel. Pourtant , j'arrive à accéder au repertoire virtuel en passant par ASP .
Puvez vous me montrer comment faire . voici mon code vbscript .
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
Set connect_base=CreateObject("adodb.connection")
base_de_donnees="C:\Inetpub\wwwroot\SPACE_MUTASIR3\base_mutasir.mdb"
connect_base.Open "provider=microsoft.jet.oledb.4.0 ; data source="&base_de_donnees
Set sql= CreateObject("adodb.recordset")
reket="select count(*) as many from pret "
sql.Open reket , connect_base
'On crée maintenant la feuille excel
Set appexcel= CreateObject("excel.application")
appexcel.Visible= true
'On définit le classeur
dest="C:\Inetpub\wwwroot\SPACE_MUTASIR3\FICHIERS_EXCELS\FICHIERS_DEF\pret_vide.xls"
Set classeur=appexcel.Workbooks.Open(dest)
'On active une feuille dans ce classeur
Set feuille=appexcel.Worksheets(1)
'On enregistre les données si le contenu de la table est supérieur à 0
nbre_entrees=sql("many")
If nbre_entrees>0 Then
'On effectue les enregistrments now
Set sql2= CreateObject("adodb.recordset")
reket2="select * from pret "
sql2.Open reket2 , connect_base
i=2
cpt=0
Do While Not sql2.EOF
feuille.cells(i , 1).value=sql2("num_cession")
feuille.cells(i , 2).value=sql2("matricule_agent_preteur")
feuille.cells(i , 3).value=sql2("code_pret")
feuille.cells(i , 4).value=sql2("montant_pret")
feuille.cells(i , 5).value=sql2("reste_echeance")
feuille.cells(i , 6).value=sql2("solde_pret")
feuille.cells(i , 7).value=sql2("date_debut")
feuille.cells(i , 8).value=sql2("date_fin")
demande="accordée"
'On va donner une valeur à rep_demande en fonction de la réponse à venir
If sql2("rep_demande")=0 Then
demande="en attente de réponse"
End if
feuille.cells(i , 9).value=demande
cpt=cpt+1
i=i+1
sql2.MoveNext
Loop
MsgBox "Le nombre d'enregistrements "&cpt
'On va créer un nouveau dossier pour recevoir
Set rep=CreateObject("scripting.filesystemobject")
date_cour=Day(Date)&"_"&Month(Date)&"_"&Year(Now)
If Day(Date)<=9 then
date_cour="0"&Day(Date)&"_"&Month(Date)&"_"&Year(Now)
End If
'************************************************
If Month(Date)<=9 then
date_cour=Day(Date)&"_0"&Month(Date)&"_"&Year(Now)
End If
'********************************************************
If Day(Date)<=9 And Month(Date)<=9 then
date_cour="0"&Day(Date)&"_0"&Month(Date)&"_"&Year(Now)
End If
new_dossier="C:\Inetpub\wwwroot\SPACE_MUTASIR3\FICHIERS_EXCELS\exportdonnees"
nom_fichier="pret"&date_cour
'On vérifie si le fichier dossier existe déjà
If rep.FolderExists(new_dossier) Then
Else
'Le dossier n'existe pas , on va le créer
rep.CreateFolder(new_dossier)
End If
'On va tuer le processus excel d'abord
'strComputer = "."
'Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
'Set colProcessList = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = 'excel.exe'")
'For Each objProcess in colProcessList
'b=objProcess.Terminate()
'Next
'******************************************Fin de l'arrêt du processus*************************************
feuille.saveas new_dossier&"\"&nom_fichier
classeur.Close True
MsgBox "L'EXPORTATION DE LA TABLE PRET FUT UN SUCCES "
End If |
