[Vbs] Collegamento da Vbs ad Html

**Shaolin20** · 11-01-2007, 20:17

Ciao ragazzi,

volevo scrivere un piccolo codice che per ogni sottocartella di una cartella mi crea un collegamento in una pagina HTML. Ho provato a scrivere il codice qui in basso, ma c'è un evidente problema di virgolette, in quanto la funzione non accetta il parametro dato da elemFolder.Path

Sapete come risolvere?

For each elemFolder in subfolder

MioLivello.innerHTML = MioLivello.innerHTML & "
<a href='#' onClick='naviga(" & elemFolder.Path & ")'>" & elemFolder.Name & "
"

next

Grazie

**artcava** · 12-01-2007, 02:37

Prova così

codice:

MioLivello.innerHTML = MioLivello.innerHTML & "
<a href='#' onClick='naviga("" & elemFolder.Path & "")'>" & elemFolder.Name & "
"

**Shaolin20** · 12-01-2007, 15:58

Grazie! Ora funziona alla perfezione...

In javascript uso la back slash ma il vbscript non la riconosce..

Mi potreste gentilmente spiegare la regola dietro l'utilizzo delle due virgolette? Lo chiedo anche perchè ho visto che non sono l'unico ad avere questo problema...

Grazie

**Shaolin20** · 12-01-2007, 17:20

Ho provato a cambiare unattimo le cose e mi dà un erorre.

Il codice per scrivere l'HTML da Vbs è lo stesso che mi ha gentilmente consigliato artcava, ma quando lo vado a cliccare mi dice che è impossibile trovare il percorso...

Vi posto il codice...

codice:

<body>
<div name="MioLivello" id="MioLivello"></div>

<script language="VBScript" type="text/vbscript">
<!--

Function sfoglia(path)

	Dim fso, Cartella, SottoCartelle, elemFolder, elemFile, MyFiles, stringa
	
	Set fso = CreateObject("Scripting.FileSystemObject")
	Set Cartella = fso.GetFolder(path)
	Set SottoCartelle = Cartella.Subfolders
	
	MioLivello.innerHTML = MioLivello.innerHTML & path & "
"
	
	For each elemFolder in SottoCartelle
	
		nomeCartella = elemFolder.Name
		
		MioLivello.innerHTML = MioLivello.innerHTML & "" & elemFolder.Name & "
"	
	next
	
	Set MyFiles = Cartella.Files
	
	For each elemFile in MyFiles
		MioLivello.innerHTML = MioLivello.innerHTML & " " &	elemFile.Name & "
" 
	next
	
end Function


sfoglia("C:\")

//-->
</script>

</body>

Grazie dell'aiuto!

**artcava** · 12-01-2007, 18:29

Potresti postare l'HTML risultante, cioè il contenuto di MioLivello.innerHTML?

**Shaolin20** · 12-01-2007, 18:43

Ehmm... la funzione stampa le cartelle ed i files a video come nelle intenzioni, ma l'html risultante della pagina è esattamente uguale a quello che ti ho postato.

Comunque te lo riporto...

codice:

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>Stampa Contenuto Cartelle</title>
</head>
<body>
<div name="MioLivello" id="MioLivello"></div>

<script language="VBScript" type="text/vbscript">
<!--

Function sfoglia(path)

	Dim fso, Cartella, SottoCartelle, elemFolder, elemFile, MyFiles, stringa
	
	Set fso = CreateObject("Scripting.FileSystemObject")
	Set Cartella = fso.GetFolder(path)
	Set SottoCartelle = Cartella.Subfolders
	
	MioLivello.innerHTML = MioLivello.innerHTML & path & "
"
	
	For each elemFolder in SottoCartelle
	
		nomeCartella = elemFolder.Name
		
		MioLivello.innerHTML = MioLivello.innerHTML & "" & elemFolder.Name & "
"	
	next
	
	Set MyFiles = Cartella.Files
	
	For each elemFile in MyFiles
		MioLivello.innerHTML = MioLivello.innerHTML & " " &	elemFile.Name & "
" 
	next
	
end Function


sfoglia("C:\")

//-->
</script>

</body>
</html>

**artcava** · 12-01-2007, 22:59

Quando viene eseguita la pagina dovresti fare click col tasto dx e selezionare "HTML" oppure "view source", a seconda del browser che usi... Quello che viene fuori dovresti postarmelo...

**Shaolin20** · 14-01-2007, 18:36

Si, avevo capito cosa mi chiedevi, infatti il codice che ho postato l'ho copiato paro paro dal file di testo che si visualizza con Visualizza-HTML.

D'altronde puoi tranquillamente fare una prova copiando ed incollando il codice in un file sul tuo pc

**artcava** · 15-01-2007, 00:23

Ops...

Nel buio della mia cameretta mi è sfuggito che stai eseguendo VBScript lato client, perché non lato Server? Sappi che VBScript lato client lo accetta solo Explorer, e forse qualche altro browser che usano solo in lapponia...

**Shaolin20** · 15-01-2007, 13:58

Si, infatti ora lo sto provando per poi utilizzarlo lato server con ASP.

Il server di prova però l'ho già impostato ed è funzionante, quindi se giustamente lo uso lato server mi dovrebbe comparire il codice html risultante e da li potrei trovare l'errore...

Ok, faccio così e posto la soluzione...

Grazie

Discussione: [Vbs] Collegamento da Vbs ad Html

Strumenti discussione

Ricerca discussione

Visualizza

[Vbs] Collegamento da Vbs ad Html

Ok!

Come non detto...

Non mi sono spiegato...

Permessi di invio