le chemin complet du fichier actuel

**patricktoulon** · 20/03/2011, 18h29

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

**hackoofr** · 20/03/2011, 20h28

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

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

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
<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>

**patricktoulon** · 22/03/2011, 15h17

bonjour
et merci hackoofr

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

recu

nickel

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

**patricktoulon** · 22/03/2011, 21h31

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

**SfJ5Rpw8** · 22/03/2011, 22h05

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

Code html :

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
<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>

**patricktoulon** · 23/03/2011, 12h38

merci bill

je vais essayer ca tout de suite

au plaisir

le chemin complet du fichier actuel

VBScript

Vue hybride

Discussions similaires

Partager

Partager