Trouvez l'erreur SVP !!! (Rapidement si possible) :)

Messages postés
5
Date d'inscription
dimanche 29 septembre 2002
Statut
Membre
Dernière intervention
1 novembre 2002
-
Messages postés
5
Date d'inscription
dimanche 29 septembre 2002
Statut
Membre
Dernière intervention
1 novembre 2002
-
Christian

Je veux copier un disque dur complet sur un autre disque dur.
J'ai tapé le code suivant, qui ne fonctionne que si l'origine est un répertoire :
.pFrom = "D:\travail VB" & vbNullChar FONCTIONNE
.pFrom = "D:" & vbNullChar NE FONCTIONNE PAS et affiche le message d'erreur suivant :
"Impossible de copier le fichier : Erreur système de fichier (1026)"

Quelqu'un peut-il me donner la solution SVP ? Merci

***** MODULE 1 *****

Public Const FO_COPY = &H2
Public Const FO_DELETE = &H3
Public Const FO_MOVE = &H1
Public Const FO_RENAME = &H4

Public Const FOF_CONFIRMMOUSE = &H2
Public Const FOF_ALLOWUNDO = &H40
Public Const FOF_FILESONLY = &H80
Public Const FOF_MULTIDESTFILES = &H1
Public Const FOF_NOCONFIRMATION = &H10
Public Const FOF_NOCONFIRMMKDIR = &H200
Public Const FOF_NO_CONNECTED_ELEMENTS = &H1000
Public Const FOF_NOCOPYSECURITYATTRIBS = &H800
Public Const FOF_NOERROUI = &H400
Public Const FOF_RENAMEONCOLLISION = &H8
Public Const FOF_SILENT = &H4
Public Const FOF_SIMPLEPROGRESS = &H100
Public Const FOF_WANTMAPPINGHANDLE = &H20
Public Const FOF_WANTNUKEWARNING = &H2000
Public Const FOF_NORECURSION = &H1000

Public Type SHFILEOPSTRUCT
hWnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationAborted As Long
hNameMappings As Long
lpszProgressTitle As String
End Type

Public Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (Dest As Any, Sourc As Any, ByVal Length As Long)

Public Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As Any) As Long

***** FORME 1 *****

Private Sub Command1_Click()
Dim fos As SHFILEOPSTRUCT
Dim retval As Long

With fos
.hWnd = 0
.wFunc = FO_COPY
.pFrom = "D:\travail VB" & vbNullChar
.pTo = "C:\essai" & vbNullChar
.fFlags = FOF_NOCONFIRMMKDIR Or FOF_WANTMAPPINGHANDLE
.fAnyOperationAborted = 0
.hNameMappings = 0
.lpszProgressTitle = vbNullChar
End With
retval = SHFileOperation(fos)

End Sub
:)

4 réponses

Messages postés
1133
Date d'inscription
mercredi 2 octobre 2002
Statut
Membre
Dernière intervention
24 juillet 2011
3
Et si tu mettais simplement "D:" &vbNullChar ?
Messages postés
5
Date d'inscription
dimanche 29 septembre 2002
Statut
Membre
Dernière intervention
1 novembre 2002

Christian

J'ai essayé, mais ça ne fonctionne pas, le même message d'erreur s'affiche !
Messages postés
68
Date d'inscription
lundi 21 mai 2001
Statut
Membre
Dernière intervention
4 janvier 2003

et si tu faisit:

"D:\*" &vbNullChar ?
Messages postés
5
Date d'inscription
dimanche 29 septembre 2002
Statut
Membre
Dernière intervention
1 novembre 2002

Christian
GAGNE !!! ... ça marche ! Merci beucoup