کمک در باره چند تابع API

[mohammadhemmati]

سلام به همه دوستان عزیز
دوستان من چند سال پیش ویژوال بیسیک کار می کردم با API هم کار نکردم
بعد الان استادمون 15 تا تابع داده مثال واسشون می خواد ما هم هیچی بارمون نیست
اگه میشه من این توابع رو میدم شما مثالاشو واسم ضمیمه کنید هر کدوم رو داشتید
خدا خیرتون بده
ما هم یه عمر دعا گوی شما هستیم
توابع
COPYFILE

COPYLZFILE

DELETEFILE

MOVEFILE

MOVEFILEEX

GETFILEATTRIBUTES

SETFILEATTRIBUTES

OPENFILE

IOPEN

ICLOSE

READFILE

WRITEFILE

GETFILESIZE

SHFILEEXISTS

GETFILETITLE

خودم خیلی دوست دارم کار کنم ولی وقت نمیشه بعضی از دوستان فایل امادشو دارن ممنون میشم اگه واسم بزارن
دم همگی گرم

[Mr'Jamshidy]

امیدوارم این فایل کارت رو راه بندازه

سعی کردم برای هر تابع بصورت جداگانه بزارم اما یک مقدار تکراری هم داره اما در مورد همه تابه ها هست

[mohammadhemmati]

همین که جواب دادی دمت گرم
من خاکتم
ولی داداش فایل ویژوال شونو نداری
واسه یه تابع هم بزاری من ممنونت میشم

دوستان هر کی فایل ویژوال این توابع رو داره یه لطفی بکنه واسه ما بزار ما یه عمر دعا گوشیم
حتی یه تابع هم بزاره هم خوبه

[mohammadhemmati]

دوستان کسی حتی یکی از این توابع رو نداشت
اگه میشه یه کمکی کنید
دمتون گرم

[محسن واژدی]

سلام علیکم
نمونه جندتا از API ها را در زیر میگذارم، اما هنوز کاملشون نکرده ام

CopyFile
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal _
lpNewFileName As String, ByVal bFailIfExists As Long) As Long

Private Sub Form_Load()
CopyFile "c:\1.exe", "c:\1-copy.exe", 0
End Sub



DeleteFile

Private Declare Function DeleteFile Lib "kernel32.dll" Alias "DeleteFileA" _
(ByVal lpFileName As String) As Long
Private Sub Form_Load()
Dim retval As Long

retval = DeleteFile("C:\1.txt")
If retval = 1 Then Debug.Print "File deleted successfully."
End Sub



MOVEFILE


Private Declare Function MoveFile Lib "kernel32.dll" Alias "MoveFileA" _
(ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long

Private Sub Form_Load()

Call MoveFile("C:\1.txt", "C:\1-moved.txt")
End Sub




GetFileAttributes


Private Declare Function GetFileAttributes Lib "kernel32.dll" Alias _
"GetFileAttributesA" (ByVal lpFileName As String) As Long
FILE_ATTRIBUTE_ARCHIVE = &H20
FILE_ATTRIBUTE_COMPRESSED = &H800
FILE_ATTRIBUTE_DIRECTORY = &H10
FILE_ATTRIBUTE_HIDDEN = &H2
FILE_ATTRIBUTE_NORMAL = &H80
FILE_ATTRIBUTE_READONLY = &H1
FILE_ATTRIBUTE_SYSTEM = &H4


Private Sub Form_Load()
Dim attribs As Long

attribs = GetFileAttributes("C:\1.txt")
If (attribs And FILE_ATTRIBUTES_ARCHIVE) <> 0 Then Debug.Print "Archive"
If (attribs And FILE_ATTRIBUTES_HIDDEN) <> 0 Then Debug.Print "Hidden"
If (attribs And FILE_ATTRIBUTES_READONLY) <> 0 Then Debug.Print "Read-only"
End Sub




GetFileTitle

Private Declare Function GetFileTitle Lib "comdlg32.dll" Alias "GetFileTitleA" (ByVal lpszFile As String, _ ByVal lpszTitle As String, ByVal cbBuf As Integer) As Integer

Private Sub Form_Load()
Dim Buffer As String
Buffer = String(255, 0)
GetFileTitle "c:\\program files\\test.tst", Buffer, Len(Buffer)
Buffer = Left$(Buffer, InStr(1, Buffer, Chr$(0)) - 1)
MsgBox Buffer
End Sub




موفق باشید
یاعلی

[Mr'Jamshidy]

همین که جواب دادی دمت گرم
من خاکتم
ولی داداش فایل ویژوال شونو نداری
واسه یه تابع هم بزاری من ممنونت میشم

دوستان هر کی فایل ویژوال این توابع رو داره یه لطفی بکنه واسه ما بزار ما یه عمر دعا گوشیم
حتی یه تابع هم بزاره هم خوبه

خواهش میکنم وظیفه بود اما من برات طوری نوشتم که خیلی ساده بتونی تو VB کپی کنی اگر نتونستی حتما بگو تا خودم به صورت پروژه VB برات آپ کنم

[Mr'Jamshidy]

فعلا تا تابع SetFileAttribute رو برات تبدیل به پروژه کردم اگر بقیهش رو خواستی بگو تا بقیه رو هم تبدیل کنم

[mohammadhemmati]

دمت گرم داش mohsenvj جان
بچه های بوشهر رو عشقه
خیلی ممنون
اگه کاملش کنی ممنونت میشم
اگه تبدیل بشه ممنونت میشم

[mohammadhemmati]

آقای جمشیدی اگه اشتباه نکنم دمت به مولا گرم
این لطفتو هیچ وقت یادم نمیره
اگه امکانش هست تبدیل کنی یه عمر ممنونت میشم
مرثی

[Mr'Jamshidy]

اول از همه خواهش میکنم نیازی به تشکر نیست وظیفه اس

و دوم

اینم همه API هایی که نوشته بودی

[mohammadhemmati]

اول از همه خواهش میکنم نیازی به تشکر نیست وظیفه اس
دمت گرم با مرام-صفای وجودت

واقعا گل کاشتی
مرثی