PDA

View Full Version : Rename پوشه ای که از قبل وجود دارد !


select.vb
یک شنبه 26 خرداد 1387, 22:00 عصر
برای rename‌پوشه ای که از قبل وجود دارد کدی ارائه کنید
مهران رسا
یک شنبه 26 خرداد 1387, 22:33 عصر
Name "C:\OldName" As "C:\NewName"
select.vb
یک شنبه 26 خرداد 1387, 23:37 عصر
ببخشید میشه بیشتر توضیح بدی
1- بشه با کنترل dir انتخاب و بعدش اسمو نوشت
2- روش دیگه بتونی با input box آدرس پوشه که باید rename بشه رو بدی و بعدش اسم جدید
مهران رسا
دوشنبه 27 خرداد 1387, 00:02 صبح
بقیش که دیگه کاری نداره ...

باید از خاصیت Path کنترل Dir استفاده کنی ...

برای استفاده از Inputbox هم باید به شکل زیر اون رو فراخوانی کنی :



Dim Str as String
Str=Inputbox ("لطفاً نام پوشه را وارد نمایید")
select.vb
دوشنبه 27 خرداد 1387, 00:13 صبح
اینو نوشتم خطا میده


Dim s As String
Dim p As String
p = InputBox(" enter a target folder")
s = InputBox("enter a new name")
Name "p" As "s"
مهران رسا
دوشنبه 27 خرداد 1387, 00:21 صبح
اینو نوشتم خطا میده


Dim s As String
Dim p As String
p = InputBox(" enter a target folder")
s = InputBox("enter a new name")
Name "p" As "s"


مشخصه که VB رو تازه شروع کردی ...

ببین متغیر ها نباید در بین " قرار بگیرن . وقتی شما p رو درون " قرار دادی در واقع یک رشته با محتوای "p" ایجاد کردی .

باید اینطوری بنویسی :




Dim s As String
Dim p As String
p = InputBox(" enter a target folder")
s = InputBox("enter a new name")
Name p As s


حتماً یک کتاب جامع پیدا کن و مطالعه رو شروع کن .

موفق باشی
select.vb
دوشنبه 27 خرداد 1387, 00:29 صبح
مچکرم از لطفت
این کدی که شما دادی باید آدرس کامل رو وارد کنم
میشه کاری کنید وقتی در کنترل dir هستم فقط اسم جدید پوشه رو وارد کنم ( بدون آدرس ) ؟؟؟
VirGil
دوشنبه 27 خرداد 1387, 03:26 صبح
سلام دوستان.

مشکل این کد چیه؟


app.Exename="sss"
مهران رسا
دوشنبه 27 خرداد 1387, 10:06 صبح
سلام دوستان.

مشکل این کد چیه؟


app.Exename="sss"

متد EXEName از شی App ، فقط قابلیت نمایش اسم فایل exe برنامه رو داره و شما نمی تونی به اون مقدار بدی .
VirGil
سه شنبه 28 خرداد 1387, 01:16 صبح
متد EXEName از شی App ، فقط قابلیت نمایش اسم فایل exe برنامه رو داره و شما نمی تونی به اون مقدار بدی .

برای rename کردن فایل exe میشه از همین روشی که گفتید استفاده کرد؟
vahidvb
سه شنبه 28 خرداد 1387, 01:51 صبح
برای rename کردن فایل exe میشه از همین روشی که گفتید استفاده کرد؟

میشه البته نه خود فایل exe که اجراست.
مهران رسا
سه شنبه 28 خرداد 1387, 12:13 عصر
میشه البته نه خود فایل exe که اجراست.

توسط این تابع ، فایل exe در حال اجرا رو هم میشه Rename کرد ...
مهران رسا
سه شنبه 28 خرداد 1387, 12:18 عصر
گفتم یک مثال اینجا بذارم بد نباشه :

به کد زیر یک نگاهی بندازید :



If App.EXEName <> "pr" Then
Name App.Path & "\" & App.EXEName & ".exe" As App.Path & "\" & "pr.exe"
MsgBox "Program Renamed !"
End
End If

در کد بالا در صورتی که نام فایل exe برنامه pr نبود ، برنامه تشخیص میده و نام فایل exe خودش رو به صورت خودکار تغییر میده ...
.:KeihanCPU:.
سه شنبه 28 خرداد 1387, 13:13 عصر
چطور عوض میشه مگه برنامه در حال اجرا نیست؟!
مهران رسا
چهارشنبه 29 خرداد 1387, 10:20 صبح
چطور عوض میشه مگه برنامه در حال اجرا نیست؟!


ویندوز اجازه Rename کردن فایل های در حال اجرا رو به ما میده ...

مثلاً اگه اسم فایل در حال اجرامون UUYI.exe و شما در زمان اجرا اون رو به keihan.exe تغییر بدید (Rename) ، همچنان فایلمون با نام UUYI.exe در حافظه وجود خواهد داشت و هیچ خطایی هم از جانب ویندوز رخ نمیده ...
vahidvb
چهارشنبه 29 خرداد 1387, 11:12 صبح
توسط این تابع ، فایل exe در حال اجرا رو هم میشه Rename کرد ...
کاملا درسته !