[R] Récupérer nom fichier

[EzioGr38]

Bonjour à vous chers membres,

Je suis en train de créer un programme permettant de récupérer l'username de la personne connecté sur un équipement d'une salle de test.
Mon premier choix s'est porté sur la commande wmic mais elle met beaucoup de temps à renvoyer mon user
Donc en deuxième possibilité dans le dossier de la machine se trouve un fichier (par exemple .txt) portant le nom de l'username tel que : username_.txt

J'ai besoin de trouver une fonction permettant d'obtenir "username" et de l'afficher (l'afficher ne sera pas un problème)

Merci

[PandiPanda]

Bonjour,

ceci?

► Afficher le texte

Code : Tout sélectionner

#include <Array.au3>
#include <File.au3>
Local $pathFiles = @ScriptDir
Local $list = _FileListToArray($pathFiles,"*.txt",1)
_ArrayDisplay($list,"list file avec extension")
_extirp_username($list)
_ArrayDisplay($list,"list file sans extension")

Func _extirp_username(ByRef $listFile)
    For $i = 1 To $listFile[0]
        $listFile[$i] = StringReplace($listFile[$i],".txt","",1)
    Next
    Return $listFile
EndFunc

[EzioGr38]

Oui cela m'a beaucoup aidé !
Voici le code final :

Code : Tout sélectionner

Local $pathLea = "\\"&$equip_name&"\c$\temp\"
Local $list = _FileListToArray($pathLea,"*_.lea",1)
_extirp_username($list)
$IconeLabel2[$i-1]= IconLabel2(_ArrayToString($list, @TAB, 1, 2),80, 40+($i-1)*30, 80, 50)
 

Merci !!!