Formater a:/q/u ???

Salut ;O)

Essaye ceci :

Call Shell("format.com a:/q/u")

Pour formatter via Windows par la boîte de dialogue standard en utilisant
l'API SHFormatDrive , vois ici :

http://www.freevbcode.com/ShowCode.Asp?ID71

Guy

"X" <X@Y.Z> a écrit dans le message de
news:ugnJUPwMGHA.2300@TK2MSFTNGP15.phx.gbl...

Bonjour,

Depuis exe VB, comment formater la disquette, soit la commande:

format a:/q/u

???

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
Pincipe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
--------------------------------------------------------------------------

----------

Bonjour,

Merci, ça marche en partie, j'ai encore amélioré, je fais:

Call Shell("format.com a:/q/u/v:A")

Le problème c'est que je ne sais pas comment passer ensuite le <rc> de
"go" et le <n> "non pas d'autre"... As-tu une idée ???

Le problème pourrait se résoudre si à la rigueur je pouvais monter au
1er plan la fenêtre Dos, le temps des réponses, mais ça ferait pas terrible,
l'idéal c'est un automatisme complet, je contrôle juste la confirmation
depuis VB et la gestion d'erreur (HS ou absent ou protégé physiquement),
puis j'envoie...

En réalité, je n'ai pas besoin de formater, un "DelTree .com a:" me
suffirait, sauf que "DelTree" je crois que ce n'est plus reconnu, je formate
pour effacer les répertoire non vides à défaut + les fichiers (kill)...

J'ai essayé avec un bach, mais Windows ne reconnaît pas directement
l'appel, il faudrait que je le fasse en programmation depuis l'exe (ça c'est
facile), puis que je le lance par le shell, pour ensuite l'effacer, c'est
faisable aussi, je verrais s'il n'y a pas d'autres solutions, dans ce cas,
avec le batch on peut lui dir <rc>...<n>... et fermer...

Bon, ben si tu sais comment conclure l'affaire ???

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
Pincipe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
------------------------------------------------------------------------------------
"Guy DETIENNE" <gd@NOSPAM.tchao.be> a écrit dans le message de news:
ul0rNyzMGHA.516@TK2MSFTNGP15.phx.gbl...

Salut ;O)

Essaye ceci :

Call Shell("format.com a:/q/u")

Pour formatter via Windows par la boîte de dialogue standard en utilisant
l'API SHFormatDrive , vois ici :

http://www.freevbcode.com/ShowCode.Asp?ID71

Guy

"X" <X@Y.Z> a écrit dans le message de
news:ugnJUPwMGHA.2300@TK2MSFTNGP15.phx.gbl...

Bonjour,

Depuis exe VB, comment formater la disquette, soit la commande:

format a:/q/u

???

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
Pincipe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
--------------------------------------------------------------------------

----------

Salut ;O)

Pour supprimer un répertoire et tous ses sous répertoires et fichiers en
mode silencieux (sans demande de comfirmation) :

Exemple :
RMDIR /S /Q C:MonRepertoire

Guy

"X" <X@Y.Z> a écrit dans le message de
news:%23BCUbd4MGHA.2040@TK2MSFTNGP14.phx.gbl...

Bonjour,

Merci, ça marche en partie, j'ai encore amélioré, je fais:

Call Shell("format.com a:/q/u/v:A")

Le problème c'est que je ne sais pas comment passer ensuite le <rc> de
"go" et le <n> "non pas d'autre"... As-tu une idée ???

Le problème pourrait se résoudre si à la rigueur je pouvais monter au
1er plan la fenêtre Dos, le temps des réponses, mais ça ferait pas

terrible,

l'idéal c'est un automatisme complet, je contrôle juste la confirmation
depuis VB et la gestion d'erreur (HS ou absent ou protégé physiquement),
puis j'envoie...

En réalité, je n'ai pas besoin de formater, un "DelTree .com a:" me
suffirait, sauf que "DelTree" je crois que ce n'est plus reconnu, je

formate

pour effacer les répertoire non vides à défaut + les fichiers (kill)...

J'ai essayé avec un bach, mais Windows ne reconnaît pas directement
l'appel, il faudrait que je le fasse en programmation depuis l'exe (ça

c'est

facile), puis que je le lance par le shell, pour ensuite l'effacer, c'est
faisable aussi, je verrais s'il n'y a pas d'autres solutions, dans ce cas,
avec le batch on peut lui dir <rc>...<n>... et fermer...

Bon, ben si tu sais comment conclure l'affaire ???

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
Pincipe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
--------------------------------------------------------------------------

----------

"Guy DETIENNE" <gd@NOSPAM.tchao.be> a écrit dans le message de news:
ul0rNyzMGHA.516@TK2MSFTNGP15.phx.gbl...
> Salut ;O)
>
> Essaye ceci :
>
> Call Shell("format.com a:/q/u")
>
> Pour formatter via Windows par la boîte de dialogue standard en

utilisant

> l'API SHFormatDrive , vois ici :
>
> http://www.freevbcode.com/ShowCode.Asp?ID71
>
> Guy
>
> "X" <X@Y.Z> a écrit dans le message de
> news:ugnJUPwMGHA.2300@TK2MSFTNGP15.phx.gbl...
>> Bonjour,
>>
>> Depuis exe VB, comment formater la disquette, soit la commande:
>>
>> format a:/q/u
>>
>> ???
>>
>> 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
>> Pincipe d'utilisation des news Groups
>>

http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm

-------------------------------------------------------------------------

-

> ----------
>>
>>
>
>

Merci :o)
Mais... marche pas...

RmDir "a:*.*/s"

--
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
------------------------------------------------------------------------------------
"Guy DETIENNE" <gd@NOSPAM.tchao.be> a écrit dans le message de news:
uDO4Q49MGHA.1424@TK2MSFTNGP12.phx.gbl...

Salut ;O)

Pour supprimer un répertoire et tous ses sous répertoires et fichiers en
mode silencieux (sans demande de comfirmation) :

