OVH Cloud OVH Cloud

Accés au bureau en 98 et XP

5 réponses
Avatar
Pascale
Bonjour,

Je souhaite diffuser une application qui copie des donn=E9es=20
sur le bureau indiff=E9rement sur 98 et XP. Les noms des=20
dossiers d'acc=E9s au bureau =E9tant diff=E9rents comment faire ?

Merci pour toute r=E9ponse=20

Pascale

5 réponses

Avatar
tictok
Salut Pascale (tu es sur le bon newsgroup ? Il en existe un rien que pour le
VB).
Si tu detectais l'OS (par l'API Windows je crois), tu pourrais attribuer un
chemin specifique a chaque OS.
If os=Win98 Then Chemin=C:...
Else if os=WinXP Then Chemin=C:Documents...
Else MsgBox ("OS different de 98 et XP !")
Par contre, je ne sais pas s'il faut mettre les noms de dossiers en style
MS-DOS (8 caracteres).

"Pascale" escreveu na mensagem
news:c89201c438d0$19072c30$
Bonjour,

Je souhaite diffuser une application qui copie des données
sur le bureau indifférement sur 98 et XP. Les noms des
dossiers d'accés au bureau étant différents comment faire ?

Merci pour toute réponse

Pascale
Avatar
Merci pour cette réponse qui me donne les pistes pour
aller plus loin !! c'est super de me répondre aussi vite.
-----Message d'origine-----
Salut Pascale (tu es sur le bon newsgroup ? Il en existe
un rien que pour le

VB).
Si tu detectais l'OS (par l'API Windows je crois), tu
pourrais attribuer un

chemin specifique a chaque OS.
If os=Win98 Then Chemin=C:...
Else if os=WinXP Then Chemin=C:Documents...
Else MsgBox ("OS different de 98 et XP !")
Par contre, je ne sais pas s'il faut mettre les noms de
dossiers en style

MS-DOS (8 caracteres).

"Pascale" escreveu
na mensagem

news:c89201c438d0$19072c30$
Bonjour,

Je souhaite diffuser une application qui copie des données
sur le bureau indifférement sur 98 et XP. Les noms des
dossiers d'accés au bureau étant différents comment
faire ?


Merci pour toute réponse

Pascale


.



Avatar
tictok
De rien, j'attends moi meme des reponses a mes questions.
Donc j'en profite pour aider les autres ;).

escreveu na mensagem
news:c59c01c438d5$1e04ff50$
Merci pour cette réponse qui me donne les pistes pour
aller plus loin !! c'est super de me répondre aussi vite.
-----Message d'origine-----
Salut Pascale (tu es sur le bon newsgroup ? Il en existe
un rien que pour le

VB).
Si tu detectais l'OS (par l'API Windows je crois), tu
pourrais attribuer un

chemin specifique a chaque OS.
If os=Win98 Then Chemin=C:...
Else if os=WinXP Then Chemin=C:Documents...
Else MsgBox ("OS different de 98 et XP !")
Par contre, je ne sais pas s'il faut mettre les noms de
dossiers en style

MS-DOS (8 caracteres).

"Pascale" escreveu
na mensagem

news:c89201c438d0$19072c30$
Bonjour,

Je souhaite diffuser une application qui copie des données
sur le bureau indifférement sur 98 et XP. Les noms des
dossiers d'accés au bureau étant différents comment
faire ?


Merci pour toute réponse

Pascale


.



Avatar
D.Lair
Bonjour,
Petit message à tester :
MsgBox "OS=""" & Application.OperatingSystem & """"
Bon courage.
DL
-----Message d'origine-----
Bonjour,

Je souhaite diffuser une application qui copie des
données

sur le bureau indifférement sur 98 et XP. Les noms des
dossiers d'accés au bureau étant différents comment
faire ?


Merci pour toute réponse

Pascale
.



Avatar
Clément Marcotte
Bonjour,

Pour copier le fichier "fichier.txt" de c:copie vers le bureau


Sub copiesurbureau()
Dim wshshell As Object, lebureau As String
Dim lenom As String
Set wshshell = CreateObject("WScript.Shell")
lebureau = wshshell.SpecialFolders("Desktop")
lenom = "fichiersortie.txt"
FileCopy "c:copie" & lenom, lebureau & "" & lenom
End Sub



"Pascale" a écrit dans le
message de news:c89201c438d0$19072c30$
Bonjour,

Je souhaite diffuser une application qui copie des données
sur le bureau indifférement sur 98 et XP. Les noms des
dossiers d'accés au bureau étant différents comment faire ?

Merci pour toute réponse

Pascale