Bonjour, je suis très mauvais en programmation.

J'ai un problème de concaténation de variable a une chaine
J'expose le problème.

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
 
Dim OFS, MonFichier, Mon2Fichier, FR, textCont, ORS, MonDossier
 
set OFS = CreateObject("Scripting.FileSystemObject")
 
'(création fichier text lalala.txt dans C:\program files
set MonFichier = OFS.CreateTextFile("C:\Program Files\lalala.txt")
set MonFichier = CreateObject("Scripting.FileSystemObject")
 
'récupération du nom court du fichier lalala.txt => valeur retournée = lalala , stockée dans MonFichier
MonFichier = OFS.GetBaseName("C:\Program Files\lalala.txt")
 
'C'est là que ça merde, quand je veux créer le folder portant le nom récupéré en getbasename, je les ai mis en commentaire
'set ORS = CreateObject("Scripting.FileSystemObject")
'set MonDossier = ORS.CreateFolder("C:\Program Files\" & MonFichier)
Le create folder n'aboutit pas, pourtant, si je décide d'écrire la variable "MonFichier" dans un fichier texte, il m'affichera bel et bien "lalala".
En vous remerciant d'avance .