Article View: pl.comp.lang.vbasic
Article #92385Re: kopiowanie pliku
From: Marcin Miga
Date: Tue, 25 Oct 2005 08:43
Date: Tue, 25 Oct 2005 08:43
32 lines
1734 bytes
1734 bytes
Robert Wojtczak wrote:
> Jak skopiowac plik komendą vb? Chodzi o to, że chce miec pod
> przyciskiem mozliwosc skopiowania jednego pliku w inne miejsce, a
> nawet zastapienie jesli juz byl o tej samej nazwie. Probowalem z
> komenda Name, ale ona przenosi plik a nie kopiuje. Mi zalezy zeby w
> miejscu zrodlowym plik jednak zostal. Prosze o pomoc.
VBA.FileSystem.FileCopy(Source As String, Destination As String)
Możesz też użyć API:
Public Enum API_BOOLEAN
API_FALSE = 0&
API_TRUE = 1&
End Enum
Private Declare Function CopyFile Lib "kernel32.dll" Alias "CopyFileA" _
(ByVal lpExistingFileName As String, _
ByVal lpNewFileName As String, _
ByVal bFailIfExists As API_BOOLEAN) As Long
Private Declare Function MoveFile Lib "kernel32.dll" Alias "MoveFileA" _
(ByVal lpExistingFileName As String, _
ByVal lpNewFileName As String) As Long
Gdzie CopyFile ma trzeci parametr, który określa, czy ma nadpisywać
plik, czy też nie... Pewnie też jest szybsze...
pozdrawiaMM
--
Marcin M. Miga
"More matter with less art"
Technical Details
Message-ID:
<C57BDD8470737A4D9F2CE5DEE25D7B9007E47456@mailserver2.domdata.local>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!mat.uni.torun.pl!news.man.torun.pl!newsfeed.pionier.net.pl!nf1.ipartners.pl!ipartners.pl!helios.domdata.com!DOMDATA3.BAUBODEN.comReferences:
<djknsr$ocj$1@nemesis.news.tpi.pl>Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!mat.uni.torun.pl!news.man.torun.pl!newsfeed.pionier.net.pl!nf1.ipartners.pl!ipartners.pl!helios.domdata.com!DOMDATA3.BAUBODEN.com NNTP-Posting-Host: 192.168.151.148 Newsgroups: pl.comp.lang.vbasic Date: Tue, 25 Oct 2005 10:43:52 +0200 Message-ID: <C57BDD8470737A4D9F2CE5DEE25D7B9007E47456@mailserver2.domdata.local> From: "Marcin Miga" <Marcin.Miga[@]gmail.com> Subject: Re: kopiowanie pliku References: <djknsr$ocj$1@nemesis.news.tpi.pl> User-Agent: XanaNews/1.17.5.9 MIME-Version: 1.0 Lines: 33 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit