🚀 go-pugleaf

Cześć,


Korzystam z takiej funkcji, którą kiedyś znalazłem w sieci (działa):

=================================================
Function CopyFile(ByVal Source$, ByVal Destination$) As Long

       Dim Index1 As Integer, NumBlocks As Integer
       Dim FileLength As Long, LeftOver As Long, AmountCopied As Long
       Dim SourceFile As Integer, DestFile As Integer
       Dim FileData As String
       Dim RetVal As Variant
       Const BlockSize = 32768

       On Error GoTo Err_CopyFile

       ' Remove the destination file.
       DestFile = FreeFile
       Open Destination For Output As DestFile
       Close DestFile

       ' Open the source file to read from.

       SourceFile = FreeFile
       Open Source For Binary Access Read As FreeFile

       ' Open the destination file to write to.
       DestFile = FreeFile
       Open Destination For Binary As DestFile

       ' Get the length of the source file.
       FileLength = LOF(SourceFile)

       ' Calculate the number of blocks in the file and left over.
       NumBlocks = FileLength \ BlockSize
       LeftOver = FileLength Mod BlockSize

       ' Create a buffer for the leftover amount.

       FileData = String$(LeftOver, 32)

       ' Read and write the leftover amount.
       Get SourceFile, , FileData
       Put DestFile, , FileData

       ' Create a buffer for a block to be read.
       FileData = String$(BlockSize, 32)

       ' Read and write the remaining blocks of data.
       For Index1 = 1 To NumBlocks
          ' Read and write one block of data.
          Get SourceFile, , FileData
          Put DestFile, , FileData
       Next Index1

       Close SourceFile, DestFile
       CopyFile = AmountCopied

Bye_CopyFile:
       Exit Function

Err_CopyFile:
       CopyFile = -1 * Err
       Resume Bye_CopyFile



   End Function

=======================================================

np.:
        zm = 0
        zm = CopyFile("c:\plik", "a:\plik")

Powodzenia

Janusz Trąbiński
if@bitstudio.com.pl


Mirek Biskupski wrote in message <74u9f5$243$1@korweta.task.gda.pl>...
>Czesc
>Czy ktos moze mi powiedziec, jak skopiowac pliki spod A'97? Podobno odbywa
>sie to z wykorzystaniem funkcji API, ale nigdzie nie moge znalezc
informacji
>jak to zrobic.
>Dzieki z gory
>
>Mirek
>
>

A nie prościej zastosować instrukcję CopyFile:
składnia:
CopyFile source, destination

Mirek Biskupski napisał(a) w wiadomości:
<74u9f5$243$1@korweta.task.gda.pl>...
>Czesc
>Czy ktos moze mi powiedziec, jak skopiowac pliki spod A'97? Podobno odbywa
>sie to z wykorzystaniem funkcji API, ale nigdzie nie moge znalezc
informacji
>jak to zrobic.
>Dzieki z gory
>
>Mirek
>
>

Cześć,

(FileCopy source, destination)

Prościej

Ale jak to wygląda.

ps. Funkcja przezemnie podana zwraca kod błędu, który można
        obsłużyć wrazie jakby poszło nie tak)

Janusz Trąbinski
if@bitstudio.com.pl


Leszek Taratuta wrote in message <752ics$jqk$1@korweta.task.gda.pl>...
>A nie prościej zastosować instrukcję CopyFile:
>składnia:
>CopyFile source, destination
>
>Mirek Biskupski napisał(a) w wiadomości:
><74u9f5$243$1@korweta.task.gda.pl>...
>>Czesc
>>Czy ktos moze mi powiedziec, jak skopiowac pliki spod A'97? Podobno odbywa
>>sie to z wykorzystaniem funkcji API, ale nigdzie nie moge znalezc
>informacji
>>jak to zrobic.
>>Dzieki z gory
>>
>>Mirek
>>
>>
>
>

Błędy można wychwycić bez problemu:

Sub MojeKopiowanie
    On Error Go To MojaObslugaBledow
    FileCopy Dane1.txt Dane2.txt
    On Error Go To 0
Exit Sub
...
    MojaObslugaBledow:
        'Tutaj kod obsługi błędów
...
End Sub

Janusz Trąbiński napisał(a) w wiadomości:
<752ip9$l2f$1@korweta.task.gda.pl>...
>Cześć,
>
>(FileCopy source, destination)
>
>Prościej
>
>Ale jak to wygląda.
>
>ps. Funkcja przezemnie podana zwraca kod błędu, który można
>        obsłużyć wrazie jakby poszło nie tak)
>
>Janusz Trąbinski
>if@bitstudio.com.pl
>
>

Janusz Tršbiński wrote:
> 
> Czeœć,
> 
> Korzystam z takiej funkcji, którš kiedyœ znalazłem w sieci (działa):
<...>

Sorry, ze moze sie glupio spytam: po co tak kombinowac, skoro w A'97
jest gotowa instrukcja? (moze tylko u mnie? ;-) Sprobowalem ja przed
chwila i wydaje sie dzialac ok. Rozumiem w A2.0 - tam polecenia
podobnego do filecopy nie ma i trzeba sie ratowac kodem. Dlatego sam sie
pare miesiecy temu pytalem i ktos nadeslal na grupe podobna funkcje. 

Pozdrawiam -
        Stanley

Ooops ! (jak mawiaja Angole). Funkcja FILECOPY faktycznie istnieje - a ja
sie wczesniej na nia nie natknalem.

Dzieki za reakcje.

Mirek

Cześć,

masz racje - z funkcji korzystałem w Acc 2.0 następnie przenisłem do Acc 8.0
a ponieważ działało to nie zmieniłem.

Janusz Trąbiński
if@bitstudio.com.pl


Stanley P wrote in message <36750070.158A7398@pertus.com.pl>...

>Sorry, ze moze sie glupio spytam: po co tak kombinowac, skoro w A'97
>jest gotowa instrukcja? (moze tylko u mnie? ;-) Sprobowalem ja przed
>chwila i wydaje sie dzialac ok. Rozumiem w A2.0 - tam polecenia
>podobnego do filecopy nie ma i trzeba sie ratowac kodem. Dlatego sam sie
>pare miesiecy temu pytalem i ktos nadeslal na grupe podobna funkcje.
>
>Pozdrawiam -
>        Stanley