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 Message d'erreur

Message d'erreur

5 réponses
Avatar
gilles
Bonjour,
Dans mon petit programme je cherche a copié des fichiers dans un endropit
precis j ai donc utilisé la commande donnée dans l aide de vb qui

Dim fso As New fil1, fil2, fil3
Set fil1 = fso.GetFile("chemin")
fil1.Copy ("chemin")
Set fil2 = fso.GetFile("chemin")
fil1.Copy ("chemin")
Set fil3 = fso.GetFile("chemin")
fil1.Copy ("chemin")

Mais quand je met le programme en route celui ci me dit "erreur type défini
non défini" si quelqu'un peu m expliqué se serait gentil merci
Signaler un problème avec ce contenu

5 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
Avatar
didier TEST
"gilles" a écrit dans le message de
news:
Bonjour,
Dans mon petit programme je cherche a copié des fichiers dans un endropit
precis j ai donc utilisé la commande donnée dans l aide de vb qui

Dim fso As New fil1, fil2, fil3
Set fil1 = fso.GetFile("chemin")
fil1.Copy ("chemin")
Set fil2 = fso.GetFile("chemin")
fil1.Copy ("chemin")
Set fil3 = fso.GetFile("chemin")
fil1.Copy ("chemin")

Mais quand je met le programme en route celui ci me dit "erreur type


défini
non défini" si quelqu'un peu m expliqué se serait gentil merci



HEu tu es sure de ton exemple ???
tu n'as pas crée l objet FSO alors forcement....et le Dim me parait curieux.
( je te parle meme pas des copy! tu copies 3 fois le Fic1)

je verais plutot un
Dim FSO,Fic
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Fic = fso.GetFile("chemin")
Fic.Copy ("chemin")
Set Fic = fso.GetFile("chemin")
Fic.Copy ("chemin")
Set Fic = fso.GetFile("chemin")
Fic.Copy ("chemin")




ou moi j'aurais fait un :

Dim MyFSO
Set MyFSO = CreateObject("Scripting.FileSystemObject")
MyFSO.copyfile("source","destiantion", overwrite) ' utan que de fichiers
....

DJ
Avatar
gilles
"didier TEST" wrote:


"gilles" a écrit dans le message de
news:
> Bonjour,
> Dans mon petit programme je cherche a copié des fichiers dans un endropit
> precis j ai donc utilisé la commande donnée dans l aide de vb qui
>
> Dim fso As New fil1, fil2, fil3
> Set fil1 = fso.GetFile("chemin")
> fil1.Copy ("chemin")
> Set fil2 = fso.GetFile("chemin")
> fil1.Copy ("chemin")
> Set fil3 = fso.GetFile("chemin")
> fil1.Copy ("chemin")
>
> Mais quand je met le programme en route celui ci me dit "erreur type
défini
> non défini" si quelqu'un peu m expliqué se serait gentil merci

HEu tu es sure de ton exemple ???
tu n'as pas crée l objet FSO alors forcement....et le Dim me parait curieux.
( je te parle meme pas des copy! tu copies 3 fois le Fic1)

je verais plutot un
Dim FSO,Fic
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Fic = fso.GetFile("chemin")
> Fic.Copy ("chemin")
> Set Fic = fso.GetFile("chemin")
> Fic.Copy ("chemin")
> Set Fic = fso.GetFile("chemin")
> Fic.Copy ("chemin")


ou moi j'aurais fait un :

Dim MyFSO
Set MyFSO = CreateObject("Scripting.FileSystemObject")
MyFSO.copyfile("source","destiantion", overwrite) ' utan que de fichiers
.....

DJ

Heu dsl pour les erreur se sont des fichiers differents qui sont copié.


J ai essayé ta methode mais vb me dit qu il manque kelke chose sur la
derniere ligne:

MyFSO.copyfile("source","destiantion", overwrite)


Avatar
ng
Salut,

Oublions le FSO, vb fournis des fonction bien plus rapide pour la
manipulation de fichier.
Regarde du coté de FileCopy().

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

gilles wrote:
Bonjour,
Dans mon petit programme je cherche a copié des fichiers dans un
endropit precis j ai donc utilisé la commande donnée dans l aide de
vb qui

Dim fso As New fil1, fil2, fil3
Set fil1 = fso.GetFile("chemin")
fil1.Copy ("chemin")
Set fil2 = fso.GetFile("chemin")
fil1.Copy ("chemin")
Set fil3 = fso.GetFile("chemin")
fil1.Copy ("chemin")

Mais quand je met le programme en route celui ci me dit "erreur type
défini non défini" si quelqu'un peu m expliqué se serait gentil merci


Avatar
didier TEST
> > Heu dsl pour les erreur se sont des fichiers differents qui sont copié.
J ai essayé ta methode mais vb me dit qu il manque kelke chose sur la
derniere ligne:

> MyFSO.copyfile("source","destiantion", overwrite)



bon je precise alors :
source et destination pas de probleme je supose ??
overwrite : c'est facultatif, sinon tu mets True or False selon que tu veux
ecraser ou pas
une destination qui existerait deja.
as tu recuperé l'aide Ms du vbscript5.6 ??? y a tout bien expliqué.

DJ
Avatar
didier TEST
> Salut,

Oublions le FSO, vb fournis des fonction bien plus rapide pour la
manipulation de fichier.
Regarde du coté de FileCopy().



Certes c'est bien vrai ca ! m'enfin n'oublions pas que l'aide de vb6 (par
exemple )
prefere toujours me renvoyer sur les fonctions FSO et faut le secouer un peu
pour qu'il me
montre les fonctions integrées equivalentes qui ne sont pas toujours
indentiques. (genre parametre overwrite bien pratique dans certains cas)

De plus ne prejugeons pas de l'utilisation finale de la chose.Je me suis
fais par exemple un module
VB plein de belles fonctions bien pratiques qui me servent aussi bien dans
un exe VB que dans mon
intranet (oui, oui j'attaque directement les disques dur distants :-) ) ou
dans quelques VBS.
yapuka copier/coller !
Et dans ce cas l'appel au FSO est bien le moyen le plus pratique d'assurer
la compatibilité dans tous les cas. non ?

voila, voila, c'etait pour etre precis.
DJ