Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic API shfFormatDrive

API shfFormatDrive

24 réponses
Avatar
X
Bonjour,

Voici un code, celui de l'appel du formatage A, cependant, est-il
possible de l'automatiser, car là est le problème des API, il y a 4
interventions manuelles, 2 avant <démarrer> + message et 2 après message +
<fermer> ???

Private Declare Function SHFormatDrive Lib "shell32.dll" _
(ByVal hwnd As Long, ByVal drive As Integer, _
ByVal fmtID As Integer, ByVal options As Integer) As Long
Private Const SHFMT_ID_DEFAULT = 0
Dim Réponse As Long ' 0=ok, (-1)=erreur
'
Sub Form_Activate()
DoEvents
Réponse = SHFormatDrive(hwnd, 0, SHFMT_ID_DEFAULT, 1) ' 0 = complet, 1 =
rapide
Unload Form1
End
End Sub


--
Merci beaucoup, au revoir et à bientôt :o)
------
Site logiciels
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
Principe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
------------------------------------------------------------------------------------
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3
Avatar
Jacques93
Bonjour X,
X a écrit :
[...]
Néanmoins, j'ai toujours un problème avec le kill, il supprime le batch
avant son exécution... Ce n'est pas grave dans l'absolu, mais quand même
ennuyeux de laisser un batch dangereux traîner sur des ordinateurs (ceux des
autres surtout)...
A part la solution tu timer mis sur un délai au pif, laissant le temps de
formater, les autres méthodes appliquées ne fonctionnent pas...



Si j'ai bien compris, le problème est que l'instruction 'Shell' rend
tout de suite la main, et que l'instruction 'Kill' qui suit est donc
exécutée avant la fin du batch.

Deux solutions (parmi d'autre, je suppose)

1 - tu ajoutes une référence à 'Windows Script Host Object Model'
(wshom.ocx) et tu adapte ton code comme ceci :

Dim wsh As WshShell

Set wsh = New WshShell
wsh.Run App.Path & "Format_A.bat", 6, True
Kill App.Path & "Format_A.bat"
Set wsh = Nothing

Le paramètre True de la méthode wsh.Run indique d'attendre la fin de
l'exécution avant de continuer. Détails ici :

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/6f28899c-d653-4555-8a59-49640b0e32ea.asp?frame=true


2 - Tu utilises les API :

ShellExecuteEx
et
WaitForSingleObject

un exemple ici, avec la procédure ExecAndWait :

http://www.xtremevbtalk.com/printthread.php?t096

(En bas de la page)



Une autre voie, tu fais un formattage à partir de l'API :

DeviceIOControl

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/devio/base/deviceiocontrol.asp

avec les paramètres : IOCTL_DISK_FORMAT_TRACKS

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fileio/fs/ioctl_disk_format_tracks.asp

et FORMAT_PARAMETERS

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fileio/fs/format_parameters_str.asp

Mais là, ça demande quelques lignes de code ;-)

--
Cordialement,

Jacques.
Avatar
Fred
dans : news:OEt$
X disait :
Ce n'est pas que ça ne fonctionne pas, c'est qu'il y a des
interventions manuelles...
<ok>
message
---
message
<non>



Bonjour,
Justement, chez moi, le paramètre /Y valide par défaut les interventions
manuelles (comme avec beaucoup de commandes d'ailleurs).
Mais comme je l'ai précisé, c'est à confirmer avec d'autres
environnements.

--
Fred
http://www.cerbermail.com/?3kA6ftaCvT
Avatar
Fred
Dans : news:OEt$,
X disait :

Mais il me reste un problème pour le Kill du fichier, car
actuellement si je mets "kill" en fin sur le bat, le bat n'a pas le
temps de s'exécuter, code sous-cité, si tu as une idée ???



Pourquoi pas déployer le batch avec l'appli et le laisser où il est ?
Où est-il créé d'ailleurs ?
J'espère qu'il ne s'agit pas d'un de ces programmes qui font s'arracher
leurs cheveux aux administrateurs réseau obligés d'accorder des droits
aux utilisateurs sur les répertoires Program File et système ! :-)


--
Fred
http://www.cerbermail.com/?3kA6ftaCvT
Avatar
X
Où il est, ben il est dans le répertoire par défaut de l'application, mais
il n'y a pas d'administrateur réseau, ce sont des particuliers... Il est
potentiellement ennuyeux car si on y touche avec une disquette dans A, elle
est fusillée sur le champ...

------
Site logiciels
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
Principe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
------------------------------------------------------------------------------------
"Fred" a écrit dans le message de news:

Dans : news:OEt$,
X disait :

Mais il me reste un problème pour le Kill du fichier, car
actuellement si je mets "kill" en fin sur le bat, le bat n'a pas le
temps de s'exécuter, code sous-cité, si tu as une idée ???



Pourquoi pas déployer le batch avec l'appli et le laisser où il est ?
Où est-il créé d'ailleurs ?
J'espère qu'il ne s'agit pas d'un de ces programmes qui font s'arracher
leurs cheveux aux administrateurs réseau obligés d'accorder des droits aux
utilisateurs sur les répertoires Program File et système ! :-)


--
Fred
http://www.cerbermail.com/?3kA6ftaCvT


Avatar
Fred
Dans : news:,
X disait :
Où il est, ben il est dans le répertoire par défaut de l'application,
mais il n'y a pas d'administrateur réseau, ce sont des
particuliers...



Répertoire d'application (Program File par défaut) = accès limité pour
les non administrateurs du poste (pas l'administrateur réseau qui lui va
partout).
Donc les utilisateurs doivent être administrateur du poste, ou au moins
Utilisateur avec être autorisés à écrire dans le program file. D'où ma
suggestion de le placer là lors de l'installation.
C'est, hélas, le cas par défaut avec tous les problèmes de spam, virus
et autres salopwares que cela engendre.
Un des premiers commandements du Safe-Hex est de ne pas utiliser son PC
sous un compte administrateur.

