anton8338
Messages postés31Date d'inscriptionmardi 10 janvier 2006StatutMembreDernière intervention14 avril 2007
-
14 avril 2007 à 20:01
anton8338
Messages postés31Date d'inscriptionmardi 10 janvier 2006StatutMembreDernière intervention14 avril 2007
-
14 avril 2007 à 20:35
Bonjour à tous,
Que je vous
explique je cherche à savoir comment je pourrais faire pour qu'en
cliquant sur un bouton cela m'ouvre le dossier (pour récupérer un
fichier et le mettre dans une textbox par exemple) que je veux en le
rentrant bien évidement dans le code?
Et ensuite selectionner un des
fichiers de ce dossier pour le copier dans un autre dossier a l'aide
toujours d'un bouton pour que la copie ce fasse à un emplacement donné
en dure.
Je vais essayer de vous donner un exemple:
On a un bouton : commandcherch et commandcopie.
Une texte box : textfichier.
Je
voudrais en faite que quand je clique sur la commandcherch un
explorateur s'affiche sur le dossier qui se trouve à D:\Mes images.
Ensuite
une fois le fichier selectionné qu'il apparaisse dans textfichier et
enfin quand je clique sur commandcopie ca l envoie(le copie) sur D:\Ma
musique.
J'espére avoir été assez clair.
Merci d'avance.
A voir également:
Récupérer tous les noms de fichiers d'un dossier python
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 14 avril 2007 à 20:11
Oulaaa, la voila ta solution (merci Kenji)
Re : Ouvrir un dossier voulu par defaut
par : [infomsg.aspx?ID= 921785#reponsemsg Rép.], [javascript:void(0); MP], [infomsgm_CHARLES-RACAUD_231472.aspx 1693 msg], 1814 msg CS
[auteurdetail.aspx?ID=231472 ]Si j'ai la solution ^^
Private Sub commandcherch_Click()
FileDlg.InitDir = "D:\"
FileDlg.ShowOpen
textfichier.Text = FileDlg.FileName
End Sub
Private Sub commandcopie_Click()
Dim FileName As String
FileName = Right$(textfichier.Text, Len(textfichier.Text) - InStrRev(textfichier.Text, "\"))
FileCopy textfichier.Text, "E:\" & FileName
End Sub, ----
(Coloration syntaxique automatique par Kenji)
__________
Kenji
</td></tr><tr style="color: Black; background-color: White;"><td valign="top">
Re : Ouvrir un dossier voulu par defaut
par : [auteurdetail.aspx?ID =664983 anton8338] le 14/04/2007 19:27:27
, [infomsg.aspx?ID= 921785#reponsemsg Rép.], [javascript:void(0); MP], [infomsgm_ANTON8338_664983.aspx 31 msg]
[auteurdetail.aspx?ID=664983 ]
je viens de voir désolé (je dois etre bête lol), mais pareil j ai une
erreur quand je clique sur le bouton cherhce ca me dit run time
error424, object required
</td></tr><tr style="color: Black; background-color: WhiteSmoke;"><td valign="top">
Re : Ouvrir un dossier voulu par defaut
par : [auteurdetail.aspx?ID =231472 Charles Racaud] le 14/04/2007 19:40:09
, [infomsg.aspx?ID= 921785#reponsemsg Rép.], [javascript:void(0); MP], [infomsgm_CHARLES-RACAUD_231472.aspx 1693 msg], 1814 msg CS
[auteurdetail.aspx?ID=231472 ]Il faut ajouter un CommandDialog sur ta form.
Tu le trouve en l'ajoutant depuis le menu "Projet" > "Composants".
__________
Kenji
</td></tr></tbody></table>
Et pour le site "mal foutu", il suffit de lire quand tu postes :
anton8338
Messages postés31Date d'inscriptionmardi 10 janvier 2006StatutMembreDernière intervention14 avril 2007 14 avril 2007 à 20:24
Comme je lai dit plus haut "j ai une erreur quand je clique sur le bouton cherche ca me dit run time error424, object required" et quand je fais debug ca m amene sur "FileDlg.InitDir = "D:"".