Exemple :
RMDIR /S /Q C:MonRepertoire

Guy

"X" <X@Y.Z> a écrit dans le message de
news:%23BCUbd4MGHA.2040@TK2MSFTNGP14.phx.gbl...

Bonjour,

Merci, ça marche en partie, j'ai encore amélioré, je fais:

Call Shell("format.com a:/q/u/v:A")

Le problème c'est que je ne sais pas comment passer ensuite le <rc>
de
"go" et le <n> "non pas d'autre"... As-tu une idée ???

Le problème pourrait se résoudre si à la rigueur je pouvais monter au
1er plan la fenêtre Dos, le temps des réponses, mais ça ferait pas

terrible,

l'idéal c'est un automatisme complet, je contrôle juste la confirmation
depuis VB et la gestion d'erreur (HS ou absent ou protégé physiquement),
puis j'envoie...

En réalité, je n'ai pas besoin de formater, un "DelTree .com a:" me
suffirait, sauf que "DelTree" je crois que ce n'est plus reconnu, je

formate

pour effacer les répertoire non vides à défaut + les fichiers (kill)...

J'ai essayé avec un bach, mais Windows ne reconnaît pas directement
l'appel, il faudrait que je le fasse en programmation depuis l'exe (ça

c'est

facile), puis que je le lance par le shell, pour ensuite l'effacer, c'est
faisable aussi, je verrais s'il n'y a pas d'autres solutions, dans ce
cas,
avec le batch on peut lui dir <rc>...<n>... et fermer...

Bon, ben si tu sais comment conclure l'affaire ???

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
Pincipe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
--------------------------------------------------------------------------

----------

"Guy DETIENNE" <gd@NOSPAM.tchao.be> a écrit dans le message de news:
ul0rNyzMGHA.516@TK2MSFTNGP15.phx.gbl...
> Salut ;O)
>
> Essaye ceci :
>
> Call Shell("format.com a:/q/u")
>
> Pour formatter via Windows par la boîte de dialogue standard en

utilisant

> l'API SHFormatDrive , vois ici :
>
> http://www.freevbcode.com/ShowCode.Asp?ID71
>
> Guy
>
> "X" <X@Y.Z> a écrit dans le message de
> news:ugnJUPwMGHA.2300@TK2MSFTNGP15.phx.gbl...
>> Bonjour,
>>
>> Depuis exe VB, comment formater la disquette, soit la commande:
>>
>> format a:/q/u
>>
>> ???
>>
>> 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
>> Pincipe d'utilisation des news Groups
>>

http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm

-------------------------------------------------------------------------

-

> ----------
>>
>>
>
>

Salut ;O)

Suis exactement la syntaxe que je t'ai donné et tu verras que ça marche...

Ton RmDir "a:*.*/s" ne rime à rien. Les paramètres sont incohérents.

Guy

"X" <X@Y.Z> a écrit dans le message de
news:%23H24paANGHA.4052@TK2MSFTNGP15.phx.gbl...

Merci :o)
Mais... marche pas...

RmDir "a:*.*/s"

--
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
--------------------------------------------------------------------------

----------

"Guy DETIENNE" <gd@NOSPAM.tchao.be> a écrit dans le message de news:
uDO4Q49MGHA.1424@TK2MSFTNGP12.phx.gbl...
> Salut ;O)
>
> Pour supprimer un répertoire et tous ses sous répertoires et fichiers en
> mode silencieux (sans demande de comfirmation) :
>
> Exemple :
> RMDIR /S /Q C:MonRepertoire
>
> Guy
>
> "X" <X@Y.Z> a écrit dans le message de
> news:%23BCUbd4MGHA.2040@TK2MSFTNGP14.phx.gbl...
>> Bonjour,
>>
>> Merci, ça marche en partie, j'ai encore amélioré, je fais:
>>
>> Call Shell("format.com a:/q/u/v:A")
>>
>> Le problème c'est que je ne sais pas comment passer ensuite le <rc>
>> de
>> "go" et le <n> "non pas d'autre"... As-tu une idée ???
>>
>> Le problème pourrait se résoudre si à la rigueur je pouvais monter

au

>> 1er plan la fenêtre Dos, le temps des réponses, mais ça ferait pas
> terrible,
>> l'idéal c'est un automatisme complet, je contrôle juste la confirmation
>> depuis VB et la gestion d'erreur (HS ou absent ou protégé

physiquement),

>> puis j'envoie...
>>
>> En réalité, je n'ai pas besoin de formater, un "DelTree .com a:" me
>> suffirait, sauf que "DelTree" je crois que ce n'est plus reconnu, je
> formate
>> pour effacer les répertoire non vides à défaut + les fichiers (kill)...
>>
>> J'ai essayé avec un bach, mais Windows ne reconnaît pas directement
>> l'appel, il faudrait que je le fasse en programmation depuis l'exe (ça
> c'est
>> facile), puis que je le lance par le shell, pour ensuite l'effacer,

c'est

>> faisable aussi, je verrais s'il n'y a pas d'autres solutions, dans ce
>> cas,
>> avec le batch on peut lui dir <rc>...<n>... et fermer...
>>
>> Bon, ben si tu sais comment conclure l'affaire ???
>>
>> 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
>> Pincipe d'utilisation des news Groups
>>

http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm

-------------------------------------------------------------------------

-

> ----------
>> "Guy DETIENNE" <gd@NOSPAM.tchao.be> a écrit dans le message de news:
>> ul0rNyzMGHA.516@TK2MSFTNGP15.phx.gbl...
>> > Salut ;O)
>> >
>> > Essaye ceci :
>> >
>> > Call Shell("format.com a:/q/u")
>> >
>> > Pour formatter via Windows par la boîte de dialogue standard en
> utilisant
>> > l'API SHFormatDrive , vois ici :
>> >
>> > http://www.freevbcode.com/ShowCode.Asp?ID71
>> >
>> > Guy
>> >
>> > "X" <X@Y.Z> a écrit dans le message de
>> > news:ugnJUPwMGHA.2300@TK2MSFTNGP15.phx.gbl...
>> >> Bonjour,
>> >>
>> >> Depuis exe VB, comment formater la disquette, soit la commande:
>> >>
>> >> format a:/q/u
>> >>
>> >> ???
>> >>
>> >> 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
>> >> Pincipe d'utilisation des news Groups
>> >>
> http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
>>

