Discussion :

[Nabou-]

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 .

[Nabou-]

Problème résolu,
ici la variable MonFichier est considéré comme objet, et non comme une string
J'ai donc testé de faire une extraction de type
MonFichier = Left(MonFichier,2)
Il l'a donc automatiquement converti en string (enfin, c'est l'interprétaion que je suppose) et par conséquent, il accepte de me créer le dossier.
Ceci dit, autre petite question avant de mettre le tag "résolu" :
Pourquoi Dim var as String
ne marche-t-il pas ?
a cahque fois il me dit = fin d'instruction attendu.
J'ai également une fonction qui liste tous les fichiers d'un dossier dans un fichier texte. Comment peux-t-on récupérer chaque ligne en la mettant dans une variable ?

[AlainTech]

Ceci dit, autre petite question avant de mettre le tag "résolu" :
Pourquoi Dim var as String
ne marche-t-il pas ?
a cahque fois il me dit = fin d'instruction attendu.

Parce qu'en VBS il ne faut pas typer les variables.

Autrement dit, pas de As quelque chose.