بدست آوردن حجم تصویر و کپی آن

[VisualStudio]

من چطور می تونم حجم تصویری را که از طریق OpenDialoge استخراج می کنم بدست بیاورم و چطوری می تونم یک عکس از یک دایرکتوری به یک دایرکتوری دیگر کپی کنم

[Business Analyst]

شما میتونید با استفاده از دستور زیر یا استفاده از SaveDialogFile (برای اجازه به کاربر رای کپی) اطلاعا ت رو کپی کنی

FileCopy(sourseFile,Destfile)
یا اینطوری


PrivateSubButton1_Click(ByValsenderAsSystem.Object , ByValeAsSystem.EventArgs) HandlesButton1.Click
IfOpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OKThen
DimamAsNewBitmap(OpenFileDialog1.OpenFile)
DimaAsGraphics = Graphics.FromImage(am)
am.Save(pathname)
EndIf
EndSub

[saeed_rezaei]

و جهت به دست آوردن اطلاعات در مورد فایل از


Dim fInfo AsNew System.IO.FileInfo(OpenFileDialog.FileName)


جهت پیدا کردن سایز:
finfo.lenght

[VisualStudio]

شما میتونید با استفاده از دستور زیر یا استفاده از SaveDialogFile (برای اجازه به کاربر رای کپی) اطلاعا ت رو کپی کنی
کد:
FileCopy(sourseFile,Destfile)
یا اینطوری
کد:
PrivateSubButton1_Click(ByValsenderAsSystem.Object , ByValeAsSystem.EventArgs) HandlesButton1.ClickIfOpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OKThenDimamAsNewBitmap( OpenFileDialog1.OpenFile)DimaAsGraphics = Graphics.FromImage(am)am.Save(pathname)EndIfEndSub



در مورد کپی کردن فایل این کد های شما متاسفانه مشکل داره در کد اول میگه دایرکتوری هست نه فایل
در مورد این کد هم

و جهت به دست آوردن اطلاعات در مورد فایل از

کد:
Dim fInfo AsNew System.IO.FileInfo(OpenFileDialog.FileName)

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

[saeed_rezaei]

Dim fInfo AsNew System.IO.FileInfo(OpenFileDialog.FileName)
مگه این بر چه اساسی می ده؟
اگه بر اساس بایت می ده بر 1024 تقسیم کن خوب دیگه کیلوبایت می ده. مطمئنن خودت هم این رو می دونی.

[Business Analyst]

خوب حتما مسیر رو اشتباه زدین!
جای اون pathname باید مسیر تون رو بزنید
مثل این!


IfOpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OKThen
DimamAsNewBitmap(OpenFileDialog1.OpenFile)
am.Save(Environment.GetFolderPath(Environment.Spec ialFolder.Desktop).Trim + "//farshad.jpg")
EndIf

[VisualStudio]

اگه بر اساس بایت می ده بر 1024 تقسیم کن خوب دیگه کیلوبایت می ده. مطمئنن خودت هم این رو می دونی.
مشکل حل شد دقت نکرده بودم

IfOpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OKThen
DimamAsNewBitmap(OpenFileDialog1.OpenFile)
am.Save(Environment.GetFolderPath(Environment.Spec ialFolder.Desktop).Trim + "//farshad.jpg")
EndIf


من میخوام مثلا کنار فایل اجرایی یک فلدر هست با نام (IMAGE) عکی ها در اون ریخته بشه با همان نام اما هرکاری می کنم یا کنار فایل اجرایی با نام فلدر ریخت می شه یا یک فلدر قبل مشکل کجاست
من میخوام مثلا

[Business Analyst]

IfOpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OKThen
DimamAsNewBitmap(OpenFileDialog1.OpenFile)
am.Save(Application.StartupPath.Trim + "//newfolder1/farshad.jpg")
EndIf

امیدوارم مشکل حل شه!
application.startpath مسیر ایل است که شما دارین اجرا میکنید
با این کد کنار فایل exe یه فلدر درست میکنه با یه عکس به نام farshad