[Info-tech] RE: Ndihme ne VB per Fitim Skenderin

[Orhan Osmani]

U mundova t'i kuptoj funksionet the structurat qe mi derguat por nuk isha ne
gjendje ti kuptoj nese keni kohe te lire dhe deshironi, ju lutem me jepni
nje sqarim se cka bejne keta funksione dhe struktura ....nese keni problem
t; perktheni ne Shqip ate qe dini mund te me pergjigjeni edhe  Anglisht....

Te fala Orhan_Osmani

-----Original Message-----
From: info-tech-admin at alb-net.com [mailto:info-tech-admin at alb-net.com]On
Behalf Of Fitim Skenderi
Sent: Thursday, May 11, 2000 7:04 PM
To: 'info-tech at alb-net.com'
Subject: [Info-tech] RE: Ndihme ne VB



Provo API funksionet dhe strukturat e me poshtme :



Public Const OFS_MAXPATHNAME = 128


Public Type OVERLAPPED
        Internal As Long
        InternalHigh As Long
        offset As Long
        OffsetHigh As Long
        hEvent As Long
End Type

Public Type OFSTRUCT
        cBytes As Byte
        fFixedDisk As Byte
        nErrCode As Integer
        Reserved1 As Integer
        Reserved2 As Integer
        szPathName(OFS_MAXPATHNAME) As Byte
End Type

Public Declare Function OpenFile Lib "kernel32" (ByVal lpFileName As
String, lpReOpenBuff As OFSTRUCT, ByVal wStyle As Long) As Long
Public Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long,
lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead
As Long, lpOverlapped As OVERLAPPED) As Long