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

[majjjj]

یادمه بیسسیک یک دستوری داره که با md شروع میشه و یک فولدر میسازه اما بقیش یادم نمی یاد کسی این رو میدونه
درمورد تغیر نام یک پوشه ساخته شده با دستور بالا چی ؟؟

[M8SPY_OK]

از طریق توابع داخلی ویژوال بیسیک :

MkDir "C:\New Folder"

از طریق توابع API

Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lppath As String) As Long
'---------------------------------------------------'
MakeSureDirectoryPathExists ("C:\New Folder\")

[mehdi.mousavi]

از طریق توابع داخلی ویژوال بیسیک :


از طریق توابع API

سلام.
من Basic بلد نیستم، اما میدونم که MakeSureDirectoryPathExists در DbgHelp.dll قرار داره. مایکروسافت از ویندوز 2000 به بعد، این تابع رو از imghelp.dll به dbghelp.dll برد ولی برای حفط Backward Compatibility، تابع مورد نظر در imghelp.dll در حال حاضر، تابع معادل رو در dbghelp.dll صدا میزنه. در نتیجه، توصیه می کنم تا هنگام تعریف تابع، از dbghelp.dll استفاده بشه.

البته به خاطر داشته باشید، که تابع فوق قادر نیست تا مسیرهایی که از کاراکترهای unicode تشکیل شدن رو ایجاد کنه. اگر شما می خواهید مسیرهای Unicode رو هم پشتیبانی کنید، از SHCreateDirectoryEx در shell32.dll استفاده کنید.

[__siavash__]

یادمه بیسسیک یک دستوری داره که با md شروع میشه و یک فولدر میسازه اما بقیش یادم نمی یاد کسی این رو میدونه
درمورد تغیر نام یک پوشه ساخته شده با دستور بالا چی ؟؟

این کد هم این کارو میکنه :

Dim fs As FileSystemObject

Set fs = CreateObject("Scripting.FileSystemObject")

fs.CreateFolder ("F:\Test")

البته این کد هم همون معنی رو میده :

Dim fs As New FileSystemObject

fs.CreateFolder ("F:\test")

در ضمن یادت باشه گزینه Microsoft Scripting Runtime رو از منوی Project --> references
به پروژه اضافه بکنی

در ضمن FileSystemObject اشیا کاربردی دیگری هم داره که خودت میتونی تست کنی

[noorsoft]

بهترین راه استفاده از دستورات ویژواله که همون MKDIR می باشد

[majjjj]

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

[noorsoft]

از Api ها میشه استفاده کرد از دستورات کامندپرمپت هم میشه استفاده کرد

[R2du-soft]

سلام
من با کد زیر

Dim fs As FileSystemObject

Set fs = CreateObject("Scripting.FileSystemObject")

fs.CreateFolder Environ("homedrive") & "\reza"

یک فولدر در درایو ویندوز میسازم

چطور باید بگم که اگه فولدر وجود نداشت دستور بالا اجرا بشه و اگه وجود داشت ادامه دستوراتی در دکمم دارم؟
مرسی

[arenaw]

سلام
من با کد زیر

Dim fs As FileSystemObject

Set fs = CreateObject("Scripting.FileSystemObject")

fs.CreateFolder Environ("homedrive") & "\reza"

یک فولدر در درایو ویندوز میسازم

چطور باید بگم که اگه فولدر وجود نداشت دستور بالا اجرا بشه و اگه وجود داشت ادامه دستوراتی در دکمم دارم؟
مرسی

If fs.FolderExists(Environ("homedrive") & "\reza") = False Then fs.CreateFolder Environ("homedrive") & "\reza"

[محسن واژدی]

سلام علیکم
با دستور MkDir وی بی هم میتوانیم پوشه ای در مسیر مشخص شده ایجاد کنیم، برای مثال در کد شما میشود:

Private Sub Command1_Click() 
    MkDir Environ("homedrive") & "\reza" 
End Sub

و اگر بخواهیم پیش از ایجاد وجود فولدر را بررسی کنیم:

Private Sub Command1_Click() 
    Dim sDir$ 
    sDir$ = Environ("homedrive") & "\reza" 
    If Dir(sDir$) = "" Then 
        MkDir sDir$ 
    End If 
End Sub

موفق باشید

[R2du-soft]

مرسی از همه دوستان

از کد

Private Sub Command1_Click()      Dim sDir$      sDir$ = Environ("homedrive") & "\reza"      If Dir(sDir$) = "" Then          MkDir sDir$      End If  End Sub

استفاده کردم وgلی وقتی پوشه وجود داشته باشه پیغام میده!!!!!!

run-time '75' :
  path\file access error
 

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

Dim R As String

R = Text1.Text

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

End Sub







Private Sub Form_Load()

Set wshshell = CreateObject("WScript.Shell")

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

End Sub

مرسی

[محسن واژدی]

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

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

موفق باشید

[بهروز عباسی]

درود
الان Vb نداشتم تست کنم اما اینرو پیدا کردم
برای ساخت Folder لینک زیرو ببین
http://www.devx.com/vb2themax/Tip/18828
و برای تغییر نام هم این لینک رو
http://www.fmsinc.com/free/newtips/A...ccesstip31.asp
موفق باشید.

[ho3ein.3ven]

سلام با این دستور هم می توان نام یک فایل را تغییر داد :
name "old name" as "new name"
مثال :
Name "d:/video1" As "d:/video"

[star_star]

این کد هم این کارو میکنه :

Dim fs As FileSystemObject

Set fs = CreateObject("Scripting.FileSystemObject")

fs.CreateFolder ("F:\Test")

البته این کد هم همون معنی رو میده :

Dim fs As New FileSystemObject

fs.CreateFolder ("F:\test")

در ضمن یادت باشه گزینه Microsoft Scripting Runtime رو از منوی Project --> references
به پروژه اضافه بکنی

در ضمن FileSystemObject اشیا کاربردی دیگری هم داره که خودت میتونی تست کنی

از این قسمت ایراد میگیره :

fs As FileSystemObject

[محسن واژدی]

از این قسمت ایراد میگیره :

fs As FileSystemObject

سلام
اعلان را به Object یا Variant تغییر بدین:

Dim fs As Object

یا

Dim fs

موفق باشید

[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

مرسی

[محسن واژدی]

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

متاسفانه نقطه ضعفی که در تابع 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

موفق باشید

[saeed vb6]

Private Sub Command1_Click()




On Error GoTo a
MkDir "c:\FOLDERNAME"
Open "c:\FOLDERNAME\TEST.txt" For Output As #1
Print #1, Me.Text1.Text
Close #1






Exit Sub
a:
Open "c:\FOLDERNAME\TEST.txt" For Output As #1
Print #1, Me.Text1.Text
Close #1


End Sub