------------------------------------------------------------------------

-

> -
>> > ----------
>> >>
>> >>
>> >
>> >
>>
>>
>
>

Oui chef !

Mais ça marche pas mieux chef :

RmDir "/S /Q C:*.*"

Je ne peux pas nommer directement le répertoire car je ne sais pas ce qu'il
y a sur la disquette, en plus ça ne marcherait pas en cas de répertoire non
vide (DelTree), si ça existe encore, désolé chef :o)

Mais merci chef :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
------------------------------------------------------------------------------------
"Guy DETIENNE" <gd@NOSPAM.tchao.be> a écrit dans le message de news:
%23P6nTvANGHA.3264@TK2MSFTNGP11.phx.gbl...

Salut ;O)

Suis exactement la syntaxe que je t'ai donné et tu verras que ça marche...

Ton RmDir "a:*.*/s" ne rime à rien. Les paramètres sont incohérents.

Guy

"X" <X@Y.Z> a écrit dans le message de
news:%23H24paANGHA.4052@TK2MSFTNGP15.phx.gbl...

Merci :o)
Mais... marche pas...

RmDir "a:*.*/s"

--
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
--------------------------------------------------------------------------

----------

"Guy DETIENNE" <gd@NOSPAM.tchao.be> a écrit dans le message de news:
uDO4Q49MGHA.1424@TK2MSFTNGP12.phx.gbl...
> Salut ;O)
>
> Pour supprimer un répertoire et tous ses sous répertoires et fichiers
> en
> mode silencieux (sans demande de comfirmation) :
>
> Exemple :
> RMDIR /S /Q C:MonRepertoire
>
> Guy
>
> "X" <X@Y.Z> a écrit dans le message de
> news:%23BCUbd4MGHA.2040@TK2MSFTNGP14.phx.gbl...
>> Bonjour,
>>
>> Merci, ça marche en partie, j'ai encore amélioré, je fais:
>>
>> Call Shell("format.com a:/q/u/v:A")
>>
>> Le problème c'est que je ne sais pas comment passer ensuite le
>> <rc>
>> de
>> "go" et le <n> "non pas d'autre"... As-tu une idée ???
>>
>> Le problème pourrait se résoudre si à la rigueur je pouvais monter

au

>> 1er plan la fenêtre Dos, le temps des réponses, mais ça ferait pas
> terrible,
>> l'idéal c'est un automatisme complet, je contrôle juste la
>> confirmation
>> depuis VB et la gestion d'erreur (HS ou absent ou protégé

physiquement),

>> puis j'envoie...
>>
>> En réalité, je n'ai pas besoin de formater, un "DelTree .com a:"
>> me
>> suffirait, sauf que "DelTree" je crois que ce n'est plus reconnu, je
> formate
>> pour effacer les répertoire non vides à défaut + les fichiers
>> (kill)...
>>
>> J'ai essayé avec un bach, mais Windows ne reconnaît pas
>> directement
>> l'appel, il faudrait que je le fasse en programmation depuis l'exe (ça
> c'est
>> facile), puis que je le lance par le shell, pour ensuite l'effacer,

c'est

>> faisable aussi, je verrais s'il n'y a pas d'autres solutions, dans ce
>> cas,
>> avec le batch on peut lui dir <rc>...<n>... et fermer...
>>
>> Bon, ben si tu sais comment conclure l'affaire ???
>>
>> 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
>> Pincipe d'utilisation des news Groups
>>

http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm

-------------------------------------------------------------------------

-

> ----------
>> "Guy DETIENNE" <gd@NOSPAM.tchao.be> a écrit dans le message de news:
>> ul0rNyzMGHA.516@TK2MSFTNGP15.phx.gbl...
>> > Salut ;O)
>> >
>> > Essaye ceci :
>> >
>> > Call Shell("format.com a:/q/u")
>> >
>> > Pour formatter via Windows par la boîte de dialogue standard en
> utilisant
>> > l'API SHFormatDrive , vois ici :
>> >
>> > http://www.freevbcode.com/ShowCode.Asp?ID71
>> >
>> > Guy
>> >
>> > "X" <X@Y.Z> a écrit dans le message de
>> > news:ugnJUPwMGHA.2300@TK2MSFTNGP15.phx.gbl...
>> >> Bonjour,
>> >>
>> >> Depuis exe VB, comment formater la disquette, soit la commande:
>> >>
>> >> format a:/q/u
>> >>
>> >> ???
>> >>
>> >> 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
>> >> Pincipe d'utilisation des news Groups
>> >>
> http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
>>

------------------------------------------------------------------------

-

> -
>> > ----------
>> >>
>> >>
>> >
>> >
>>
>>
>
>

Salut ;O)

Mea Culpa pour RMDIR. En effet, il n'accepte pas que les répertoires ne
soient pas vides.
Toutefois, tu ne respectais pas la syntaxe...

Voici une fonction (à peaufiner) permettant de supprimer un répertoire et
tout son contenu (répertoires y compris) :

Exemple d'utilisation : Call KillFolderTree ("C:toto")

Public Sub KillFolderTree(sFolder As String)


Dim sCurrFilename As String
sCurrFilename = Dir(sFolder & "*.*", vbDirectory)
Do While sCurrFilename <> ""

If sCurrFilename <> "." And sCurrFilename <> ".." Then

