Discussion :

[chapeau_melon]

Hello,

J'aurais à nouveau besoin de vos compétences :

J’ai un fichier avec un nom variable dans un folder relative : …/test/variable.txt

Ce que je veux juste faire c’est que quand j’exécuterai ce VBS le script reconnaisse uniquement la partie avant le .txt, donc ‘variable’ et puis le mette dans la mémoire du presse papier. C’est tout.

Pour le folder on pourrait utiliser l’emplacement du script comme point de départ pour le folder relative.

Est-ce qu’il y a un setdata au lieu de getdata ? Si cela peux aider ?

CreateObject("htmlfile").ParentWindow.ClipboardData.Getdata("text")

Pourriez-vous m’aider à l’écrire. J’ai beaucoup d’idées mais je ne sais pas les retranscrire en vbs

Bien aimablement

[chapeau_melon]

J'ai déjà résolu la moitié ;

Maintenant il me faut encore définir les variables ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
strCopy = "Test"
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text", strCopy
objIE.Quit

[chapeau_melon]

J'y suis presque mais je n'arrive pas à intégrer la fonction BaseName ou GetBaseName ???

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
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("ODBC.vbs")
FolderName=objFSO.GetParentFolderName(objFile)&"\test\"
 
Set fsoFolder = CreateObject("Scripting.FileSystemObject")
Set folder = fsoFolder.GetFolder(FolderName)
Set files = folder.Files
for each objFile in files
sName = objFile.Name
msgbox sName 
next
set files = nothing
set folder = nothing
set fsoFolder = nothing
 
strCopy = sName
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text", strCopy
objIE.Quit

[chapeau_melon]

Pour finir j'ai trouvé la solution tout seule

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
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile2 = objFSO.GetFile("ODBC.vbs")
FolderName=objFSO.GetParentFolderName(objFile2)&"\test\"
 
Set fsoFolder = CreateObject("Scripting.FileSystemObject")
Set folder = fsoFolder.GetFolder(FolderName)
Set files = folder.Files
for each objFile in files
sName = objFile.Name
sName2 = fsoFolder.GetBaseName(sName)
msgbox sName2 
next
set files = nothing
set folder = nothing
set fsoFolder = nothing
 
strCopy = sName2
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text", strCopy
objIE.Quit