Discussion :

[gerarddurand]

Bonsoir à tous,

Voilà mon problème:
je sauvegarde ma base sur une clé USB. Quand je met une clé 'corsair' la lettre de la clé est G. Quand je met une autre clé 'maxell' la lettre devient F.

Voià ma ligne de commande

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

fs.copyfile "c:\Users\Gérard\Documents\Hotel1.accdb", "g:\"

Comment faire pour ne pas avoir à spécifier dans le commande la lettre de la clé et que la copie se fasse quand même sur une clé.
J'espère que vous me comprendrez
merci
salutations

[hajeahmad]

bonjour
voici une piste à adapter
exploitable avec un peu de travail si j'ai bien compris la problematique :
la premier fonction determine le usb
la seconde donne les information info des disques

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Function IsUSB(strSource) As Boolean
 
Dim vSysFile, vVolume
 
Set vSysFile = CreateObject("Scripting.FileSystemObject")
Set vVolume = vSysFile.GetDrive(vSysFile.GetDriveName _
(vSysFile.GetAbsolutePathName(strSource)))
 
If vVolume.DriveType = 1 Then
IsUSB = True
Else
IsUSB = False
End If
 
Set vSysFile = Nothing
Set vVolume = Nothing
End Function
 
 
Public Function InfoDesDisques(Support)
    Dim Serial As Long, VName As String, FSName As String
    VName = String$(255, Chr$(0))
    FSName = String$(255, Chr$(0))
    GetVolumeInformation Support, VName, 255, Serial, 0, 0, FSName, 255
    VName = Left$(VName, InStr(1, VName, Chr$(0)) - 1)
    FSName = Left$(FSName, InStr(1, FSName, Chr$(0)) - 1)
    MsgBox "The Volume name of '" + Support + "' is '" + VName + "', the File system name of '" + Support + "' is '" + FSName + "' and the serial number of '" + Support + "' is '" + Trim(str$(Serial)) + "'", vbInformation + vbOKOnly, "toto"
End Function

si par ex: ta sauvegarde se fait sur corsair tu devrais determiner son port donc sa lettre et ensuite mettre cette variable dans ta ligne de commande

j'espere avoir ete utile
cordialement
ahmad

[gerarddurand]

bonjour et merci Ahmad,

En fait ce que je recherche c'est que la ligne de commande de la copie trouve une clé USB quelle que soit le matériel installé sur l'ordinateur.(1,2 ou 3 partitions ,1 ou 2 lecteurs de cd..)

merci
salutations