le chemin complet du fichier actuel

Version imprimable

20/03/2011, 18h29
patricktoulon

le chemin complet du fichier actuel

bonjour a tous

y _a _t_il un moyen de determiner dans une variable le chemin complet de la page actuelle

un peu comme en vba pour exel "thisworkbook.path" qui veut dire le dossier du classeur actif
je cherche la meme chose en vbs pour un fichier hta(html)

une idée??

merci

au plaisir

Citation:

Envoyé par patricktoulon

bonjour a tous
y _a _t_il un moyen de determiner dans une variable le chemin complet de la page actuelle
un peu comme en vba pour exel "thisworkbook.path" qui veut dire le dossier du classeur actif
je cherche la meme chose en vbs pour un fichier hta(html)
une idée??
merci
au plaisir

:salut: voici un exemple en HTA montrant comment faire un raccourci sur le bureau en utilisant le chemin de votre application ;)

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
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>My HTML Application</title>
<script language='vbscript'>
    Sub window_onload()
        Set Shell = CreateObject("WScript.Shell")
        Set link = shell.CreateShortcut(shell.SpecialFolders("Desktop") & "\MyHTA.lnk")
        With link
            .TargetPath = document.location
            .Description = "Raccourci Script"
            .WorkingDirectory = shell.SpecialFolders("Desktop")
            .Save
        End With
    msgbox document.location,64,"Chemin de mon HTA"
    End Sub
</script>
<hta:application
	applicationname="MyHTA"	
	border="dialog"
	borderstyle="normal"
	caption="My HTML Application"
	contextmenu="no"
	icon="myicon.ico"
	maximizebutton="no"
	minimizebutton="yes"
	navigable="no"
	scroll="no"
	selection="no"
	showintaskbar="yes"
	singleinstance="yes"
	sysmenu="yes"
	version="1.0"
	windowstate="normal"
>
</head>
<body>
<!-- Votre Code HTML ici  -->
</body>
</html>

22/03/2011, 15h17
patricktoulon

re

bonjour
et merci hackoofr

donc l'euivalent de thisworkbook.path"excel" est "document.location en html

recu

nickel:ccool:

ps je suis encore en train de travailler sur ton formulaire mail et je l'ai encore modifier

les emplacement des objets sont dans les divs maintenant ca me permet de les placer a mon gré

j'ai aussi remplacer le "from par un combobox avec toute mes adresse email

j'ai aussi remplacé le "txTo" par une combobox qui ce remplie avec un fichiertext dans le meme dossier

j'ai aussi remplacé le texbox serveur par une combobox avec la liste de touts les serveur corespondant au fournissuer d'acces bien plus pratique

enfin plein de petites choses qui le rendent plus sympa

je te remercie pour le coup de main

au plaisir
22/03/2011, 21h31
patricktoulon

re

bonsoir hackoofr

finalement le chemin du dossier de l'application me suffirait

je suis obligé de spliter par les "\" le document.location
remplacer le20%par"\" enfin ca fait une usine a gaz
tu n'aurais pas une idée pour me simplifier la tache

merci pour ton aide

au plaisir

Bonsoir, pour supprimer les %20.. tu peu essayer :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
<HTML>
	<HEAD> 
		<TITLE>Application : Bonjour tout le monde</TITLE>
		<HTA:APPLICATION ID = 'AppBonjour'>
		  <script Langage=JScript>
 
		  </script>
			<script language="VBScript">
                        Sub Window_onLoad
                                msgbox "Fic : " & decodeURI (Document.location) 
                        End Sub
                </script>
	</HEAD>
	<BODY>
		B'jour tous.
	</BODY>
</HTML>

23/03/2011, 12h38
patricktoulon

re

merci bill

je vais essayer ca tout de suite

au plaisir

oupss!!!

je vois jscript mais moi c'est vbscript que j'utilise

oupss!!! je regarde de plus pret c'etait bien dans vbs mais c'est incompatible

edit:

je viens de remarquer que entre les deux balises "jscript" il n'y a rien

la fonction decodeURI SE TROUVE DANS LE VBS ET POURTANT SI JE NE MET PAS LES BALISES "JSCRIPT" la fonction ne fonctionne pas
donc si je comprend bien on peu utiliser le js et le vbs dans une meme page html

enfin voila le resultat que je cherchais ca fait un peu usine a gaz mais c'est tout ce que j'ai trouvé
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 sub trouvedossier() dossier= decodeURI (Document.location) mysplit = split(dossier,"/" ) ' je chope le UBound de mon tableau (il te donne le dernier split en fait) dernierpoint = UBound(mysplit) ' donc le nom est forcément le dernier split) nom= mysplit(dernierpoint) ' et donc le reste contient le chemin du dossier avec "-1" pour le dernier slach dossier=left(dossier,len(dossier)-len(nom)-1) 'ici on va enlevé le "file///" qui se trouve devans dossier=right(dossier,len(dossier)-8) ici on remplace les"/" par des "\" dossier =replace(dossier,"/","\") msgbox dossier end sub
ouais!!! une sacré usine a gaz:mouarf: tout ca pour trouver le chemin de l'application

heu!!...si ya pas plus simple je suis preneur ??:mouarf:

au plaisir