🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.vbasic
Article #92386

Re: kopiowanie pliku

#92386
From: Robert Wojtczak
Date: Tue, 25 Oct 2005 09:28
46 lines
2511 bytes
Wielkie dzięki. Choć bardzo skomplikowane rozwiazanie. A nie ma czegos w
stylu:
CopyFile c:\aaa.txt d:\aaa.txt
???
Przesunąć plik mozna wlasnie w ten sposob...

-- 
Pozdrawiam
Robert Wojtczak


Użytkownik "Marcin Miga" <Marcin.Miga[@]gmail.com> napisał w wiadomości
news:C57BDD8470737A4D9F2CE5DEE25D7B9007E47456@mailserver2.domdata.local...
> 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: <djktnd$hb8$1@atlantis.news.tpi.pl>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.nask.pl!news.nask.org.pl!newsfeed.tpinternet.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mail
References: <djknsr$ocj$1@nemesis.news.tpi.pl> <C57BDD8470737A4D9F2CE5DEE25D7B9007E47456@mailserver2.domdata.local>

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.nask.pl!news.nask.org.pl!newsfeed.tpinternet.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mail
From: "Robert Wojtczak" <wojtczak@elekol.neostrada.pl>
Newsgroups: pl.comp.lang.vbasic
Subject: Re: kopiowanie pliku
Date: Tue, 25 Oct 2005 11:28:18 +0200
Organization: wr
Lines: 48
Message-ID: <djktnd$hb8$1@atlantis.news.tpi.pl>
References: <djknsr$ocj$1@nemesis.news.tpi.pl> <C57BDD8470737A4D9F2CE5DEE25D7B9007E47456@mailserver2.domdata.local>
NNTP-Posting-Host: baq40.neoplus.adsl.tpnet.pl
X-Trace: atlantis.news.tpi.pl 1130232367 17768 83.27.180.40 (25 Oct 2005 09:26:07 GMT)
X-Complaints-To: usenet@tpi.pl
NNTP-Posting-Date: Tue, 25 Oct 2005 09:26:07 +0000 (UTC)
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1506
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1506
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit