Copier un fichier VB

Bonjour

je n'arrive pas à faire une copie d'un fichier pour le mettre dans le dossier que l'utilisateur a sélectionner, après plusieurs essais rien ne fais.
Je suis sous Win 7 64bits.

voici mon code :

Code:

---

1 2 3 4 5 6 7

'copie du fichier nécessaire au fonctionnement du plugins TWAIN. ( scanner )   Dim source As String = "./DLL/" 'dossier source ou ce trouve le fichier a copier Dim destination As String = FolderBrowserDialog1.ShowDialog() = DialogResult.OK 'dossier choisi par l'utilisateur If Windows.Forms.DialogResult.OK = Windows.Forms.DialogResult.Cancel Then My.Computer.FileSystem.CopyDirectory(source, FolderBrowserDialog1.SelectedPath, True) End If

---

mais cela ne fais rien, j'ai essayé ceci :

Code:

---

1 2	Dim oFSO = CreateObject("Scripting.FileSystemObject") oFSO.CopyFile("./DLL/", "c:/01/", True)

---

et cela me donne une erreur " Exception de HRESULT : 0x800A0005 (CTL_E_ILLEGALFUNCTIONCALL)"

Merci pour l'aide,
Cordialement

destination ne vaut pas ce que tu penses (et si Option Strict était activée le compilo te l'aurait dit)
En effet tu assignes à cette variable le résultat de ceci : FolderBrowserDialog1.ShowDialog() = Dialogesult.OK soit le résultat du test d'égalité entre les 2 valeurs (donc soit True, soit False) à partir de là il y a pas de chance que l'un ou l'autre représente le chemin que tu souhaitais :

ce que tu cherches réellement à faire c'est "si le showdialog m'a renvoyée ok alors j'assigne à destination le chemin sélectionné par le FolderBrowserDialog et je fais la copie" ;)


Edit : bon faites comme si j'avais rien dit j'avais pas vu que destination n'était même pas utilisé et ça m'a induit en erreur (moralité ne pas regarder du code pendant le digestion :aie:)

par contre tu compare DialogResult.OK avec DialogResult.Cancel au lieu de comparer ce que te renvoie ShowDialog avec l'un ou l'autre du coup l'égalité ne sera jamais vraie et tu n'entreras donc jamais dans le If

Salut,

Pour les versions recentes de windows, plein de repertoires sont proteges et seul le repertoire application data est autorise a l'ecriture.

• Donc soit tu lance ton programmes en admin
• soit tu utilises un repertoire n'ayant pas besoin de droits admin

Bonjour

Merci pour vos réponses , je vais essayer de suivre cette piste "Sehnsucht" . mon dossier doit être copier soit dans " System32 " ou " SysWow64 ".
du coup je serait bloquer alors ?

cordialement

Citation:

---

Envoyé par AcideBlood

Bonjour

Merci pour vos réponses , je vais essayer de suivre cette piste "Sehnsucht" . mon dossier doit être copier soit dans " System32 " ou " SysWow64 ".
du coup je serait bloquer alors ?

cordialement

---

Bonjour,

Oui tu seras bloqués donc il faut surtout suivre le conseil de mermich (:ccool:) concernant la problématique des droits lorsque tu souhaiteras accéder en écriture au contenu des répertoires système de l'OS !

Modifier le Manifest d'application

A+

Bonjour

C'est bon sa marche du moins la copie , mais pas pour les dossiers Syswow64 et system32 . j'ai bien changé le manifest mais sa marche pas. je suis en administrateur.

par contre je peut plus tester l'application j'ai ce message d'erreur :
Erreur ClickOnce ne prend pas en charge le niveau d'exécution de la demande 'requireAdministrator'.

Code:

---

1 2 3 4 5 6

Dim source As String = "./DLL/" 'dossier source ou ce trouve le fichier a copier Dim destination As String = FolderBrowserDialog1.ShowDialog() = DialogResult.OK 'dossier choisi par l'utilisateur If DialogResult.OK = DialogResult.OK Then My.Computer.FileSystem.CopyDirectory(source, FolderBrowserDialog1.SelectedPath, True) End If

---