accéder à une disquette sur VBRésolu

Question

Bonjour à tous
J'ai un programme à faire en VB et je sais pas du tout comment m'y prendre. il faut que je puisse allez voir ce qu'il y a dans ma disquette.
si quelqu'un sais comment faire merci de me le dire

NicoSoftt · Accepted Answer

ReSalut 

J'oubliais... ; s'il ya des dossiers dans ta disquette

Tu peux ajouter un DirListBox

Private Sub Form_Load()
On error goto fin
File1.path = "A:"
Dir1.path = "A:"
Exit sub
fin: Msgbox "Pas de disquette"
End
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Voila
N$

NicoSoftt · Answer

Salut 

Si t'as un éditeur VB, c'est facile

Tu mets dans une form un FileListBox
tu mets le code :

Private Sub Form_Load()
On error  goto fin
File1.path="A:"
Exit sub
fin: Msgbox "Pas de disquette"
End
End Sub

N$

benjiji95 · Answer

merci beaucoup pour ça déjà mais je voudrai aussi pouvoir accéder aux dossiers de ma disquette. est-ce possible ?

NicoSoftt · Answer

Salut 

Le deuxième message que je t'ai mis inclus Dossier et Fichiers
a condition que tu es mis un FileListBox et un DirListBox

Voila
N$

benjiji95 · Answer

oui je sais mais nous ne pouvons que voir le nom des fichiers, je veux pouvoir égallement accéder à ces fichiers. par exemple ya un fichier excel, ba je veux pouvoir l'ouvrir.
comment faire ?

cs_Pingouin · Answer

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

ShellExecute Me.hwnd, "open", LeCheminDaccesDuFichier , vbNullString, Ledossierdanslequeltuveuxquecademarre, 1 

Tu recuperes le chemin d'acces de ton fichier excel grace aux propriétés de ton filelistbox etc...

The Pingouin  8-)

Accéder à une disquette sur VB

6 réponses

Discussions similaires