Il est potentiellement ennuyeux car si on y touche
avec une disquette dans A, elle est fusillée sur le champ...



Oui, et la solution avec le /Y alors ? Elle ne fonctionne pas ? Chez moi
oui et c'est même très rapide (beaucoup plus, par exemple, qu'un rm A:.
/s)


--
Fred
http://www.cerbermail.com/?3kA6ftaCvT
Avatar
X
Bonsoir,

Ma ligne de commande ne demande aucune validation:

Shell "@ren /? | format a:/q/v:"""" > nul", vbMinimizedFocus

tu dis "Y", la commande "Format" n'a pas de paramètres Y dans mes 3 livres
sur Dos et les batch, je ne sais pas ce que c'est, il y a:
v=volume nom
q=quick, vite
f:Êpacité
s=system
u=inconditionnel
b=allocation d'espace system
t=pistes/faces
n=secteurs/pistes
4 = format 360n dans lecteur HD


------
Site logiciels
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
Principe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
------------------------------------------------------------------------------------
"Fred" a écrit dans le message de news:
%
dans : news:OEt$
X disait :
Ce n'est pas que ça ne fonctionne pas, c'est qu'il y a des
interventions manuelles...
<ok>
message
---
message
<non>



Bonjour,
Justement, chez moi, le paramètre /Y valide par défaut les interventions
manuelles (comme avec beaucoup de commandes d'ailleurs).
Mais comme je l'ai précisé, c'est à confirmer avec d'autres
environnements.

--
Fred
http://www.cerbermail.com/?3kA6ftaCvT


Avatar
Fred
Dans : news:,
Fred disait :

Donc les utilisateurs doivent être administrateur du poste, ou au
moins Utilisateur avec être autorisés à écrire dans le program file.



Utilisateur *avec pouvoir pour* être autorisés ...

--
Fred
http://www.cerbermail.com/?3kA6ftaCvT
Avatar
X
Bonsoir Jacques, oui c'est exactement le problème, je vais voir ton code, je
ne connaissais pas, en espérant que cet ocx soit toujours sur tous les
systèmes ???


------
Site logiciels
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
Principe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
------------------------------------------------------------------------------------
"Jacques93" a écrit dans le message de news:

Bonjour X,
X a écrit :
[...]
Néanmoins, j'ai toujours un problème avec le kill, il supprime le
batch avant son exécution... Ce n'est pas grave dans l'absolu, mais quand
même ennuyeux de laisser un batch dangereux traîner sur des ordinateurs
(ceux des autres surtout)...
A part la solution tu timer mis sur un délai au pif, laissant le temps de
formater, les autres méthodes appliquées ne fonctionnent pas...



Si j'ai bien compris, le problème est que l'instruction 'Shell' rend tout
de suite la main, et que l'instruction 'Kill' qui suit est donc exécutée
avant la fin du batch.

Deux solutions (parmi d'autre, je suppose)

1 - tu ajoutes une référence à 'Windows Script Host Object Model'
(wshom.ocx) et tu adapte ton code comme ceci :

Dim wsh As WshShell

Set wsh = New WshShell
wsh.Run App.Path & "Format_A.bat", 6, True
Kill App.Path & "Format_A.bat"
Set wsh = Nothing

Le paramètre True de la méthode wsh.Run indique d'attendre la fin de
l'exécution avant de continuer. Détails ici :

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/6f28899c-d653-4555-8a59-49640b0e32ea.asp?frame=true


2 - Tu utilises les API :

ShellExecuteEx
et
WaitForSingleObject

un exemple ici, avec la procédure ExecAndWait :

http://www.xtremevbtalk.com/printthread.php?t096

(En bas de la page)



Une autre voie, tu fais un formattage à partir de l'API :

DeviceIOControl

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/devio/base/deviceiocontrol.asp

avec les paramètres : IOCTL_DISK_FORMAT_TRACKS

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fileio/fs/ioctl_disk_format_tracks.asp

et FORMAT_PARAMETERS

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fileio/fs/format_parameters_str.asp

Mais là, ça demande quelques lignes de code ;-)

--
Cordialement,

Jacques.


Avatar
Fred
Dans : news:%23a$$,
X disait :
Bonsoir,



tu dis "Y", la commande "Format" n'a pas de paramètres Y dans mes 3
livres sur Dos et les batch,



Et en essayant, cela donne quoi ?
J'ai rarement vu ce paramètre documenté et pourtant il existe et il
fonctionne.
Maintenant, si taper une ligne de code pour essayer est trop difficile,
je m'en tiendrais là.
On ne se refait pas.

--
Fred
http://www.cerbermail.com/?3kA6ftaCvT
Avatar
X
Ben dis donc, merci de ta proposition, mais tu es susceptible... Désolé...
De toute façon j'ai adopté le formatage, et en tant que tel ça marche, donc
je ne fais plus d'autres commandes, sauf pour le Kill, je vais voir la
proposition de Jacques...

------
Site logiciels
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
Principe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
------------------------------------------------------------------------------------
"Fred" a écrit dans le message de news:
u%
Dans : news:%23a$$,
X disait :
Bonsoir,



tu dis "Y", la commande "Format" n'a pas de paramètres Y dans mes 3
livres sur Dos et les batch,



Et en essayant, cela donne quoi ?
J'ai rarement vu ce paramètre documenté et pourtant il existe et il
fonctionne.
Maintenant, si taper une ligne de code pour essayer est trop difficile, je
m'en tiendrais là.
On ne se refait pas.

--
Fred
http://www.cerbermail.com/?3kA6ftaCvT


1 2 3