If (GetAttr(sFolder & "" & sCurrFilename) And vbDirectory) vbDirectory Then
Call KillFolderTree(sFolder & "" & sCurrFilename)
sCurrFilename = Dir(sFolder & "*.*", vbDirectory)
Else
On Error Resume Next
Kill sFolder & "" & sCurrFilename
On Error Goto 0
sCurrFilename = Dir
End If
Else
sCurrFilename = Dir
End If
Loop
On Error Resume Next
RmDir sFolder
End Sub Guy

"X" <X@Y.Z> a écrit dans le message de
news:e2d1WCBNGHA.1716@TK2MSFTNGP10.phx.gbl...

Oui chef !

Mais ça marche pas mieux chef :

RmDir "/S /Q C:*.*"

Je ne peux pas nommer directement le répertoire car je ne sais pas ce

qu'il

y a sur la disquette, en plus ça ne marcherait pas en cas de répertoire

non

vide (DelTree), si ça existe encore, désolé chef :o)

Mais merci chef :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
--------------------------------------------------------------------------

----------

"Guy DETIENNE" <gd@NOSPAM.tchao.be> a écrit dans le message de news:
%23P6nTvANGHA.3264@TK2MSFTNGP11.phx.gbl...
> Salut ;O)
>
> Suis exactement la syntaxe que je t'ai donné et tu verras que ça

marche...

>
> Ton RmDir "a:*.*/s" ne rime à rien. Les paramètres sont incohérents.
>
> Guy
>
> "X" <X@Y.Z> a écrit dans le message de
> news:%23H24paANGHA.4052@TK2MSFTNGP15.phx.gbl...
>> Merci :o)
>> Mais... marche pas...
>>
>> RmDir "a:*.*/s"
>>
>> --
>> 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

-------------------------------------------------------------------------

-

> ----------
>> "Guy DETIENNE" <gd@NOSPAM.tchao.be> a écrit dans le message de news:
>> uDO4Q49MGHA.1424@TK2MSFTNGP12.phx.gbl...
>> > Salut ;O)
>> >
>> > Pour supprimer un répertoire et tous ses sous répertoires et fichiers
>> > en
>> > mode silencieux (sans demande de comfirmation) :
>> >
>> > Exemple :
>> > RMDIR /S /Q C:MonRepertoire
>> >
>> > Guy
>> >
>> > "X" <X@Y.Z> a écrit dans le message de
>> > news:%23BCUbd4MGHA.2040@TK2MSFTNGP14.phx.gbl...
>> >> Bonjour,
>> >>
>> >> Merci, ça marche en partie, j'ai encore amélioré, je fais:
>> >>
>> >> Call Shell("format.com a:/q/u/v:A")
>> >>
>> >> Le problème c'est que je ne sais pas comment passer ensuite le
>> >> <rc>
>> >> de
>> >> "go" et le <n> "non pas d'autre"... As-tu une idée ???
>> >>
>> >> Le problème pourrait se résoudre si à la rigueur je pouvais

monter

> au
>> >> 1er plan la fenêtre Dos, le temps des réponses, mais ça ferait pas
>> > terrible,
>> >> l'idéal c'est un automatisme complet, je contrôle juste la
>> >> confirmation
>> >> depuis VB et la gestion d'erreur (HS ou absent ou protégé
> physiquement),
>> >> puis j'envoie...
>> >>
>> >> En réalité, je n'ai pas besoin de formater, un "DelTree .com a:"
>> >> me
>> >> suffirait, sauf que "DelTree" je crois que ce n'est plus reconnu, je
>> > formate
>> >> pour effacer les répertoire non vides à défaut + les fichiers
>> >> (kill)...
>> >>
>> >> J'ai essayé avec un bach, mais Windows ne reconnaît pas
>> >> directement
>> >> l'appel, il faudrait que je le fasse en programmation depuis l'exe

(ça

>> > c'est
>> >> facile), puis que je le lance par le shell, pour ensuite l'effacer,
> c'est
>> >> faisable aussi, je verrais s'il n'y a pas d'autres solutions, dans

ce

>> >> cas,
>> >> avec le batch on peut lui dir <rc>...<n>... et fermer...
>> >>
>> >> Bon, ben si tu sais comment conclure l'affaire ???
>> >>
>> >> 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
>> >> Pincipe d'utilisation des news Groups
>> >>
> http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
>>

------------------------------------------------------------------------

-

> -
>> > ----------
>> >> "Guy DETIENNE" <gd@NOSPAM.tchao.be> a écrit dans le message de news:
>> >> ul0rNyzMGHA.516@TK2MSFTNGP15.phx.gbl...
>> >> > Salut ;O)
>> >> >
>> >> > Essaye ceci :
>> >> >
>> >> > Call Shell("format.com a:/q/u")
>> >> >
>> >> > Pour formatter via Windows par la boîte de dialogue standard en
>> > utilisant
>> >> > l'API SHFormatDrive , vois ici :
>> >> >
>> >> > http://www.freevbcode.com/ShowCode.Asp?ID71
>> >> >
>> >> > Guy
>> >> >
>> >> > "X" <X@Y.Z> a écrit dans le message de
>> >> > news:ugnJUPwMGHA.2300@TK2MSFTNGP15.phx.gbl...
>> >> >> Bonjour,
>> >> >>
>> >> >> Depuis exe VB, comment formater la disquette, soit la

commande:

>> >> >>
>> >> >> format a:/q/u
>> >> >>
>> >> >> ???
>> >> >>
>> >> >> 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
>> >> >> Pincipe d'utilisation des news Groups
>> >> >>
>> >

http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm

>> >>
>>

-----------------------------------------------------------------------

-

> -
>> > -
>> >> > ----------
>> >> >>
>> >> >>
>> >> >
>> >> >
>> >>
>> >>
>> >
>> >
>>
>>
>
>

Heu, merci, mai... non, je ne connais pas ce qu'il y a sur la disquette,
c'est pourquoi je voulais formater, mais a priori nul ne sait, y compris
moi, alors j'ai choisi d'effacer, les fichiers c'est facile, mais les
répertoires ce n'est pas facile, et encore moins les répertoires pleins...

