میشه یه لطف کنید کد ذخیره سازی یک فیلم رو برام بذارین؟

[rezarko]

میشه یه لطف کنید کد ذخیره سازی یک فیلم رو برام بذارین؟

[mohammadriano]

دوست عزیز فیلم رو کجا ذخیره کنه
منظور شما چیه

[rezarko]

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

[rezarko]

ادرس رو از کاربر بگیره بهد ذخیره کنه مثل عکس کلا مثل یک پلیر عمل کنه فیلم رو با زکنه.اجرا کنه.ذخیره کنه . ممنون

[program2vb]

کلا مثل یک پلیر عمل کنه فیلم رو با زکنه.اجرا کنه.ذخیره کنه . ممنون

سلام عزیز به اینجا (http://barnamenevis.org/showthread.php?320986-%D8%AF%D8%B1%DB%8C%D8%A7%D9%81%D8%AA-%DA%A9%D9%84%D9%85%D9%87-%D8%B9%D8%A8%D9%88%D8%B1-%D8%A8%D8%B1%D8%A7%DB%8C-%D9%88%D8%B1%D9%88%D8%AF-%D8%A8%D9%87-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87&p=1416266&viewfull=1#post1416266)یه سری بزن سورس کد مدیا پلیر هست ....

برای کپی کردن هم میتونی از چند روش استفاده کنی که میگم

1. با استفاده از کار با فایلها

مثال :

تو جنرال فورمتون یه متغییر تعریف کنید تا بتونید اون رو تو قسمتهای مختلف فورمتون استفاده کنید .

private s As String


با این کد شما میتونید فایل مورد نظر رو بخونید

توجه : به جای openFile آدرس فایل مورد نظر رو که میخواین اون رو کپی کنید بنویسید .


Open openFile For Binary As #1
s = String(FileLen(openFile), " ")
Get #1, , s
Close #1


با این کدم شما میتونید اون فایل رو که قبلا خونده بودین هر جا که دوس دارین ذخیره کنین

توجه : به جای SaveFile آدرس مسیر مورد نظر که میخواید فایل اونجا کپی بشه رو بنویسید .


Open saveFile For Binary As #1
Put #1, , s
Close #1


2 . استفاده از دستور FileCopy که یکی از دستورات خود Vb هست . که کار کردن باهاش خیلی آسونه .

مثال :

open File : مسیری که فایل اونجا قرار داره
save File : مسیری که میخواید اونجا کپی بشه


FileCopy openFile, saveFile


3 . تو این روش باید از منو project > References رو کلیک کنید تو پنجره باز شده گزینه Microsoft Scripting Runtime رو تیک بزنید و ok کنید حالا میریم سراغ کد نویسیش

ابتدا تو قسمت جنرال فرمتون اول این کد رو مینویسید :


private Fso as New FileSystemObject


بعد با متغییر Fso شما میتونید فایل رئ با یک تیکه کد ساده کپی کنید

مثال :

open File : مسیری که فایل اونجا قرار داره
save File : مسیری که میخواید اونجا کپی بشه


Fso.CopyFile openFile,saveFile


4 . استفاده از محضر خانه ویندوز یعنی استفاده از API

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


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


سپس هر جایی که خواستین از فایلی رو کپی کنید از دستور CopyFile استفاده میکنید .

که به روش زیر میتونید از این دستور استفاده کنید :


open File : مسیری که فایل اونجا قرار داره
save File : مسیری که میخواید اونجا کپی بشه


CopyFile openFile, saveFile, f


اینم چهار روش برای کپی کردن فایل حالا شما کدوم روش رو دوس داری انتخاب کن .
امیدوارم موفق و پیروز باشی . یا علی