Discussion :

[guigui69]

Bonjour à tous,

J'ai un script :

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
 
REM Option Explicit
Dim fso, fichier, fileItem
Dim i, imax, z, valeur, cible, liste
Set fso = CreateObject("Scripting.FileSystemObject")
imax = 0
strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set oss = objWMIService.ExecQuery ("Select Version from Win32_OperatingSystem")
For Each os in oss
version = Left(os.Version, 3)
Next
REM Wscript.Echo version
		if version = "5.1" then 
			Reponse_OS = fso.FolderExists("C:\Documents and Settings\All Users\Bureau")
						if Reponse_OS = True Then
							Docs_Users = "C:\Documents and Settings\All Users\Bureau"
						else
							Docs_Users = "C:\Documents and Settings\All Users\Desktop"
						end if
		elseif version = "6.1" then
			Reponse_OS = fso.FolderExists("C:\Users\Public\Desktop")
						if Reponse_OS = True Then
							Docs_Users = "C:\Users\Public\Desktop"
						else
							Docs_Users = "C:\Users\Public\Bureau"
						end if
		else 
		Docs_Users = "C:"
		End if
REM Wscript.Echo version
REM Wscript.Echo Docs_Users
 
Const PathMDB = "\\10.11.7.24\IDS"
 
'MsgBox TriRepertoire,,"Enumération " & PathMDB
'---lister les fichiers du répertoire ---
'Function TriRepertoire()
REM Dim fso, fichier, fileItem
REM Dim i, imax, z, valeur, cible, liste
REM Set fso = CreateObject("Scripting.FileSystemObject")
REM imax = 0
'début de l'énumération
For Each fichier In fso.GetFolder(PathMDB).Files
Set fileItem = fso.GetFile(fichier)
imax = imax + 1
ReDim Preserve Tableau(2, imax)
Tableau(1, imax) = Fichier.Name
Tableau(2, imax) = FileItem.DateLastModified
'---trier les fichiers par ordre décroissant de création ---
Do
Valeur = 0
For i = 1 To imax - 1
If CDate(Tableau(2, i)) < CDate(Tableau(2, i + 1)) Then
For z = 1 To 2
Cible = Tableau(z, i)
Tableau(z, i) = Tableau(z, i + 1)
Tableau(z, i + 1) = Cible
Next
Valeur = 1
End If
Next
Loop While Valeur = 1
Set fileItem = nothing
Next
'Affichage du résultat classé
 
'Afficher le dernier fichier recent
 
REM msgbox(Tableau(1, 1))
If fso.FileExists(Docs_Users &"\"& Tableau(1, 1) ) Then
    REM Wscript.Echo "Le fichier existe."
Else
    REM Wscript.Echo "Le fichier n'existe pas." & PathMDB & "\" & Tableau(1, 1)  &", "& Docs_Users &"\"
 
	fso.CopyFile PathMDB & "\" & Tableau(1, 1)  , Docs_Users &"\"
	Wscript.Echo "La Mise a jour IDS a été copier sur le PC." & PathMDB & "\" & Tableau(1, 1)  &", "& Docs_Users &"\"
End If
'///////////
REM For i = 1 To imax
REM liste = liste &vbTab& i &vbTab& Tableau(1, i) &Space(2)&vbTab&vbTab& Tableau(2, i) &vbCr
REM 'MsgBox liste,,i & " / " & imax &Space(3)& "Liste du répertoire"&Space(3)& PathMDB
REM If i = imax Then MsgBox liste ,,"Liste du répertoire" &Space(3)& PathMDB
REM Next
REM TriRepertoire = liste
Set fso = nothing
REM End Function

Ce script fonctionne sous windows XP, mais pas sous windows 7

Il me dit permission refusée, si je le fait à la main j'ai le message vous devez etre administrateur pour ... et je fait continuer et cela fonctionne.

Comment faire en vbs pour forcer la copie ?

Merci d'avance pour votre aide

guigui69

[hackoofr]

Je crois qu'il faut désactiver le UAC
L'UAC pour "User Account Control" est un dispositif de sécurité, qui a pour but d'encadrer l'utilisation des fichiers exécutables et diverses manipulations sollicitant des données sensibles. Déjà présent sous Windows Vista. ce dernier a souvent fait l'objet de plaintes concernant le ralentissement de certaines tâches qu'il induit. Malgré l'optimisation dont il a été l'objet, l'UAC peut être désactivé sous Seven de la manière suivante :

• Démarrer
• Panneau de configuration
• Comptes et protection utilisateurs
• Comptes d’utilisateurs
• Modifier les paramètres de contrôle du compte d'utilisateur

Une fois parvenu à cette étape une fenêtre pop-up apparaît et vous propose de déterminer les messages d'avertissement UAC que vous souhaitez recevoir ou non.

[AcideBlood]

Bonjour

je déterre le Topic a coup de grosse pelleteuse

j'ai le même problème +/- .

voici mon code :

Code :

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

1
2
3
4
5
6
7
8
 
'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 essayer ceci :

Code :

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

1
2
3
 
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