L'idéal pour moi serait une commande unique et transparente pour le
formatage...

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
------------------------------------------------------------------------------------
"Guy DETIENNE" <gd@NOSPAM.tchao.be> a écrit dans le message de news:
efEO6GHNGHA.4052@TK2MSFTNGP15.phx.gbl...

Salut ;O)

Mea Culpa pour RMDIR. En effet, il n'accepte pas que les répertoires ne
soient pas vides.
Toutefois, tu ne respectais pas la syntaxe...

Voici une fonction (à peaufiner) permettant de supprimer un répertoire et
tout son contenu (répertoires y compris) :

Exemple d'utilisation : Call KillFolderTree ("C:toto")

Public Sub KillFolderTree(sFolder As String)


Dim sCurrFilename As String
sCurrFilename = Dir(sFolder & "*.*", vbDirectory)
Do While sCurrFilename <> ""

If sCurrFilename <> "." And sCurrFilename <> ".." Then

If (GetAttr(sFolder & "" & sCurrFilename) And vbDirectory) > vbDirectory Then
Call KillFolderTree(sFolder & "" & sCurrFilename)
sCurrFilename = Dir(sFolder & "*.*", vbDirectory)
Else
On Error Resume Next
Kill sFolder & "" & sCurrFilename
On Error Goto 0
sCurrFilename = Dir
End If
Else
sCurrFilename = Dir
End If
Loop
On Error Resume Next
RmDir sFolder
End Sub Guy

"X" <X@Y.Z> a écrit dans le message de
news:e2d1WCBNGHA.1716@TK2MSFTNGP10.phx.gbl...

Oui chef !

Mais ça marche pas mieux chef :

RmDir "/S /Q C:*.*"

Je ne peux pas nommer directement le répertoire car je ne sais pas ce

qu'il

y a sur la disquette, en plus ça ne marcherait pas en cas de répertoire

non

vide (DelTree), si ça existe encore, désolé chef :o)

Mais merci chef :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
--------------------------------------------------------------------------

----------

"Guy DETIENNE" <gd@NOSPAM.tchao.be> a écrit dans le message de news:
%23P6nTvANGHA.3264@TK2MSFTNGP11.phx.gbl...
> Salut ;O)
>
> Suis exactement la syntaxe que je t'ai donné et tu verras que ça

marche...

>
> Ton RmDir "a:*.*/s" ne rime à rien. Les paramètres sont incohérents.
>
> Guy
>
> "X" <X@Y.Z> a écrit dans le message de
> news:%23H24paANGHA.4052@TK2MSFTNGP15.phx.gbl...
>> Merci :o)
>> Mais... marche pas...
>>
>> RmDir "a:*.*/s"
>>
>> --
>> 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

-------------------------------------------------------------------------

-

> ----------
>> "Guy DETIENNE" <gd@NOSPAM.tchao.be> a écrit dans le message de news:
>> uDO4Q49MGHA.1424@TK2MSFTNGP12.phx.gbl...
>> > Salut ;O)
>> >
>> > Pour supprimer un répertoire et tous ses sous répertoires et
>> > fichiers
>> > en
>> > mode silencieux (sans demande de comfirmation) :
>> >
>> > Exemple :
>> > RMDIR /S /Q C:MonRepertoire
>> >
>> > Guy
>> >
>> > "X" <X@Y.Z> a écrit dans le message de
>> > news:%23BCUbd4MGHA.2040@TK2MSFTNGP14.phx.gbl...
>> >> Bonjour,
>> >>
>> >> Merci, ça marche en partie, j'ai encore amélioré, je fais:
>> >>
>> >> Call Shell("format.com a:/q/u/v:A")
>> >>
>> >> Le problème c'est que je ne sais pas comment passer ensuite le
>> >> <rc>
>> >> de
>> >> "go" et le <n> "non pas d'autre"... As-tu une idée ???
>> >>
>> >> Le problème pourrait se résoudre si à la rigueur je pouvais

monter

> au
>> >> 1er plan la fenêtre Dos, le temps des réponses, mais ça ferait pas
>> > terrible,
>> >> l'idéal c'est un automatisme complet, je contrôle juste la
>> >> confirmation
>> >> depuis VB et la gestion d'erreur (HS ou absent ou protégé
> physiquement),
>> >> puis j'envoie...
>> >>
>> >> En réalité, je n'ai pas besoin de formater, un "DelTree .com
>> >> a:"
>> >> me
>> >> suffirait, sauf que "DelTree" je crois que ce n'est plus reconnu,
>> >> je
>> > formate
>> >> pour effacer les répertoire non vides à défaut + les fichiers
>> >> (kill)...
>> >>
>> >> J'ai essayé avec un bach, mais Windows ne reconnaît pas
>> >> directement
>> >> l'appel, il faudrait que je le fasse en programmation depuis l'exe

(ça

>> > c'est
>> >> facile), puis que je le lance par le shell, pour ensuite l'effacer,
> c'est
>> >> faisable aussi, je verrais s'il n'y a pas d'autres solutions, dans

ce

>> >> cas,
>> >> avec le batch on peut lui dir <rc>...<n>... et fermer...
>> >>
>> >> Bon, ben si tu sais comment conclure l'affaire ???
>> >>
>> >> 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
>> >> Pincipe d'utilisation des news Groups
>> >>
> http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
>>

------------------------------------------------------------------------

-

> -
>> > ----------
>> >> "Guy DETIENNE" <gd@NOSPAM.tchao.be> a écrit dans le message de
>> >> news:
>> >> ul0rNyzMGHA.516@TK2MSFTNGP15.phx.gbl...
>> >> > Salut ;O)
>> >> >
>> >> > Essaye ceci :
>> >> >
>> >> > Call Shell("format.com a:/q/u")
>> >> >
>> >> > Pour formatter via Windows par la boîte de dialogue standard en
>> > utilisant
>> >> > l'API SHFormatDrive , vois ici :
>> >> >
>> >> > http://www.freevbcode.com/ShowCode.Asp?ID71
>> >> >
>> >> > Guy
>> >> >
>> >> > "X" <X@Y.Z> a écrit dans le message de
>> >> > news:ugnJUPwMGHA.2300@TK2MSFTNGP15.phx.gbl...
>> >> >> Bonjour,
>> >> >>
>> >> >> Depuis exe VB, comment formater la disquette, soit la

