Chemin d'accès introuvable

**Aschel** · 18/04/2016, 15h53

Bonjour,

Je précise d'avance que je suis novice en vbs.
Je souhaiterais ouvrir l'explorer Windows pour sélectionner un fichier (un fichier .txt) puis l'utiliser pour le modifier et le retransformer en fichier .txt.
Mais lorsque j'utilise les scripts que j'ai trouvé sur internet (dont celui de la FAQ) j'obtient une erreur "Chemin d'accès introuvable". Est-ce que quelqu'un pourrais me dire d'ou viens mon erreur SVP ?

Code :

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

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
86
87
88
89
90
91
92
 
Option Explicit
 
Dim f, fsot, ft, ts
Dim fichierFEC, fso, fileObj, sIniDir, sFilter, sTitle, oDlg
Dim ln, cl
Dim strFile
Const ForReading = 1, ForAppending = 2 
 
Set fso = CreateObject("Scripting.FileSystemObject")
 
Function GetFileDlgEx(sIniDir,sFilter,sTitle)
  Set oDlg = CreateObject("WScript.Shell").Exec("mshta.exe ""about:<object id=d classid=clsid:3050f4e1-98b5-11cf-bb82-00aa00bdce0b></object><script>moveTo(0,-9999);eval(new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(0).Read("&Len(sIniDir)+Len(sFilter)+Len(sTitle)+41&"));function window.onload(){var p=/[^\0]*/;new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(p.exec(d.object.openfiledlg(iniDir,null,filter,title)));close();}</script><hta:application showintaskbar=no />""") 
  oDlg.StdIn.Write "var iniDir='" & sIniDir & "';var filter='" & sFilter & "';var title='" & sTitle & "';"
  GetFileDlgEx = oDlg.StdOut.ReadAll
End Function
 
sIniDir = "C:\Users\Monique\Documents\FEC1\Testscript"
sFilter = "All files (*.*)|"
sTitle = "Selectionner un fichier"
 
