Bonjour à tous
Mon prob aujourd'hui (merci aux animateurs de ec forum, toujours efficaces...)
c'est
savoiur s(il y a un périphérique sur A
si c'est qq chose sur quoi on peut sauvegarder
et si c'est "pret"
en particulier A est il un lecteur de disquette, un zip...
la disquette est elle en place ...
Merci à vous tous et... bon WE
André
Bonjour à tous
Mon prob aujourd'hui (merci aux animateurs de ec forum, toujours efficaces...)
c'est
savoiur s(il y a un périphérique sur A
si c'est qq chose sur quoi on peut sauvegarder
et si c'est "pret"
en particulier A est il un lecteur de disquette, un zip...
la disquette est elle en place ...
Merci à vous tous et... bon WE
André
Bonjour à tous
Mon prob aujourd'hui (merci aux animateurs de ec forum, toujours efficaces...)
c'est
savoiur s(il y a un périphérique sur A
si c'est qq chose sur quoi on peut sauvegarder
et si c'est "pret"
en particulier A est il un lecteur de disquette, un zip...
la disquette est elle en place ...
Merci à vous tous et... bon WE
André
Bonjour André
Tu peux essayer quelque chose comme çà:
Public Sub Test()
Dim bln As Boolean
bln = Floppy_Pret()
End Sub
Public Function Floppy_Pret() As Boolean
Dim fs, d, s, e
On Error GoTo Fin
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName("A:"))
e = d.freespace
Floppy_Pret = True
Exit Function
Fin:
Floppy_Pret = False
End Function
@+
Yvan
"AndréSch" a écrit dans le message de news:Bonjour à tous
Mon prob aujourd'hui (merci aux animateurs de ec forum, toujours
efficaces...) c'est
savoiur s(il y a un périphérique sur A
si c'est qq chose sur quoi on peut sauvegarder
et si c'est "pret"
en particulier A est il un lecteur de disquette, un zip...
la disquette est elle en place ...
Merci à vous tous et... bon WE
André
Bonjour André
Tu peux essayer quelque chose comme çà:
Public Sub Test()
Dim bln As Boolean
bln = Floppy_Pret()
End Sub
Public Function Floppy_Pret() As Boolean
Dim fs, d, s, e
On Error GoTo Fin
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName("A:"))
e = d.freespace
Floppy_Pret = True
Exit Function
Fin:
Floppy_Pret = False
End Function
@+
Yvan
"AndréSch" <cephaspierre@aol.com> a écrit dans le message de news:
eWiID3ouFHA.1252@TK2MSFTNGP09.phx.gbl...
Bonjour à tous
Mon prob aujourd'hui (merci aux animateurs de ec forum, toujours
efficaces...) c'est
savoiur s(il y a un périphérique sur A
si c'est qq chose sur quoi on peut sauvegarder
et si c'est "pret"
en particulier A est il un lecteur de disquette, un zip...
la disquette est elle en place ...
Merci à vous tous et... bon WE
André
Bonjour André
Tu peux essayer quelque chose comme çà:
Public Sub Test()
Dim bln As Boolean
bln = Floppy_Pret()
End Sub
Public Function Floppy_Pret() As Boolean
Dim fs, d, s, e
On Error GoTo Fin
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName("A:"))
e = d.freespace
Floppy_Pret = True
Exit Function
Fin:
Floppy_Pret = False
End Function
@+
Yvan
"AndréSch" a écrit dans le message de news:Bonjour à tous
Mon prob aujourd'hui (merci aux animateurs de ec forum, toujours
efficaces...) c'est
savoiur s(il y a un périphérique sur A
si c'est qq chose sur quoi on peut sauvegarder
et si c'est "pret"
en particulier A est il un lecteur de disquette, un zip...
la disquette est elle en place ...
Merci à vous tous et... bon WE
André
Salut Yvan
ça devrait gazer... merci
Si c'est un zip qui est sur A, ça marcha aussi ?
André
"Yvan" <yvan.echange(enlever ceci)@free.fr> a écrit dans le message de news:Bonjour André
Tu peux essayer quelque chose comme çà:
Public Sub Test()
Dim bln As Boolean
bln = Floppy_Pret()
End Sub
Public Function Floppy_Pret() As Boolean
Dim fs, d, s, e
On Error GoTo Fin
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName("A:"))
e = d.freespace
Floppy_Pret = True
Exit Function
Fin:
Floppy_Pret = False
End Function
@+
Yvan
"AndréSch" a écrit dans le message de news:Bonjour à tous
Mon prob aujourd'hui (merci aux animateurs de ec forum, toujours
efficaces...) c'est
savoiur s(il y a un périphérique sur A
si c'est qq chose sur quoi on peut sauvegarder
et si c'est "pret"
en particulier A est il un lecteur de disquette, un zip...
la disquette est elle en place ...
Merci à vous tous et... bon WE
André
Salut Yvan
ça devrait gazer... merci
Si c'est un zip qui est sur A, ça marcha aussi ?
André
"Yvan" <yvan.echange(enlever ceci)@free.fr> a écrit dans le message de news:
OnThuLpuFHA.3896@TK2MSFTNGP15.phx.gbl...
Bonjour André
Tu peux essayer quelque chose comme çà:
Public Sub Test()
Dim bln As Boolean
bln = Floppy_Pret()
End Sub
Public Function Floppy_Pret() As Boolean
Dim fs, d, s, e
On Error GoTo Fin
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName("A:"))
e = d.freespace
Floppy_Pret = True
Exit Function
Fin:
Floppy_Pret = False
End Function
@+
Yvan
"AndréSch" <cephaspierre@aol.com> a écrit dans le message de news:
eWiID3ouFHA.1252@TK2MSFTNGP09.phx.gbl...
Bonjour à tous
Mon prob aujourd'hui (merci aux animateurs de ec forum, toujours
efficaces...) c'est
savoiur s(il y a un périphérique sur A
si c'est qq chose sur quoi on peut sauvegarder
et si c'est "pret"
en particulier A est il un lecteur de disquette, un zip...
la disquette est elle en place ...
Merci à vous tous et... bon WE
André
Salut Yvan
ça devrait gazer... merci
Si c'est un zip qui est sur A, ça marcha aussi ?
André
"Yvan" <yvan.echange(enlever ceci)@free.fr> a écrit dans le message de news:Bonjour André
Tu peux essayer quelque chose comme çà:
Public Sub Test()
Dim bln As Boolean
bln = Floppy_Pret()
End Sub
Public Function Floppy_Pret() As Boolean
Dim fs, d, s, e
On Error GoTo Fin
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName("A:"))
e = d.freespace
Floppy_Pret = True
Exit Function
Fin:
Floppy_Pret = False
End Function
@+
Yvan
"AndréSch" a écrit dans le message de news:Bonjour à tous
Mon prob aujourd'hui (merci aux animateurs de ec forum, toujours
efficaces...) c'est
savoiur s(il y a un périphérique sur A
si c'est qq chose sur quoi on peut sauvegarder
et si c'est "pret"
en particulier A est il un lecteur de disquette, un zip...
la disquette est elle en place ...
Merci à vous tous et... bon WE
André
Oui, André. Un zip, un graveur,...
En fait, l'objet Drive possède les propriétés DriveType, AvailableSpace,
IsReady, DriveLetter, etc... qui te donneront bon nombre de renseignements
sur tes lecteurs.
L'aide d'Excel est assez exhaustive sur le sujet, et donne une foule de
petits exemples intéressants (dont le code que je t'ai proposé est bien
entendu largement inspiré). Rechercher Drive à partir de l'index. Regarder
plus particulièrement "drive, objet"
@+
Yvan
"AndréSch" a écrit dans le message de news:Salut Yvan
ça devrait gazer... merci
Si c'est un zip qui est sur A, ça marcha aussi ?
André
"Yvan" <yvan.echange(enlever ceci)@free.fr> a écrit dans le message de
news:Bonjour André
Tu peux essayer quelque chose comme çà:
Public Sub Test()
Dim bln As Boolean
bln = Floppy_Pret()
End Sub
Public Function Floppy_Pret() As Boolean
Dim fs, d, s, e
On Error GoTo Fin
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName("A:"))
e = d.freespace
Floppy_Pret = True
Exit Function
Fin:
Floppy_Pret = False
End Function
@+
Yvan
"AndréSch" a écrit dans le message de news:Bonjour à tous
Mon prob aujourd'hui (merci aux animateurs de ec forum, toujours
efficaces...) c'est
savoiur s(il y a un périphérique sur A
si c'est qq chose sur quoi on peut sauvegarder
et si c'est "pret"
en particulier A est il un lecteur de disquette, un zip...
la disquette est elle en place ...
Merci à vous tous et... bon WE
André
Oui, André. Un zip, un graveur,...
En fait, l'objet Drive possède les propriétés DriveType, AvailableSpace,
IsReady, DriveLetter, etc... qui te donneront bon nombre de renseignements
sur tes lecteurs.
L'aide d'Excel est assez exhaustive sur le sujet, et donne une foule de
petits exemples intéressants (dont le code que je t'ai proposé est bien
entendu largement inspiré). Rechercher Drive à partir de l'index. Regarder
plus particulièrement "drive, objet"
@+
Yvan
"AndréSch" <cephaspierre@aol.com> a écrit dans le message de news:
eU45PXpuFHA.4032@TK2MSFTNGP15.phx.gbl...
Salut Yvan
ça devrait gazer... merci
Si c'est un zip qui est sur A, ça marcha aussi ?
André
"Yvan" <yvan.echange(enlever ceci)@free.fr> a écrit dans le message de
news: OnThuLpuFHA.3896@TK2MSFTNGP15.phx.gbl...
Bonjour André
Tu peux essayer quelque chose comme çà:
Public Sub Test()
Dim bln As Boolean
bln = Floppy_Pret()
End Sub
Public Function Floppy_Pret() As Boolean
Dim fs, d, s, e
On Error GoTo Fin
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName("A:"))
e = d.freespace
Floppy_Pret = True
Exit Function
Fin:
Floppy_Pret = False
End Function
@+
Yvan
"AndréSch" <cephaspierre@aol.com> a écrit dans le message de news:
eWiID3ouFHA.1252@TK2MSFTNGP09.phx.gbl...
Bonjour à tous
Mon prob aujourd'hui (merci aux animateurs de ec forum, toujours
efficaces...) c'est
savoiur s(il y a un périphérique sur A
si c'est qq chose sur quoi on peut sauvegarder
et si c'est "pret"
en particulier A est il un lecteur de disquette, un zip...
la disquette est elle en place ...
Merci à vous tous et... bon WE
André
Oui, André. Un zip, un graveur,...
En fait, l'objet Drive possède les propriétés DriveType, AvailableSpace,
IsReady, DriveLetter, etc... qui te donneront bon nombre de renseignements
sur tes lecteurs.
L'aide d'Excel est assez exhaustive sur le sujet, et donne une foule de
petits exemples intéressants (dont le code que je t'ai proposé est bien
entendu largement inspiré). Rechercher Drive à partir de l'index. Regarder
plus particulièrement "drive, objet"
@+
Yvan
"AndréSch" a écrit dans le message de news:Salut Yvan
ça devrait gazer... merci
Si c'est un zip qui est sur A, ça marcha aussi ?
André
"Yvan" <yvan.echange(enlever ceci)@free.fr> a écrit dans le message de
news:Bonjour André
Tu peux essayer quelque chose comme çà:
Public Sub Test()
Dim bln As Boolean
bln = Floppy_Pret()
End Sub
Public Function Floppy_Pret() As Boolean
Dim fs, d, s, e
On Error GoTo Fin
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName("A:"))
e = d.freespace
Floppy_Pret = True
Exit Function
Fin:
Floppy_Pret = False
End Function
@+
Yvan
"AndréSch" a écrit dans le message de news:Bonjour à tous
Mon prob aujourd'hui (merci aux animateurs de ec forum, toujours
efficaces...) c'est
savoiur s(il y a un périphérique sur A
si c'est qq chose sur quoi on peut sauvegarder
et si c'est "pret"
en particulier A est il un lecteur de disquette, un zip...
la disquette est elle en place ...
Merci à vous tous et... bon WE
André
Oui, André. Un zip, un graveur,...
En fait, l'objet Drive possède les propriétés DriveType, AvailableSpace,
IsReady, DriveLetter, etc... qui te donneront bon nombre de renseignements
sur tes lecteurs.
L'aide d'Excel est assez exhaustive sur le sujet, et donne une foule de
petits exemples intéressants (dont le code que je t'ai proposé est bien
entendu largement inspiré). Rechercher Drive à partir de l'index. Regarder
plus particulièrement "drive, objet"
@+
Yvan
"AndréSch" a écrit dans le message de news:Salut Yvan
ça devrait gazer... merci
Si c'est un zip qui est sur A, ça marcha aussi ?
André
"Yvan" <yvan.echange(enlever ceci)@free.fr> a écrit dans le message de
news:Bonjour André
Tu peux essayer quelque chose comme çà:
Public Sub Test()
Dim bln As Boolean
bln = Floppy_Pret()
End Sub
Public Function Floppy_Pret() As Boolean
Dim fs, d, s, e
On Error GoTo Fin
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName("A:"))
e = d.freespace
Floppy_Pret = True
Exit Function
Fin:
Floppy_Pret = False
End Function
@+
Yvan
"AndréSch" a écrit dans le message de news:Bonjour à tous
Mon prob aujourd'hui (merci aux animateurs de ec forum, toujours
efficaces...) c'est
savoiur s(il y a un périphérique sur A
si c'est qq chose sur quoi on peut sauvegarder
et si c'est "pret"
en particulier A est il un lecteur de disquette, un zip...
la disquette est elle en place ...
Merci à vous tous et... bon WE
André
Oui, André. Un zip, un graveur,...
En fait, l'objet Drive possède les propriétés DriveType, AvailableSpace,
IsReady, DriveLetter, etc... qui te donneront bon nombre de renseignements
sur tes lecteurs.
L'aide d'Excel est assez exhaustive sur le sujet, et donne une foule de
petits exemples intéressants (dont le code que je t'ai proposé est bien
entendu largement inspiré). Rechercher Drive à partir de l'index. Regarder
plus particulièrement "drive, objet"
@+
Yvan
"AndréSch" <cephaspierre@aol.com> a écrit dans le message de news:
eU45PXpuFHA.4032@TK2MSFTNGP15.phx.gbl...
Salut Yvan
ça devrait gazer... merci
Si c'est un zip qui est sur A, ça marcha aussi ?
André
"Yvan" <yvan.echange(enlever ceci)@free.fr> a écrit dans le message de
news: OnThuLpuFHA.3896@TK2MSFTNGP15.phx.gbl...
Bonjour André
Tu peux essayer quelque chose comme çà:
Public Sub Test()
Dim bln As Boolean
bln = Floppy_Pret()
End Sub
Public Function Floppy_Pret() As Boolean
Dim fs, d, s, e
On Error GoTo Fin
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName("A:"))
e = d.freespace
Floppy_Pret = True
Exit Function
Fin:
Floppy_Pret = False
End Function
@+
Yvan
"AndréSch" <cephaspierre@aol.com> a écrit dans le message de news:
eWiID3ouFHA.1252@TK2MSFTNGP09.phx.gbl...
Bonjour à tous
Mon prob aujourd'hui (merci aux animateurs de ec forum, toujours
efficaces...) c'est
savoiur s(il y a un périphérique sur A
si c'est qq chose sur quoi on peut sauvegarder
et si c'est "pret"
en particulier A est il un lecteur de disquette, un zip...
la disquette est elle en place ...
Merci à vous tous et... bon WE
André
Oui, André. Un zip, un graveur,...
En fait, l'objet Drive possède les propriétés DriveType, AvailableSpace,
IsReady, DriveLetter, etc... qui te donneront bon nombre de renseignements
sur tes lecteurs.
L'aide d'Excel est assez exhaustive sur le sujet, et donne une foule de
petits exemples intéressants (dont le code que je t'ai proposé est bien
entendu largement inspiré). Rechercher Drive à partir de l'index. Regarder
plus particulièrement "drive, objet"
@+
Yvan
"AndréSch" a écrit dans le message de news:Salut Yvan
ça devrait gazer... merci
Si c'est un zip qui est sur A, ça marcha aussi ?
André
"Yvan" <yvan.echange(enlever ceci)@free.fr> a écrit dans le message de
news:Bonjour André
Tu peux essayer quelque chose comme çà:
Public Sub Test()
Dim bln As Boolean
bln = Floppy_Pret()
End Sub
Public Function Floppy_Pret() As Boolean
Dim fs, d, s, e
On Error GoTo Fin
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName("A:"))
e = d.freespace
Floppy_Pret = True
Exit Function
Fin:
Floppy_Pret = False
End Function
@+
Yvan
"AndréSch" a écrit dans le message de news:Bonjour à tous
Mon prob aujourd'hui (merci aux animateurs de ec forum, toujours
efficaces...) c'est
savoiur s(il y a un périphérique sur A
si c'est qq chose sur quoi on peut sauvegarder
et si c'est "pret"
en particulier A est il un lecteur de disquette, un zip...
la disquette est elle en place ...
Merci à vous tous et... bon WE
André
Merci Yvan, ça marche au poil mais je ne trouve pas les explication dont
tu
me parles (excel 97)
faut il rajouter un complement ? ou une référence ?
salut
André
"Yvan" <yvan.echange(enlever ceci)@free.fr> a écrit dans le message de
news:
Oui, André. Un zip, un graveur,...
En fait, l'objet Drive possède les propriétés DriveType, AvailableSpace,
IsReady, DriveLetter, etc... qui te donneront bon nombre de
renseignements
sur tes lecteurs.
L'aide d'Excel est assez exhaustive sur le sujet, et donne une foule de
petits exemples intéressants (dont le code que je t'ai proposé est bien
entendu largement inspiré). Rechercher Drive à partir de l'index.
Regarder
plus particulièrement "drive, objet"
@+
Yvan
"AndréSch" a écrit dans le message de news:Salut Yvan
ça devrait gazer... merci
Si c'est un zip qui est sur A, ça marcha aussi ?
André
"Yvan" <yvan.echange(enlever ceci)@free.fr> a écrit dans le message de
news:Bonjour André
Tu peux essayer quelque chose comme çà:
Public Sub Test()
Dim bln As Boolean
bln = Floppy_Pret()
End Sub
Public Function Floppy_Pret() As Boolean
Dim fs, d, s, e
On Error GoTo Fin
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName("A:"))
e = d.freespace
Floppy_Pret = True
Exit Function
Fin:
Floppy_Pret = False
End Function
@+
Yvan
"AndréSch" a écrit dans le message de news:Bonjour à tous
Mon prob aujourd'hui (merci aux animateurs de ec forum, toujours
efficaces...) c'est
savoiur s(il y a un périphérique sur A
si c'est qq chose sur quoi on peut sauvegarder
et si c'est "pret"
en particulier A est il un lecteur de disquette, un zip...
la disquette est elle en place ...
Merci à vous tous et... bon WE
André
Merci Yvan, ça marche au poil mais je ne trouve pas les explication dont
tu
me parles (excel 97)
faut il rajouter un complement ? ou une référence ?
salut
André
"Yvan" <yvan.echange(enlever ceci)@free.fr> a écrit dans le message de
news:
eapENcpuFHA.1572@TK2MSFTNGP10.phx.gbl...
Oui, André. Un zip, un graveur,...
En fait, l'objet Drive possède les propriétés DriveType, AvailableSpace,
IsReady, DriveLetter, etc... qui te donneront bon nombre de
renseignements
sur tes lecteurs.
L'aide d'Excel est assez exhaustive sur le sujet, et donne une foule de
petits exemples intéressants (dont le code que je t'ai proposé est bien
entendu largement inspiré). Rechercher Drive à partir de l'index.
Regarder
plus particulièrement "drive, objet"
@+
Yvan
"AndréSch" <cephaspierre@aol.com> a écrit dans le message de news:
eU45PXpuFHA.4032@TK2MSFTNGP15.phx.gbl...
Salut Yvan
ça devrait gazer... merci
Si c'est un zip qui est sur A, ça marcha aussi ?
André
"Yvan" <yvan.echange(enlever ceci)@free.fr> a écrit dans le message de
news: OnThuLpuFHA.3896@TK2MSFTNGP15.phx.gbl...
Bonjour André
Tu peux essayer quelque chose comme çà:
Public Sub Test()
Dim bln As Boolean
bln = Floppy_Pret()
End Sub
Public Function Floppy_Pret() As Boolean
Dim fs, d, s, e
On Error GoTo Fin
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName("A:"))
e = d.freespace
Floppy_Pret = True
Exit Function
Fin:
Floppy_Pret = False
End Function
@+
Yvan
"AndréSch" <cephaspierre@aol.com> a écrit dans le message de news:
eWiID3ouFHA.1252@TK2MSFTNGP09.phx.gbl...
Bonjour à tous
Mon prob aujourd'hui (merci aux animateurs de ec forum, toujours
efficaces...) c'est
savoiur s(il y a un périphérique sur A
si c'est qq chose sur quoi on peut sauvegarder
et si c'est "pret"
en particulier A est il un lecteur de disquette, un zip...
la disquette est elle en place ...
Merci à vous tous et... bon WE
André
Merci Yvan, ça marche au poil mais je ne trouve pas les explication dont
tu
me parles (excel 97)
faut il rajouter un complement ? ou une référence ?
salut
André
"Yvan" <yvan.echange(enlever ceci)@free.fr> a écrit dans le message de
news:
Oui, André. Un zip, un graveur,...
En fait, l'objet Drive possède les propriétés DriveType, AvailableSpace,
IsReady, DriveLetter, etc... qui te donneront bon nombre de
renseignements
sur tes lecteurs.
L'aide d'Excel est assez exhaustive sur le sujet, et donne une foule de
petits exemples intéressants (dont le code que je t'ai proposé est bien
entendu largement inspiré). Rechercher Drive à partir de l'index.
Regarder
plus particulièrement "drive, objet"
@+
Yvan
"AndréSch" a écrit dans le message de news:Salut Yvan
ça devrait gazer... merci
Si c'est un zip qui est sur A, ça marcha aussi ?
André
"Yvan" <yvan.echange(enlever ceci)@free.fr> a écrit dans le message de
news:Bonjour André
Tu peux essayer quelque chose comme çà:
Public Sub Test()
Dim bln As Boolean
bln = Floppy_Pret()
End Sub
Public Function Floppy_Pret() As Boolean
Dim fs, d, s, e
On Error GoTo Fin
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName("A:"))
e = d.freespace
Floppy_Pret = True
Exit Function
Fin:
Floppy_Pret = False
End Function
@+
Yvan
"AndréSch" a écrit dans le message de news:Bonjour à tous
Mon prob aujourd'hui (merci aux animateurs de ec forum, toujours
efficaces...) c'est
savoiur s(il y a un périphérique sur A
si c'est qq chose sur quoi on peut sauvegarder
et si c'est "pret"
en particulier A est il un lecteur de disquette, un zip...
la disquette est elle en place ...
Merci à vous tous et... bon WE
André
Bonjour,
En fait, les objets Drive, Folder File et quelques autres sont liés aux
bibliothèques "Windows Scripting" (Microsoft Scripting Runtime, ou quelque
chose du genre dans Outils-Références). Effectivement, si mes souvenirs
sont
exacts, l'aide sur l'environnement des scripts n'avait pas été intégrée à
celle d'Office 97.
Par contre, elle peut être téléchargée à quelque part en partant de là:
http://msdn.microsoft.com/library/default.asp?url=/downloads/list/webdev.asp
"AndréSch" a écrit dans le message de
news:Merci Yvan, ça marche au poil mais je ne trouve pas les explication dont
tume parles (excel 97)
faut il rajouter un complement ? ou une référence ?
salut
André
"Yvan" <yvan.echange(enlever ceci)@free.fr> a écrit dans le message de
news:Oui, André. Un zip, un graveur,...
En fait, l'objet Drive possède les propriétés DriveType,
AvailableSpace,
IsReady, DriveLetter, etc... qui te donneront bon nombre de
renseignementssur tes lecteurs.
L'aide d'Excel est assez exhaustive sur le sujet, et donne une foule de
petits exemples intéressants (dont le code que je t'ai proposé est bien
entendu largement inspiré). Rechercher Drive à partir de l'index.
Regarderplus particulièrement "drive, objet"
@+
Yvan
"AndréSch" a écrit dans le message de news:Salut Yvan
ça devrait gazer... merci
Si c'est un zip qui est sur A, ça marcha aussi ?
André
"Yvan" <yvan.echange(enlever ceci)@free.fr> a écrit dans le message de
news:Bonjour André
Tu peux essayer quelque chose comme çà:
Public Sub Test()
Dim bln As Boolean
bln = Floppy_Pret()
End Sub
Public Function Floppy_Pret() As Boolean
Dim fs, d, s, e
On Error GoTo Fin
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName("A:"))
e = d.freespace
Floppy_Pret = True
Exit Function
Fin:
Floppy_Pret = False
End Function
@+
Yvan
"AndréSch" a écrit dans le message de news:Bonjour à tous
Mon prob aujourd'hui (merci aux animateurs de ec forum, toujours
efficaces...) c'est
savoiur s(il y a un périphérique sur A
si c'est qq chose sur quoi on peut sauvegarder
et si c'est "pret"
en particulier A est il un lecteur de disquette, un zip...
la disquette est elle en place ...
Merci à vous tous et... bon WE
André
Bonjour,
En fait, les objets Drive, Folder File et quelques autres sont liés aux
bibliothèques "Windows Scripting" (Microsoft Scripting Runtime, ou quelque
chose du genre dans Outils-Références). Effectivement, si mes souvenirs
sont
exacts, l'aide sur l'environnement des scripts n'avait pas été intégrée à
celle d'Office 97.
Par contre, elle peut être téléchargée à quelque part en partant de là:
http://msdn.microsoft.com/library/default.asp?url=/downloads/list/webdev.asp
"AndréSch" <cephaspierre@aol.com> a écrit dans le message de
news:utzLrNuuFHA.1560@TK2MSFTNGP09.phx.gbl...
Merci Yvan, ça marche au poil mais je ne trouve pas les explication dont
tu
me parles (excel 97)
faut il rajouter un complement ? ou une référence ?
salut
André
"Yvan" <yvan.echange(enlever ceci)@free.fr> a écrit dans le message de
news:
eapENcpuFHA.1572@TK2MSFTNGP10.phx.gbl...
Oui, André. Un zip, un graveur,...
En fait, l'objet Drive possède les propriétés DriveType,
AvailableSpace,
IsReady, DriveLetter, etc... qui te donneront bon nombre de
renseignements
sur tes lecteurs.
L'aide d'Excel est assez exhaustive sur le sujet, et donne une foule de
petits exemples intéressants (dont le code que je t'ai proposé est bien
entendu largement inspiré). Rechercher Drive à partir de l'index.
Regarder
plus particulièrement "drive, objet"
@+
Yvan
"AndréSch" <cephaspierre@aol.com> a écrit dans le message de news:
eU45PXpuFHA.4032@TK2MSFTNGP15.phx.gbl...
Salut Yvan
ça devrait gazer... merci
Si c'est un zip qui est sur A, ça marcha aussi ?
André
"Yvan" <yvan.echange(enlever ceci)@free.fr> a écrit dans le message de
news: OnThuLpuFHA.3896@TK2MSFTNGP15.phx.gbl...
Bonjour André
Tu peux essayer quelque chose comme çà:
Public Sub Test()
Dim bln As Boolean
bln = Floppy_Pret()
End Sub
Public Function Floppy_Pret() As Boolean
Dim fs, d, s, e
On Error GoTo Fin
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName("A:"))
e = d.freespace
Floppy_Pret = True
Exit Function
Fin:
Floppy_Pret = False
End Function
@+
Yvan
"AndréSch" <cephaspierre@aol.com> a écrit dans le message de news:
eWiID3ouFHA.1252@TK2MSFTNGP09.phx.gbl...
Bonjour à tous
Mon prob aujourd'hui (merci aux animateurs de ec forum, toujours
efficaces...) c'est
savoiur s(il y a un périphérique sur A
si c'est qq chose sur quoi on peut sauvegarder
et si c'est "pret"
en particulier A est il un lecteur de disquette, un zip...
la disquette est elle en place ...
Merci à vous tous et... bon WE
André
Bonjour,
En fait, les objets Drive, Folder File et quelques autres sont liés aux
bibliothèques "Windows Scripting" (Microsoft Scripting Runtime, ou quelque
chose du genre dans Outils-Références). Effectivement, si mes souvenirs
sont
exacts, l'aide sur l'environnement des scripts n'avait pas été intégrée à
celle d'Office 97.
Par contre, elle peut être téléchargée à quelque part en partant de là:
http://msdn.microsoft.com/library/default.asp?url=/downloads/list/webdev.asp
"AndréSch" a écrit dans le message de
news:Merci Yvan, ça marche au poil mais je ne trouve pas les explication dont
tume parles (excel 97)
faut il rajouter un complement ? ou une référence ?
salut
André
"Yvan" <yvan.echange(enlever ceci)@free.fr> a écrit dans le message de
news:Oui, André. Un zip, un graveur,...
En fait, l'objet Drive possède les propriétés DriveType,
AvailableSpace,
IsReady, DriveLetter, etc... qui te donneront bon nombre de
renseignementssur tes lecteurs.
L'aide d'Excel est assez exhaustive sur le sujet, et donne une foule de
petits exemples intéressants (dont le code que je t'ai proposé est bien
entendu largement inspiré). Rechercher Drive à partir de l'index.
Regarderplus particulièrement "drive, objet"
@+
Yvan
"AndréSch" a écrit dans le message de news:Salut Yvan
ça devrait gazer... merci
Si c'est un zip qui est sur A, ça marcha aussi ?
André
"Yvan" <yvan.echange(enlever ceci)@free.fr> a écrit dans le message de
news:Bonjour André
Tu peux essayer quelque chose comme çà:
Public Sub Test()
Dim bln As Boolean
bln = Floppy_Pret()
End Sub
Public Function Floppy_Pret() As Boolean
Dim fs, d, s, e
On Error GoTo Fin
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName("A:"))
e = d.freespace
Floppy_Pret = True
Exit Function
Fin:
Floppy_Pret = False
End Function
@+
Yvan
"AndréSch" a écrit dans le message de news:Bonjour à tous
Mon prob aujourd'hui (merci aux animateurs de ec forum, toujours
efficaces...) c'est
savoiur s(il y a un périphérique sur A
si c'est qq chose sur quoi on peut sauvegarder
et si c'est "pret"
en particulier A est il un lecteur de disquette, un zip...
la disquette est elle en place ...
Merci à vous tous et... bon WE
André