commande:

>> >> >>
>> >> >> format a:/q/u
>> >> >>
>> >> >> ???
>> >> >>
>> >> >> 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
>> >> >> Pincipe d'utilisation des news Groups
>> >> >>
>> >

http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm

>> >>
>>

-----------------------------------------------------------------------

-

> -
>> > -
>> >> > ----------
>> >> >>
>> >> >>
>> >> >
>> >> >
>> >>
>> >>
>> >
>> >
>>
>>
>
>

Bonsoir X,
Regarde de ce coté. Je n'ai pas de lecteur de disquette, je n'ai donc pas pu
tester mais en creusant un peu tu pourra peut être trouver ton bonheur :

Private Declare Function SHFileOperation _
Lib "shell32.dll" _
Alias "SHFileOperationA" ( _
lpFileOp As SHFILEOPSTRUCT) As Long

Private Type SHFILEOPSTRUCT
hWnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Long
hNameMappings As Long
lpszProgressTitle As String
End Type

Private Sub SupprimerDossier()
Dim Retour As Long
Dim Op As SHFILEOPSTRUCT

With FileOper
.hWnd = Application.hWnd
.wFunc = &H3
.pFrom = "F:Nouveau dossier"
'.pFrom = "A:" ???
.fFlags = &H100 Or &H40
End With

Retour = SHFileOperation(Op)

If Retour <> 0 Then
MsgBox "Erreur lors de la suppression !", _
vbCritical, _
"ERREUR"
End If

End Sub

Hervé.

"X" <X@Y.Z> a écrit dans le message de news:
eSwfN%23INGHA.2696@TK2MSFTNGP14.phx.gbl...

Heu, merci, mai... non, je ne connais pas ce qu'il y a sur la
disquette, c'est pourquoi je voulais formater, mais a priori nul ne sait,
y compris moi, alors j'ai choisi d'effacer, les fichiers c'est facile,
mais les répertoires ce n'est pas facile, et encore moins les répertoires
pleins...

L'idéal pour moi serait une commande unique et transparente pour le
formatage...

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
------------------------------------------------------------------------------------
"Guy DETIENNE" <gd@NOSPAM.tchao.be> a écrit dans le message de news:
efEO6GHNGHA.4052@TK2MSFTNGP15.phx.gbl...

Salut ;O)

Mea Culpa pour RMDIR. En effet, il n'accepte pas que les répertoires ne
soient pas vides.
Toutefois, tu ne respectais pas la syntaxe...

Voici une fonction (à peaufiner) permettant de supprimer un répertoire et
tout son contenu (répertoires y compris) :

Exemple d'utilisation : Call KillFolderTree ("C:toto")

Public Sub KillFolderTree(sFolder As String)


Dim sCurrFilename As String
sCurrFilename = Dir(sFolder & "*.*", vbDirectory)
Do While sCurrFilename <> ""

If sCurrFilename <> "." And sCurrFilename <> ".." Then

If (GetAttr(sFolder & "" & sCurrFilename) And vbDirectory) >> vbDirectory Then
Call KillFolderTree(sFolder & "" & sCurrFilename)
sCurrFilename = Dir(sFolder & "*.*", vbDirectory)
Else
On Error Resume Next
Kill sFolder & "" & sCurrFilename
On Error Goto 0
sCurrFilename = Dir
End If
Else
sCurrFilename = Dir
End If
Loop
On Error Resume Next
RmDir sFolder
End Sub Guy

"X" <X@Y.Z> a écrit dans le message de
news:e2d1WCBNGHA.1716@TK2MSFTNGP10.phx.gbl...

Oui chef !

Mais ça marche pas mieux chef :

RmDir "/S /Q C:*.*"

Je ne peux pas nommer directement le répertoire car je ne sais pas ce

qu'il

y a sur la disquette, en plus ça ne marcherait pas en cas de répertoire

non

vide (DelTree), si ça existe encore, désolé chef :o)

Mais merci chef :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
--------------------------------------------------------------------------

----------

"Guy DETIENNE" <gd@NOSPAM.tchao.be> a écrit dans le message de news:
%23P6nTvANGHA.3264@TK2MSFTNGP11.phx.gbl...
> Salut ;O)
>
> Suis exactement la syntaxe que je t'ai donné et tu verras que ça

marche...

>
> Ton RmDir "a:*.*/s" ne rime à rien. Les paramètres sont
> incohérents.
>
> Guy
>
> "X" <X@Y.Z> a écrit dans le message de
> news:%23H24paANGHA.4052@TK2MSFTNGP15.phx.gbl...
>> Merci :o)
>> Mais... marche pas...
>>
>> RmDir "a:*.*/s"
>>
>> --
>> 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

-------------------------------------------------------------------------

-

> ----------
>> "Guy DETIENNE" <gd@NOSPAM.tchao.be> a écrit dans le message de news:
>> uDO4Q49MGHA.1424@TK2MSFTNGP12.phx.gbl...
>> > Salut ;O)
>> >
>> > Pour supprimer un répertoire et tous ses sous répertoires et
>> > fichiers
>> > en
>> > mode silencieux (sans demande de comfirmation) :
>> >
>> > Exemple :
>> > RMDIR /S /Q C:MonRepertoire
>> >
>> > Guy
>> >
>> > "X" <X@Y.Z> a écrit dans le message de
>> > news:%23BCUbd4MGHA.2040@TK2MSFTNGP14.phx.gbl...
>> >> Bonjour,
>> >>
>> >> Merci, ça marche en partie, j'ai encore amélioré, je fais:
>> >>
>> >> Call Shell("format.com a:/q/u/v:A")
>> >>
>> >> Le problème c'est que je ne sais pas comment passer ensuite le
>> >> <rc>
>> >> de
>> >> "go" et le <n> "non pas d'autre"... As-tu une idée ???
>> >>
>> >> Le problème pourrait se résoudre si à la rigueur je pouvais

