PDA

View Full Version : دو طرز نوشتن دستور Exists و علت اختلاف آنها



pouyansaraf
دوشنبه 03 مرداد 1390, 20:03 عصر
Imports System.IO

Dim newdir1 As New DirectoryInfo("d:\111")
Dim newdir2 As New DirectoryInfo("d:\222")

'(1)
If File.Exists(newdir1.FullName) Then
MsgBox("File1Exists")
Else
newdir1.Create()
End If

'(2)
If newdir2.Exists Then
MsgBox("File2Exists")
Else
newdir2.Create()
End If

نمیدونم دستورات پاراگراف اول با دوم چرا فرق دارد
اگر فولدر مربوطه نباشد هر دو دستور فولدر خودشان را میسازند
ولی اگر وجود داشته باشد اولی msgbox نمیزند ولی دومی میزند

salehbagheri
سه شنبه 04 مرداد 1390, 00:13 صبح
دوست عزیز مشکل کار اینجاست که D:\111 یک دایرکتوری هست نه فایل! بنابراین بررسی کردنش به عنوان یک فایل نتیجه منفی خواهد داشت!

برای حل این مشکل شما باید از کلاس Directory استفاده کنید!


If Directory.Exists(NewDir1.FullName) Then
''TODO:
End If

pouyansaraf
سه شنبه 04 مرداد 1390, 00:20 صبح
وای بر من
:گیج: