[R] Récupérer nom d'un fichier depuis l'explorateur

[Dan67]

Bonjour,
Je cherche à récupérer le chemin et le nom d'un fichier en le sélectionnant depuis l'explorateur de fichiers et passer le tout dans une variable avant de l'exécuter.
J'ai cherché sur Google ainsi que sur le forum, mais je n'ai rien trouvé (j'ai sans doute mal cherché ?).
Si quelqu'un à la solution ?
Merci d'avance.

[bloodwolff]

FileopenDialog()?

[Dan67]

J'ai l'impression que ça répond tout à fait à ma demande.
Quelle rapidité pour la réponse.
Merci beaucoup.
Cordialement

[Tlem]

J'ai l'impression que ça répond tout à fait à ma demande

Personnellement, je n'en suis pas sur ...
FileopenDialog va ouvrir une boite de dialogue vous demandant des renseignements pour ouvrir ou créer un fichier, mais rien en relation avec le fichier sélectionné dans l'explorer ...

Par contre l'utilisation du drag&drop sur un script et la récupération des variables $CmdLine, devrait répondre plus précisément à votre demande.
Faites quelques recherches sur le forum pour des exemples.

[bloodwolff]

Tlem croit savoir mieux que le client ce qu'il a besoin

[Tlem]

Ce n'est pas une question de croyance, mais une question de lecture et de compréhension.

Je cherche à récupérer le chemin et le nom d'un fichier en le sélectionnant depuis l'explorateur de fichiers et passer le tout dans une variable

Maintenant, si ma réponse ne correspond pas, c'est que Dan67 c'est mal exprimé.

Explorateur de fichiers = Win+E et non une boite de sélection de fichier(s).

[bloodwolff]

Oui je sais je rigole , c'est juste qu'il a dit que sa lui convenait parfaitement Ne prend pas tout au sérieux

[Dan67]

Bonjour,
C'est vrai qu'il n'est pas souvent simple de formuler des questions précises. Ce que chacun comprend est souvent différent (et même parfois très différent !).
En tout état de cause, la réponse fournie me convient parfaitement à un "petit rien" près :
la boîte de sélection qui s'ouvre, propose par défaut le lecteur C:\
Je ne parviens pas à remonter au niveau supérieur (poste de travail).
Si quelqu'un à la solution, je suis preneur.
Merci encore pour l'aide apportée sur ce forum.
Cordialement

[scorp84]

Bonjour Dan67,

init dir : Initial directory selected in the GUI file tree.

C'est le paramètre Init Dir qui te permet de définir le répertoire sélectionné initialement dans la fonction "FileOpenDialog".

Pour le poste de travail, il faut mettre :

Code : Tout sélectionner

"::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"

Ex. : FileOpenDialog("","::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", "Tous les fichiers (*.*)", 1)
 

Réf. : http://www.autoitscript.fr/autoit3/docs ... /clsid.htm
Amicalement.

BM

[Dan67]

Impeccable !
Merci beaucoup.

[CarolineB]

Bonjour à tous,

Petit subtilité par rapport à ce sujet qui date un peu : je voudrais récupérer plusieurs noms et les mettre dans une liste.

Donc je déclare ma liste : c'est bon.
J'utilise la fonction FileOpenDialog pour récupérer les noms des fichiers mais ils sont sous la forme : Directory\file1\file2\...
et il me faudrait plutôt : Directory\file1, Directory\file2, ...

Je peux toujours couper la chaîne de caractères au premier "\" et enregistrer le "Directory" puis faire la même chose pour "file1" et coller le tout et recommencer pour chaque "file" mais c'est un peu long. Il y aurait un moyen simple (une fonction déjà faite) pour réaliser ce tableau ?

Merci d'avance

[moi]

Code : Tout sélectionner

_FileListToArray()

[TopXm]

Bonsoir

Il y aurait un moyen simple (une fonction déjà faite) pour réaliser ce tableau ?

Pour la simplicité il existe sans doute mieux, disons que c'est un avis

► Afficher le texteextractFileOenDialog

Code : Tout sélectionner

#include <array.au3>


$MySel = FileOpenDialog("Choix fichiers", @DesktopDir, "Tout (*.*)", 4)

; Récup le nom du dossier
$Folder = StringLeft($MySel, StringInStr($MySel, '|')-1)

; Remplace le 1er '|' par un '\' (pour faire le 1er FullPath)
$AllFiles = StringReplace($MySel, '|', '\', 1)
$Folder &= '\'

; remplace tous le '|' par le nom du dossier puis split du tout dans un array
$AllFullFiles = StringSplit(StringReplace($AllFiles, '|', @LF & $Folder), @LF)

_arraydisplay($AllFullFiles)
 

[mikell]

Ouala, ça renvoie une array :
$fichiers[0] = nombre de fichiers sélectionnés
$fichiers[1] ... $fichiers[n] = chemin complet des fichiers sélectionnés
Avé la gestion d'erreurs ^^

Code : Tout sélectionner

#include <array.au3>

$fichiers = _Fichiers()
_ArrayDisplay($fichiers)

Func _Fichiers()
Local $files, $dir, $array
$files = FileOpenDialog("Chouze...", @DesktopDir, "All (*.*)", 4)
If @error Then Return     
$array = StringSplit($files, "|")
If NOT @error Then 
    $dir = $array[1]
    For $i = 2 To $array[0]
        $array[$i-1] = $dir & "\" & $array[$i]
    Next
    $array[0] = $array[0]-1
    ReDim $array[$array[0]+1]
EndIf
Return $array
EndFunc

[CarolineB]

Merci à tous !!