monter

> au
>> >> 1er plan la fenêtre Dos, le temps des réponses, mais ça ferait pas
>> > terrible,
>> >> l'idéal c'est un automatisme complet, je contrôle juste la
>> >> confirmation
>> >> depuis VB et la gestion d'erreur (HS ou absent ou protégé
> physiquement),
>> >> puis j'envoie...
>> >>
>> >> En réalité, je n'ai pas besoin de formater, un "DelTree .com
>> >> a:"
>> >> me
>> >> suffirait, sauf que "DelTree" je crois que ce n'est plus reconnu,
>> >> je
>> > formate
>> >> pour effacer les répertoire non vides à défaut + les fichiers
>> >> (kill)...
>> >>
>> >> J'ai essayé avec un bach, mais Windows ne reconnaît pas
>> >> directement
>> >> l'appel, il faudrait que je le fasse en programmation depuis l'exe

(ça

>> > c'est
>> >> facile), puis que je le lance par le shell, pour ensuite
>> >> l'effacer,
> c'est
>> >> faisable aussi, je verrais s'il n'y a pas d'autres solutions, dans

ce

>> >> cas,
>> >> avec le batch on peut lui dir <rc>...<n>... et fermer...
>> >>
>> >> Bon, ben si tu sais comment conclure l'affaire ???
>> >>
>> >> 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
>> >> Pincipe d'utilisation des news Groups
>> >>
> http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
>>

------------------------------------------------------------------------

-

> -
>> > ----------
>> >> "Guy DETIENNE" <gd@NOSPAM.tchao.be> a écrit dans le message de
>> >> news:
>> >> ul0rNyzMGHA.516@TK2MSFTNGP15.phx.gbl...
>> >> > Salut ;O)
>> >> >
>> >> > Essaye ceci :
>> >> >
>> >> > Call Shell("format.com a:/q/u")
>> >> >
>> >> > Pour formatter via Windows par la boîte de dialogue standard en
>> > utilisant
>> >> > l'API SHFormatDrive , vois ici :
>> >> >
>> >> > http://www.freevbcode.com/ShowCode.Asp?ID71
>> >> >
>> >> > Guy
>> >> >
>> >> > "X" <X@Y.Z> a écrit dans le message de
>> >> > news:ugnJUPwMGHA.2300@TK2MSFTNGP15.phx.gbl...
>> >> >> Bonjour,
>> >> >>
>> >> >> Depuis exe VB, comment formater la disquette, soit la

commande:

>> >> >>
>> >> >> format a:/q/u
>> >> >>
>> >> >> ???
>> >> >>
>> >> >> 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
>> >> >> Pincipe d'utilisation des news Groups
>> >> >>
>> >

http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm

>> >>
>>

-----------------------------------------------------------------------

-

> -
>> > -
>> >> > ----------
>> >> >>
>> >> >>
>> >> >
>> >> >
>> >>
>> >>
>> >
>> >
>>
>>
>
>

Merci :o)

--
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
------------------------------------------------------------------------------------
"Hervé" <hmsilvePasDePub@wanadoo.fr> a écrit dans le message de news:
uZwYCLMNGHA.3728@tk2msftngp13.phx.gbl...

Bonsoir X,
Regarde de ce coté. Je n'ai pas de lecteur de disquette, je n'ai donc pas
pu tester mais en creusant un peu tu pourra peut être trouver ton bonheur
:

Private Declare Function SHFileOperation _
Lib "shell32.dll" _
Alias "SHFileOperationA" ( _
lpFileOp As SHFILEOPSTRUCT) As Long

Private Type SHFILEOPSTRUCT
hWnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Long
hNameMappings As Long
lpszProgressTitle As String
End Type

Private Sub SupprimerDossier()
Dim Retour As Long
Dim Op As SHFILEOPSTRUCT

With FileOper
.hWnd = Application.hWnd
.wFunc = &H3
.pFrom = "F:Nouveau dossier"
'.pFrom = "A:" ???
.fFlags = &H100 Or &H40
End With

Retour = SHFileOperation(Op)

If Retour <> 0 Then
MsgBox "Erreur lors de la suppression !", _
vbCritical, _
"ERREUR"
End If

End Sub

Hervé.

"X" <X@Y.Z> a écrit dans le message de news:
eSwfN%23INGHA.2696@TK2MSFTNGP14.phx.gbl...

Heu, merci, mai... non, je ne connais pas ce qu'il y a sur la
disquette, c'est pourquoi je voulais formater, mais a priori nul ne sait,
y compris moi, alors j'ai choisi d'effacer, les fichiers c'est facile,
mais les répertoires ce n'est pas facile, et encore moins les répertoires
pleins...

L'idéal pour moi serait une commande unique et transparente pour le
formatage...

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
------------------------------------------------------------------------------------
"Guy DETIENNE" <gd@NOSPAM.tchao.be> a écrit dans le message de news:
efEO6GHNGHA.4052@TK2MSFTNGP15.phx.gbl...

Salut ;O)

Mea Culpa pour RMDIR. En effet, il n'accepte pas que les répertoires ne
soient pas vides.
Toutefois, tu ne respectais pas la syntaxe...

Voici une fonction (à peaufiner) permettant de supprimer un répertoire
et
tout son contenu (répertoires y compris) :

Exemple d'utilisation : Call KillFolderTree ("C:toto")

Public Sub KillFolderTree(sFolder As String)


Dim sCurrFilename As String
sCurrFilename = Dir(sFolder & "*.*", vbDirectory)
Do While sCurrFilename <> ""

If sCurrFilename <> "." And sCurrFilename <> ".." Then

