View Full Version : کپی فایل ( کنترل وجود یا عدم وجود)
mokhtar_r
پنج شنبه 05 اردیبهشت 1392, 11:35 صبح
سلام
برای اینکه یک فایل را در مکانی کپی کنم ، دستوری هست که اگر مسیر یا فایل وجود نداشت اون را بسازه و اگر وجود داشت بدون اخطار اطلاعات را برروی اطلاعات قبلی کپی کند ؟
erfan_urchin
پنج شنبه 05 اردیبهشت 1392, 11:53 صبح
با این کد میتونین هر فایلی رو با هر فرمتی کپی کنید (حتی در صورتی که فایل وجود داشته باشه)
Imports System.IO
Dim fi As New FileInfo("D:\a.txt")
fi.CopyTo("E:\a.txt", True)
اگه میخواین فایل در صورت وجود داشتن بازم کپی بشه باید حتما تو خط دوم True رو بزارین
موفق باشی
mokhtar_r
پنج شنبه 05 اردیبهشت 1392, 21:41 عصر
تشکر ولی تابع بالا اگر مسیر وجود نداشته باشه ، یعنی مثلا شاخه ای که ما میخوام داخلش کپی کنیم وجود نداشته باشه خطا میده
SHD.NET
پنج شنبه 05 اردیبهشت 1392, 22: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, 10:26 صبح
اگر دایرکتوری وجود نداشته باشه چطوری دایرکتوری بسازم ؟ میخوام در هر صورت یک کپی از فایلم در مسیری که قبلا تعریف کردم کپی بشه ، اگر فایل و دایرکتوری هست روی اون و اگر دایرکتوری نیست ساخته بشه و داخلش کپی بشه.
یک مشکل دیگه هم هست ممکنه درایوی که تعریف میکنیم وجود نداشته باشه ، در اینصورت میخوام به آخرین درایوی که روی هارد موجود است کپی کنم ( درایوی که ویندوز روی اون نصب نباشه)
مرسی
SHD.NET
جمعه 06 اردیبهشت 1392, 13:35 عصر
سلام . در خصوص سوال اول
If Not Directory.Exists(path) Then
Directory.CreateDirectory(path)
End If
موفق باشید
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.