spostare files

Article View: free.it.visual-basic

Article #1393

Back to free.it.visual-basic Previous Next

#1393

From: alexia
Date: Fri, 28 May 2004 08:52

15 lines
1401 bytes

Ciao a tutti ho un problema :vorrei spostare dei files da una cartella ad
un'altra,
ho provato ad usare questa istruzione ma mi da un errore '53'.
La cosa strana e' che nonostante l'errore il file me lo sposta ugualmente.
C'e' qualcuno che mi sa aiutare?
Grazie a tutti.
------------------------------
Dim FileObject
Dim origine, destinazione
origine = ("c:\windows\desktop\files\" + (nomefile))
destinazione = ("c:\windows\desktop\uguali\" + (nomefile))
Set FileObject = CreateObject("Scripting.FileSystemObject")
FileObject.MoveFile origine, destinazione

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

Technical Details

Message-ID: <40b6fe20@x-privat.org>

Path:

arc1-ca.pugleaf.net!controlnews3.google.com!news1.google.com!news.glorb.com!ecngs!feeder.ecngs.de!x-privat.net!x-privat.org!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Language: ITALIAN,ASCII-7-bit
X-Google-Thread: f94ee,f2765fa5ec5ac8cb,start
X-Google-Attributes: gidf94ee,public
From: "alexia" <olella@libero.it>
Newsgroups: free.it.visual-basic
Subject: spostare files
Date: Fri, 28 May 2004 10:52:17 +0200
Lines: 18
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1409
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1409
NNTP-Posting-Host: 82.185.97.218
Message-ID: <40b6fe20@x-privat.org>
X-Trace: x-privat.org 1085734432 82.185.97.218 (28 May 2004 10:53:52 +0200)
Organization: X-Privat NNTP Server - www.x-privat.org
X-Complaints-To: abuse@x-privat.org
Path: arc1-ca.pugleaf.net!controlnews3.google.com!news1.google.com!news.glorb.com!ecngs!feeder.ecngs.de!x-privat.net!x-privat.org!not-for-mail