Bonjour,

Je souhaite réaliser une fonction de sauvegarde de données sur un CD vierge(BACKUP de base SQL).

Pour la fonction de gravure, j'ai trouvé des infos par rapport à IMAPI.

Le soucis se situe au niveau de la fonction Isready de system.fso.

Cette fonction me renvoie "true" quand j'insère un cd déjà gravé mais quand je place un cd vierge dans le lecteur, la fonction me renvoie false, comme s'il n'y avait pas de cd.
Je suis donc bloqué à ce niveau, avant même de pouvoir graver.

Détail de la fonction :
recoit str_drive = "E:\"
renvoie "true" or "false"

Code vb : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 Private Function TestDrive(ByVal str_Drive As String) As Boolean
 
 Dim fsoDrive
 fsoDrive = CreateObject("Scripting.FileSystemObject")
           fsoDrive = fsoDrive.GetDrive(UCase(VB.Left(str_Drive, 1)))
                If fsoDrive.IsReady = True Then
                        TestDrive = True
                    Else
                        TestDrive = False
                 End If
End Function

Comment pouis-je voir mon cd vierge? Y-a-t-il une autre possibilité?

Merci de votre aide.