PDA

View Full Version : کپی فایل ( کنترل وجود یا عدم وجود)



mokhtar_r
پنج شنبه 05 اردیبهشت 1392, 10:35 صبح
سلام
برای اینکه یک فایل را در مکانی کپی کنم ، دستوری هست که اگر مسیر یا فایل وجود نداشت اون را بسازه و اگر وجود داشت بدون اخطار اطلاعات را برروی اطلاعات قبلی کپی کند ؟

erfan_urchin
پنج شنبه 05 اردیبهشت 1392, 10:53 صبح
با این کد میتونین هر فایلی رو با هر فرمتی کپی کنید (حتی در صورتی که فایل وجود داشته باشه)
Imports System.IO
Dim fi As New FileInfo("D:\a.txt")
fi.CopyTo("E:\a.txt", True)
اگه میخواین فایل در صورت وجود داشتن بازم کپی بشه باید حتما تو خط دوم True رو بزارین
موفق باشی

mokhtar_r
پنج شنبه 05 اردیبهشت 1392, 20:41 عصر
تشکر ولی تابع بالا اگر مسیر وجود نداشته باشه ، یعنی مثلا شاخه ای که ما میخوام داخلش کپی کنیم وجود نداشته باشه خطا میده

SHD.NET
پنج شنبه 05 اردیبهشت 1392, 21:08 عصر
تشکر ولی تابع بالا اگر مسیر وجود نداشته باشه ، یعنی مثلا شاخه ای که ما میخوام داخلش کپی کنیم وجود نداشته باشه خطا میده

با دستورات زیر میتونید چک کنید که وجود دارند یا نه:

If IO.Directory.Exist ("Directory Path") then
'action
end if

' or

If IO.File.Exist("FileNa,e") then
'action
End if



موفق باشید

mokhtar_r
جمعه 06 اردیبهشت 1392, 09:26 صبح
اگر دایرکتوری وجود نداشته باشه چطوری دایرکتوری بسازم ؟ میخوام در هر صورت یک کپی از فایلم در مسیری که قبلا تعریف کردم کپی بشه ، اگر فایل و دایرکتوری هست روی اون و اگر دایرکتوری نیست ساخته بشه و داخلش کپی بشه.
یک مشکل دیگه هم هست ممکنه درایوی که تعریف میکنیم وجود نداشته باشه ، در اینصورت میخوام به آخرین درایوی که روی هارد موجود است کپی کنم ( درایوی که ویندوز روی اون نصب نباشه)
مرسی

SHD.NET
جمعه 06 اردیبهشت 1392, 12:35 عصر
سلام . در خصوص سوال اول
If Not Directory.Exists(path) Then
Directory.CreateDirectory(path)
End If

موفق باشید