fichierFEC = GetFileDlgEX(Replace(sIniDir,"\","\\"),sFilter,sTitle)
 
Set oFl = fso.OpenTextFile(fichierFEC) 'Message d'erreur ici
 
ln=-1
cl=0
Set ts = oFl.OpenAsTextStream
while Not ts.AtEndOfStream 
ln=ln+1 
  Tab=Split(ts.ReadLine, Chr(9)) 
  If cl < UBound(Tab) Then cl = UBound(Tab) 
Wend
fichierFEC.Close 
 
Dim Tab2() 
ReDim Tab2(ln,cl) 
i=0
while Not fichierFEC.AtEndOfStream 
  Tab=Split(fichierFEC.ReadLine, Chr(9))
  For j = 0 to UBound(Tab)
	Tab2(i,j) = Tab(j)
  Next
  i=i+1
Wend
ReDim Preserve Tab2(ln, cl+3)
For i=0 to UBound(Tab2, 1)
	if Tab2(i,7) <> "" Then 
		Tab2(i,cl+1)= Tab2(i, 7)
	else 
		Tab2(i,cl+1)= Tab2(i, 5)
	end if
Next
Tab2(0, cl+2)= "Debit"
Tab2(0, cl+3)= "Credit"
For i=1 to UBound(Tab2, 1)
	if Tab2(i, 12)= "D" Then
		Tab2(i, cl+2)= Tab2(i, 11)
		Tab2(i, cl+3)= 0
	elseif Tab2(i, 12)= "C" Then
		Tab2(i, cl+3)= Tab2(i, 11)
		Tab2(i, cl+2)= 0
	elseif Tab2(i, 12)= "-1" Then
		Tab2(i, cl+2)= Tab2(i, 11)
		Tab2(i, cl+3)= 0
	elseif Tab2(i, 12)= "1" Then
		Tab2(i, cl+3)= Tab2(i, 11)
		Tab2(i, cl+2)= 0
	else
		Tab2(i, cl+2)= Tab2(i, 11)
		Tab2(i, cl+3)= Tab2(i, 12)
	end if
Next
f.Close
 
Set fsot = CreateObject("Scripting.FileSystemObject")
Set ft = fsot.OpenTextFile("C:\Users\Monique\Documents\FEC1\Testscript\FECModifie2.txt", 2,true) 
m=0
For i=0 to UBound(Tab2,1) 
	For j=0 to UBound(Tab2,2)
		If m < UBound(Tab2,2) Then 
			ft.write(Tab2(i,j) & "	")
			m=m+1
		else
			ft.write(Tab2(i,j) & vbcrlf)
			m=0
		end if
	Next
Next
ft.close
 
Msgbox ("Conversion terminee")

Merci d'avance pour votre aide

**Marc-L** · 18/04/2016, 20h01

Bonjour,

tout dépend déjà de la ligne déclenchant l'erreur !

Mais en général le chemin d'accès n'existe pas, le comparer avec celui de l'Explorateur Windows afin de le corriger …

______________________________________________________________________________________________________
Je suis Paris, Charlie, Bruxelles, …

**Aschel** · 18/04/2016, 20h32

Je l'ais indiqué dans mon code.
L'erreur se situe à la ligne 24 quand j'essaye d'ouvrir le fichier :

Code :

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

1
2
 
Set oFl = fso.OpenTextFile(fichierFEC) 'Message d'erreur ici

j'ai vérifié et il semble bien que ce soit cette ligne qui pose problème (Une MsgBox placé juste avant se lance sans problème).

**l_autodidacte** · 19/04/2016, 04h03

Remplace cette ligne par : Set oFl = fso.GetFile(fichierFEC).

Sinon, il y aura d'autres messages d'erreur dont celui à la ligne Set ts = oFl.OpenAsTextStream.
D'autre part, fichierFEC est défini comme étant une chaine de caractères non un objet alors fichierFEC.Close va renvoyer une erreur......

**Aschel** · 19/04/2016, 09h48

Bonjour,
le changement en

Code :

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

1
2
 
Set oFl = fso.GetFile(fichierFEC)

Me produit une nouvelle erreur : "Fichier introuvable"
Or, le fichier existe et je peut l'ouvrir via mon navigateur.

Invité · 19/04/2016, 10h01

Bonjour

As-tu regardé ce qu'il y a dans la variable fichierFEC ?

Philippe

**Aschel** · 19/04/2016, 10h08

Non Philippe je n'ais pas regardé.
Pouvez-vous m'expliquer comment faire SVP ? (Je m'excuse mais découvre le vbscript)

**hackoofr** · 19/04/2016, 10h19

c'est quoi le résultat de ce code ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim f, fsot, ft, ts
Dim fichierFEC, fso, fileObj, sIniDir, sFilter, sTitle, oDlg
Dim ln, cl
Dim strFile
Const ForReading = 1, ForAppending = 2 
 
Set fso = CreateObject("Scripting.FileSystemObject")
 
Function GetFileDlgEx(sIniDir,sFilter,sTitle)
  Set oDlg = CreateObject("WScript.Shell").Exec("mshta.exe ""about:<object id=d classid=clsid:3050f4e1-98b5-11cf-bb82-00aa00bdce0b></object><script>moveTo(0,-9999);eval(new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(0).Read("&Len(sIniDir)+Len(sFilter)+Len(sTitle)+41&"));function window.onload(){var p=/[^\0]*/;new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(p.exec(d.object.openfiledlg(iniDir,null,filter,title)));close();}</script><hta:application showintaskbar=no />""") 
  oDlg.StdIn.Write "var iniDir='" & sIniDir & "';var filter='" & sFilter & "';var title='" & sTitle & "';"
  GetFileDlgEx = oDlg.StdOut.ReadAll
End Function
 
sIniDir = "C:\Users\Monique\Documents\FEC1\Testscript"
sFilter = "All files (*.*)|"
sTitle = "Selectionner un fichier"
 
fichierFEC = GetFileDlgEX(Replace(sIniDir,"\","\\"),sFilter,sTitle)
msgbox fichierFEC

**Aschel** · 19/04/2016, 10h27

Bonjour,
j'obtient un message qui me semble être une erreur
Nom : Capture.JPG
Affichages : 810
Taille : 67,2 Ko

**ProgElecT** · 19/04/2016, 10h56

Salut

Code :

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

1
2
3
4
5
6
7
8
'sIniDir = "C:\Users\Monique\Documents\FEC1\Testscript"
sIniDir = "C:\\Users\Monique\Documents\FEC1\Testscript"
sFilter = "All files (*.*)|"
sTitle = "Selectionner un fichier"
 
'fichierFEC = GetFileDlgEX(Replace(sIniDir,"\","\\"),sFilter,sTitle)
fichierFEC = GetFileDlgEX(sIniDir,sFilter,sTitle)
Msgbox fichierFEC

**Aschel** · 19/04/2016, 11h14

Bonjour,

Le changement proposé par ProgElecT m'apporte deux nouveaux problèmes :

- Le navigateur m'envoi directement à la racine (pas le plus important, ça fera l'affaire pour l'instant).

- Je ne peux plus sélectionner de fichier (le navigateur m'indique des fichiers "." et je n'ais pas de fichier, juste les dossiers). J'ai essayé de changer le point dans le filtre mais cela ne change rien au problème, je ne vois pas mes fichiers (quelque soit le type).

**ProgElecT** · 19/04/2016, 15h35

En reprenant le code de la FAQ
Comment ouvrir la boîte de dialogue de sélection d'un fichier ? (compatible toutes versions avec filtres et répertoire de départ)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function GetFileDlgEx(sIniDir,sFilter,sTitle)
  Set oDlg = CreateObject("WScript.Shell").Exec("mshta.exe ""about:<object id=d classid=clsid:3050f4e1-98b5-11cf-bb82-00aa00bdce0b></object><script>moveTo(0,-9999);eval(new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(0).Read("&Len(sIniDir)+Len(sFilter)+Len(sTitle)+41&"));function window.onload(){var p=/[^\0]*/;new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(p.exec(d.object.openfiledlg(iniDir,null,filter,title)));close();}</script><hta:application showintaskbar=no />""")
  oDlg.StdIn.Write "var iniDir='" & sIniDir & "';var filter='" & sFilter & "';var title='" & sTitle & "';"
  GetFileDlgEx = oDlg.StdOut.ReadAll
End Function
 
 
sIniDir = "C:\Windows\*.*txt"
sFilter = ""
sTitle = "GetFileDlg by omen999 2014 - http://omen999.developpez.com"
rep = GetFileDlgEx(Replace(sIniDir,"\","\\"),sFilter,sTitle)
MsgBox rep & vbcrlf & Len(rep

**Aschel** · 19/04/2016, 15h44

Bonjour,
En utilisant juste ce bout de script (directement issus de la FAQ) j'obtient une fenêtre étrange comme précédemment.

Nom : Capture.JPG
Affichages : 858
Taille : 67,6 Ko

Nom : Capture.JPG
Affichages : 858
Taille : 67,6 Ko

J'ai testé sur différent fichier texte et j'obtient toujours cette fenêtre.

**omen999** · 19/04/2016, 19h25

bonjour,
aurais-tu sur cette machine un soft intitulé "Hp Cloud Drive" ?
voir ici

**Aschel** · 20/04/2016, 09h29

Merci beaucoup omen, cela à réglé mon problème.
Je vous remet le code si jamais ça intéresse quelqu'un.

Code :

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

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
86
87
88
89
90
 
Dim fsot, ft, ts, oFL
Dim fso, sIniDir, sFilter, sTitle, oDlg
Dim fichierFEC
Dim ln, cl
Const ForReading = 1, ForAppending = 2 
 
Function GetFileDlgEx(sIniDir,sFilter,sTitle)
  Set oDlg = CreateObject("WScript.Shell").Exec("mshta.exe ""about:<object id=d classid=clsid:3050f4e1-98b5-11cf-bb82-00aa00bdce0b></object><script>moveTo(0,-9999);eval(new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(0).Read("&Len(sIniDir)+Len(sFilter)+Len(sTitle)+41&"));function window.onload(){var p=/[^\0]*/;new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(p.exec(d.object.openfiledlg(iniDir,null,filter,title)));close();}</script><hta:application showintaskbar=no />""") 
  oDlg.StdIn.Write "var iniDir='" & sIniDir & "';var filter='" & sFilter & "';var title='" & sTitle & "';"
  GetFileDlgEx = oDlg.StdOut.ReadAll
End Function
 
sIniDir = ""
sFilter = "*.txt"
sTitle = "GetFileDlg by omen999 2014 - http://omen999.developpez.com"
fichierFEC = GetFileDlgEx(Replace(sIniDir,"\","\\"),sFilter,sTitle)
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set oFl = fso.GetFile(fichierFEC)
 
ln=-1
cl=0
 
Set ts = oFL.OpenAsTextStream
while Not ts.AtEndOfStream 
ln=ln+1 
  Tab=Split(ts.ReadLine, Chr(9)) 
  If cl < UBound(Tab) Then cl = UBound(Tab) 
Wend
ts.Close 
 
Set ts = oFl.OpenAsTextStream
Dim Tab2() 
ReDim Tab2(ln,cl) 
i=0
while Not ts.AtEndOfStream 
  Tab=Split(ts.ReadLine, Chr(9))
  For j = 0 to UBound(Tab)
    Tab2(i,j) = Tab(j)
  Next
  i=i+1
Wend
ReDim Preserve Tab2(ln, cl+3)
For i=0 to UBound(Tab2, 1)
    if Tab2(i,7) <> "" Then 
        Tab2(i,cl+1)= Tab2(i, 7)
    else 
        Tab2(i,cl+1)= Tab2(i, 5)
    end if
Next
Tab2(0, cl+2)= "Debit"
Tab2(0, cl+3)= "Credit"
For i=1 to UBound(Tab2, 1)
    if Tab2(i, 12)= "D" Then
        Tab2(i, cl+2)= Tab2(i, 11)
        Tab2(i, cl+3)= 0
    elseif Tab2(i, 12)= "C" Then
        Tab2(i, cl+3)= Tab2(i, 11)
        Tab2(i, cl+2)= 0
    elseif Tab2(i, 12)= "-1" Then
        Tab2(i, cl+2)= Tab2(i, 11)
        Tab2(i, cl+3)= 0
    elseif Tab2(i, 12)= "1" Then
        Tab2(i, cl+3)= Tab2(i, 11)
        Tab2(i, cl+2)= 0
    else
        Tab2(i, cl+2)= Tab2(i, 11)
        Tab2(i, cl+3)= Tab2(i, 12)
    end if
Next
 
 
Set fsot = CreateObject("Scripting.FileSystemObject")
Set ft = fsot.OpenTextFile("C:\Users\Monique\Documents\FEC1\Testscript\FECModifie2.txt", 2,true) 
m=0
For i=0 to UBound(Tab2,1) 
    For j=0 to UBound(Tab2,2)
        If m < UBound(Tab2,2) Then 
            ft.write(Tab2(i,j) & "    ")
            m=m+1
        else
            ft.write(Tab2(i,j) & vbcrlf)
            m=0
        end if
    Next
Next
ft.close
 
Msgbox ("Conversion terminee")

**omen999** · 20/04/2016, 11h41

pour être plus précis, il semble que le coupable est un service
installé par un crapware dénommé ZumoCast qui était diffusé il y a
quelques années pour transformer un pc en serveur cloud perso...
apparemment ses développeurs avaient une conception assez virile de
la prog système

Chemin d'accès introuvable

VBScript

Discussions similaires

Partager

Partager