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

[محسن واژدی]

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

متاسفانه نقطه ضعفی که در تابع Dir برای بررسی موجودیت فایل وجود داره این هست که حتما بایستی حداقل یک فایل در فولدر مورد نظر وجود داشته باشد، از APIی PathFileExist یا FolderExists که جناب arenaw هم اشاره کردند استفاده کنید که مشکلات ایندستی را ندارد:

Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long

Private Sub Command1_Click() 

    Dim sDir$ 

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

    If PathFileExists (sDir$) = 0 Then 

        MkDir sDir$ 

    End If 

End Sub

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

کد چند مشکل جزئی داشت:

Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long
Private Sub Command1_Click()
    Dim sDir$
    sDir$ = Environ("homedrive") & "\reza\"
    
    If PathFileExists(sDir$) = 0 Then
        MkDir sDir$
    Else
        Dim R As String
        R = Text1.Text
        FileCopy Text1.Text & "\cnlurllist.dat", sDir$ & "cnlurllist.dat"
    End If
End Sub
  
  
  
Private Sub Form_Load()
    Set wshshell = CreateObject("WScript.Shell")
    Text1.Text = wshshell.RegRead("HKEY_CURRENT_USER\Software\DownloadManager\AppDataIDMFolder")
End Sub

موفق باشید