If (GetAttr(sFolder & "" & sCurrFilename) And vbDirectory) >>> vbDirectory Then
Call KillFolderTree(sFolder & "" & sCurrFilename)
sCurrFilename = Dir(sFolder & "*.*", vbDirectory)
Else
On Error Resume Next
Kill sFolder & "" & sCurrFilename
On Error Goto 0
sCurrFilename = Dir
End If
Else
sCurrFilename = Dir
End If
Loop
On Error Resume Next
RmDir sFolder
End Sub Guy

"X" <X@Y.Z> a écrit dans le message de
news:e2d1WCBNGHA.1716@TK2MSFTNGP10.phx.gbl...

Oui chef !

Mais ça marche pas mieux chef :

RmDir "/S /Q C:*.*"

Je ne peux pas nommer directement le répertoire car je ne sais pas ce

qu'il

y a sur la disquette, en plus ça ne marcherait pas en cas de répertoire

non

vide (DelTree), si ça existe encore, désolé chef :o)

Mais merci chef :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
--------------------------------------------------------------------------

----------

"Guy DETIENNE" <gd@NOSPAM.tchao.be> a écrit dans le message de news:
%23P6nTvANGHA.3264@TK2MSFTNGP11.phx.gbl...
> Salut ;O)
>
> Suis exactement la syntaxe que je t'ai donné et tu verras que ça

marche...

>
> Ton RmDir "a:*.*/s" ne rime à rien. Les paramètres sont
> incohérents.
>
> Guy
>
> "X" <X@Y.Z> a écrit dans le message de
> news:%23H24paANGHA.4052@TK2MSFTNGP15.phx.gbl...
>> Merci :o)
>> Mais... marche pas...
>>
>> RmDir "a:*.*/s"
>>
>> --
>> 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

-------------------------------------------------------------------------

-

> ----------
>> "Guy DETIENNE" <gd@NOSPAM.tchao.be> a écrit dans le message de news:
>> uDO4Q49MGHA.1424@TK2MSFTNGP12.phx.gbl...
>> > Salut ;O)
>> >
>> > Pour supprimer un répertoire et tous ses sous répertoires et
>> > fichiers
>> > en
>> > mode silencieux (sans demande de comfirmation) :
>> >
>> > Exemple :
>> > RMDIR /S /Q C:MonRepertoire
>> >
>> > Guy
>> >
>> > "X" <X@Y.Z> a écrit dans le message de
>> > news:%23BCUbd4MGHA.2040@TK2MSFTNGP14.phx.gbl...
>> >> Bonjour,
>> >>
>> >> Merci, ça marche en partie, j'ai encore amélioré, je fais:
>> >>
>> >> Call Shell("format.com a:/q/u/v:A")
>> >>
>> >> Le problème c'est que je ne sais pas comment passer ensuite
>> >> le
>> >> <rc>
>> >> de
>> >> "go" et le <n> "non pas d'autre"... As-tu une idée ???
>> >>
>> >> Le problème pourrait se résoudre si à la rigueur je pouvais

monter

> au
>> >> 1er plan la fenêtre Dos, le temps des réponses, mais ça ferait
>> >> pas
>> > terrible,
>> >> l'idéal c'est un automatisme complet, je contrôle juste la
>> >> confirmation
>> >> depuis VB et la gestion d'erreur (HS ou absent ou protégé
> physiquement),
>> >> puis j'envoie...
>> >>
>> >> En réalité, je n'ai pas besoin de formater, un "DelTree .com
>> >> a:"
>> >> me
>> >> suffirait, sauf que "DelTree" je crois que ce n'est plus reconnu,
>> >> je
>> > formate
>> >> pour effacer les répertoire non vides à défaut + les fichiers
>> >> (kill)...
>> >>
>> >> J'ai essayé avec un bach, mais Windows ne reconnaît pas
>> >> directement
>> >> l'appel, il faudrait que je le fasse en programmation depuis
>> >> l'exe

(ça

>> > c'est
>> >> facile), puis que je le lance par le shell, pour ensuite
>> >> l'effacer,
> c'est
>> >> faisable aussi, je verrais s'il n'y a pas d'autres solutions,
>> >> dans

ce

>> >> cas,
>> >> avec le batch on peut lui dir <rc>...<n>... et fermer...
>> >>
>> >> Bon, ben si tu sais comment conclure l'affaire ???
>> >>
>> >> 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
>> >> Pincipe d'utilisation des news Groups
>> >>
> http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
>>

------------------------------------------------------------------------

-

> -
>> > ----------
>> >> "Guy DETIENNE" <gd@NOSPAM.tchao.be> a écrit dans le message de
>> >> news:
>> >> ul0rNyzMGHA.516@TK2MSFTNGP15.phx.gbl...
>> >> > Salut ;O)
>> >> >
>> >> > Essaye ceci :
>> >> >
>> >> > Call Shell("format.com a:/q/u")
>> >> >
>> >> > Pour formatter via Windows par la boîte de dialogue standard en
>> > utilisant
>> >> > l'API SHFormatDrive , vois ici :
>> >> >
>> >> > http://www.freevbcode.com/ShowCode.Asp?ID71
>> >> >
>> >> > Guy
>> >> >
>> >> > "X" <X@Y.Z> a écrit dans le message de
>> >> > news:ugnJUPwMGHA.2300@TK2MSFTNGP15.phx.gbl...
>> >> >> Bonjour,
>> >> >>
>> >> >> Depuis exe VB, comment formater la disquette, soit la

commande:

>> >> >>
>> >> >> format a:/q/u
>> >> >>
>> >> >> ???
>> >> >>
>> >> >> 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
>> >> >> Pincipe d'utilisation des news Groups
>> >> >>
>> >

http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm

>> >>
>>

-----------------------------------------------------------------------

-

> -
>> > -
>> >> > ----------
>> >> >>
>> >> >>
>> >> >
>> >> >
>> >>
>> >>
>> >
>> >
>>
>>
>
>