یادمه بیسسیک یک دستوری داره که با md شروع میشه و یک فولدر میسازه اما بقیش یادم نمی یاد کسی این رو میدونه
درمورد تغیر نام یک پوشه ساخته شده با دستور بالا چی ؟؟
Printable View
یادمه بیسسیک یک دستوری داره که با md شروع میشه و یک فولدر میسازه اما بقیش یادم نمی یاد کسی این رو میدونه
درمورد تغیر نام یک پوشه ساخته شده با دستور بالا چی ؟؟
از طریق توابع داخلی ویژوال بیسیک :
از طریق توابع APIنقل قول:
MkDir "C:\New Folder"
نقل قول:
Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lppath As String) As Long
'---------------------------------------------------'
MakeSureDirectoryPathExists ("C:\New Folder\")
نقل قول:
نوشته شده توسط M8SPY_OK
سلام.
من Basic بلد نیستم، اما میدونم که MakeSureDirectoryPathExists در DbgHelp.dll قرار داره. مایکروسافت از ویندوز 2000 به بعد، این تابع رو از imghelp.dll به dbghelp.dll برد ولی برای حفط Backward Compatibility، تابع مورد نظر در imghelp.dll در حال حاضر، تابع معادل رو در dbghelp.dll صدا میزنه. در نتیجه، توصیه می کنم تا هنگام تعریف تابع، از dbghelp.dll استفاده بشه.
البته به خاطر داشته باشید، که تابع فوق قادر نیست تا مسیرهایی که از کاراکترهای unicode تشکیل شدن رو ایجاد کنه. اگر شما می خواهید مسیرهای Unicode رو هم پشتیبانی کنید، از SHCreateDirectoryEx در shell32.dll استفاده کنید.
این کد هم این کارو میکنه :نقل قول:
نوشته شده توسط majjjj
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 اشیا کاربردی دیگری هم داره که خودت میتونی تست کنی
بهترین راه استفاده از دستورات ویژواله که همون MKDIR می باشد
با تشکر از همگی
ایا برای تغیر نام یک فولدر هم توابع داخلی وجود داره
از Api ها میشه استفاده کرد از دستورات کامندپرمپت هم میشه استفاده کرد
سلام
من با کد زیر
Dim fs As FileSystemObject
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CreateFolder Environ("homedrive") & "\reza"
یک فولدر در درایو ویندوز میسازم
چطور باید بگم که اگه فولدر وجود نداشت دستور بالا اجرا بشه و اگه وجود داشت ادامه دستوراتی در دکمم دارم؟
مرسی
نقل قول:
نوشته شده توسط R2du-soft
If fs.FolderExists(Environ("homedrive") & "\reza") = False Then fs.CreateFolder Environ("homedrive") & "\reza"
سلام علیکم
با دستور MkDir وی بی هم میتوانیم پوشه ای در مسیر مشخص شده ایجاد کنیم، برای مثال در کد شما میشود:
و اگر بخواهیم پیش از ایجاد وجود فولدر را بررسی کنیم:کد HTML:Private Sub Command1_Click()
MkDir Environ("homedrive") & "\reza"
End Sub
موفق باشیدکد HTML:Private Sub Command1_Click()
Dim sDir$
sDir$ = Environ("homedrive") & "\reza"
If Dir(sDir$) = "" Then
MkDir sDir$
End If
End Sub
مرسی از همه دوستان
از کد
Private Sub Command1_Click() Dim sDir$ sDir$ = Environ("homedrive") & "\reza" If Dir(sDir$) = "" Then MkDir sDir$ End If End Sub
استفاده کردم وgلی وقتی پوشه وجود داشته باشه پیغام میده!!!!!!
کد HTML:
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
مرسی
بله چون این مسیر به فولدر اشاره دارد بایستی کاراکتر "\" را به انتهای مسیر اضافه کنیم (البته این تنها برای فولدرهاست)، که میشود:
موفق باشیدکد HTML:sDir$ = Environ("homedrive") & "\reza\"
درود
الان Vb نداشتم تست کنم اما اینرو پیدا کردم
برای ساخت Folder لینک زیرو ببین
http://www.devx.com/vb2themax/Tip/18828
و برای تغییر نام هم این لینک رو
http://www.fmsinc.com/free/newtips/A...ccesstip31.asp
موفق باشید.
سلام با این دستور هم می توان نام یک فایل را تغییر داد :
name "old name" as "new name"
مثال :
Name "d:/video1" As "d:/video"
نقل قول:
نوشته شده توسط __siavash__
از این قسمت ایراد میگیره :
fs As FileSystemObject
سلامنقل قول:
نوشته شده توسط star_star
اعلان را به Object یا Variant تغییر بدین:
Dim fs As Object
یا
Dim fs
موفق باشید
باز زمانی که فولدر وجود داشته باشه مشکل میگیره و همون ارور رو میده!!!!!نقل قول:
نوشته شده توسط محسن واژدی
در کد زیر چرا دستور 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 عمل نمیکنه؟!!!!!!!
موفق باشیدکد HTML: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
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