hallo allemaal
Ik heb net een functie gemaakt hij wil maar niet werken. Ik wil gewoon de inhoud van een textfile in een variabele opslaan. Hieronder staat de functie met daarboven hoe ik em aanroep. Ik denk zelf dat ik de slashes in het pad verkeerd heb ofzo, krijg ook de melding dat hij het pad niet kan vinden. Ik heb echter alle mogelijke manieren al geprobeerd. Wat is de juiste manier of doe ik wat anders verkeerd??
bedankt alvast
Niek
Ik heb net een functie gemaakt hij wil maar niet werken. Ik wil gewoon de inhoud van een textfile in een variabele opslaan. Hieronder staat de functie met daarboven hoe ik em aanroep. Ik denk zelf dat ik de slashes in het pad verkeerd heb ofzo, krijg ook de melding dat hij het pad niet kan vinden. Ik heb echter alle mogelijke manieren al geprobeerd. Wat is de juiste manier of doe ik wat anders verkeerd??
bedankt alvast
Niek
code:
1
2
3
4
5
6
7
8
9
10
| Dim html
html = leesBestand( "../templates/testTemplate.txt")
Function leesBestand( bestandsPad)
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile( bestandsPad, 1)
leesBestand = f.ReadAll
f.Close
End Function |