ساخت یک نیو فولدر با بیسیک

[R2du-soft]

بله چون این مسیر به فولدر اشاره دارد بایستی کاراکتر "\" را به انتهای مسیر اضافه کنیم (البته این تنها برای فولدرهاست)، که میشود:

 sDir$ = Environ("homedrive") & "\reza\"

موفق باشید

باز زمانی که فولدر وجود داشته باشه مشکل میگیره و همون ارور رو میده!!!!!

در کد زیر چرا دستور else عمل نمیکنه؟!!!!!!!

Private Sub Command1_Click()





Dim sDir$

sDir$ = Environ("homedrive") & "\reza\"

If Dir(sDir$) = "" Then

MkDir sDir$



Else



Dim R As String

R = Text1.Text

FileCopy Text1.Text & "\cnlurllist.dat", "homedrive\reza\cnlurllist.dat"

End If

End Sub

 

 

 

Private Sub Form_Load()

Set wshshell = CreateObject("WScript.Shell")

Text1.Text = wshshell.RegRead("HKEY_CURRENT_USER\Software\Downl  oadManager\AppDataIDMFolder")

End Sub

مرسی