نمایش نتایج 1 تا 11 از 11

نام تاپیک: Rename With CMD

  1. #1
    کاربر دائمی آواتار پرستو پارسایی
    تاریخ عضویت
    آبان 1392
    محل زندگی
    تهران
    پست
    454

    Rename With CMD

    با سلام من میخوام یک فولدر رو Rename کنم تو شاخه ویندوز ، و از این کد استفاده کردم ولی جواب نگرفتم ممنون مبشم اساتید در صورت اطلاع پاسخ دهید سپاسگزارم

      Dim process As New Process() 
    Dim startInfo As New ProcessStartInfo()
    startInfo.FileName = "cmd.exe"
    startInfo.Arguments = "run as administrator"
    startInfo.Arguments = "net stop wuauserv"
    startInfo.Arguments = "net stop bits"
    startInfo.Arguments = "rename c:\windows\SoftwareDistribution SoftwareDistribution.bak"
    startInfo.Arguments = "net start wuauserv"
    startInfo.Arguments = "net start bits"
    MsgBox("Ok")

  2. #2

    نقل قول: Rename With CMD

    سلام دوست عزیز



    My.Computer.FileSystem.RenameDirectory("نام جدید", "مسیر فایل")
    My.Computer.FileSystem.RenameDirectory("c:\windows \SoftwareDistribution", "SoftwareDistribution2")


  3. #3
    کاربر دائمی آواتار پرستو پارسایی
    تاریخ عضویت
    آبان 1392
    محل زندگی
    تهران
    پست
    454

    نقل قول: Rename With CMD

    ممنونم از پاسخ شما ولی من میخواهم با cmd اینکار رو بکنم این فولدر در جاهای محتلفی از سیستم باز هست و با کد پیشنهادی شما کار نخواهد کرد

  4. #4
    کاربر دائمی آواتار mazoolagh
    تاریخ عضویت
    اردیبهشت 1384
    سن
    71
    پست
    3,030

    نقل قول: Rename With CMD

    میتونین کل دستورها رو در یک بچ فایل بریزین و اون رو اجرا کنین.

  5. #5

    نقل قول: Rename With CMD

    سلام مجدد

    دستوری که باید اجرا بشه بایستی به این صورت باشه






    rename "c:\windows\SoftwareDistribution" "SoftwareDistribution.bak"



  6. #6
    کاربر دائمی آواتار پرستو پارسایی
    تاریخ عضویت
    آبان 1392
    محل زندگی
    تهران
    پست
    454

    نقل قول: Rename With CMD

    نقل قول نوشته شده توسط hamidrezax1 مشاهده تاپیک
    سلام مجدد

    دستوری که باید اجرا بشه بایستی به این صورت باشه






    rename "c:\windows\SoftwareDistribution" "SoftwareDistribution.bak"


    ممنونم از پاسخ شما با Batch file هم اینکار عملی نشد متاسفانه
    فایل های ضمیمه فایل های ضمیمه

  7. #7

    نقل قول: Rename With CMD

    نقل قول نوشته شده توسط پرستو پارسایی مشاهده تاپیک
    با سلام من میخوام یک فولدر رو Rename کنم تو شاخه ویندوز ، و از این کد استفاده کردم ولی جواب نگرفتم ممنون مبشم اساتید در صورت اطلاع پاسخ دهید سپاسگزارم

      Dim process As New Process() 
    Dim startInfo As New ProcessStartInfo()
    startInfo.FileName = "cmd.exe"
    startInfo.Arguments = "run as administrator"
    startInfo.Arguments = "net stop wuauserv"
    startInfo.Arguments = "net stop bits"
    startInfo.Arguments = "rename c:\windows\SoftwareDistribution SoftwareDistribution.bak"
    startInfo.Arguments = "net start wuauserv"
    startInfo.Arguments = "net start bits"
    MsgBox("Ok")
    کاری نمی کنه، صرفا ProcessStartInfo میسازه و سر مقدار Arguments اش هم بلاتکلیف ئه و مدام مقدار عوض می کنه، یک Process هم ایجاد نمیشه چه برسه به اجرای چندین فرمان.

    ابتدا دسترسی لازم رو برای برنامه مشخص کنید، منوی Project گزینه ...ProjectName Properties زبانه Application دکمه View Windows Settings
    چند سطر requestedExecutionLevel پشت سر هم به عنوان مثال نوشته شده که ازشون عبور کنید.
    پایینتر یک سطر "requestedExecutionLevel level="asInvoker هست که سطر بالا و پایین اش هیچ requestedExecutionLevel دیگری نیست و تک و تنها است.
    مقدار asInvoker اش رو به requireAdministrator تغییر بدهید که مثالش در سطر های بالاتر همون متن هست.

    سپس در پروژه به System.ServiceProcess رفرنس بدهید، منوی Project گزینه ...Add Reference زبانه Assemblies بین موارد لیست شده System.ServiceProcess رو پیدا کنید و رویش کلیک کنید و تیک بزنید و با دکمه OK تایید کنید.

    Dim wuauserv As New ServiceProcess.ServiceController("wuauserv")
    If (wuauserv.Status = ServiceProcess. ServiceControllerStatus.Running) Then
    wuauserv.Stop()
    wuauserv.WaitForStatus( ServiceProcess. ServiceControllerStatus.Stopped)
    End If
    Dim bits As New ServiceProcess.ServiceController ("bits")
    If (bits.Status = ServiceProcess. ServiceControllerStatus.Running) Then
    bits.Stop()
    bits.WaitForStatus( ServiceProcess. ServiceControllerStatus.Stopped)
    End If
    Dim sourceFolder = "C:\Windows\SoftwareDistribution"
    If IO.Directory.Exists(sourceFolder) Then
    Dim destFolder = "C:\Windows\SoftwareDistribution.bak"
    For n = 2 To Integer.MaxValue
    If IO.Directory.Exists(destFolder) = False Then Exit For
    destFolder = "C:\Windows\SoftwareDistribution" & n & ".bak"
    Next
    IO.Directory.Move(sourceFolder, destFolder)
    End If
    wuauserv.Start()
    bits.Start()

  8. #8
    کاربر دائمی آواتار پرستو پارسایی
    تاریخ عضویت
    آبان 1392
    محل زندگی
    تهران
    پست
    454

    نقل قول: Rename With CMD

    نقل قول نوشته شده توسط the king مشاهده تاپیک
    کاری نمی کنه، صرفا ProcessStartInfo میسازه و سر مقدار Arguments اش هم بلاتکلیف ئه و مدام مقدار عوض می کنه، یک Process هم ایجاد نمیشه چه برسه به اجرای چندین فرمان.

    ابتدا دسترسی لازم رو برای برنامه مشخص کنید، منوی Project گزینه ...ProjectName Properties زبانه Application دکمه View Windows Settings
    چند سطر requestedExecutionLevel پشت سر هم به عنوان مثال نوشته شده که ازشون عبور کنید.
    پایینتر یک سطر "requestedExecutionLevel level="asInvoker هست که سطر بالا و پایین اش هیچ requestedExecutionLevel دیگری نیست و تک و تنها است.
    مقدار asInvoker اش رو به requireAdministrator تغییر بدهید که مثالش در سطر های بالاتر همون متن هست.

    سپس در پروژه به System.ServiceProcess رفرنس بدهید، منوی Project گزینه ...Add Reference زبانه Assemblies بین موارد لیست شده System.ServiceProcess رو پیدا کنید و رویش کلیک کنید و تیک بزنید و با دکمه OK تایید کنید.

    Dim wuauserv As New ServiceProcess.ServiceController("wuauserv")
    If (wuauserv.Status = ServiceProcess. ServiceControllerStatus.Running) Then
    wuauserv.Stop()
    wuauserv.WaitForStatus( ServiceProcess. ServiceControllerStatus.Stopped)
    End If
    Dim bits As New ServiceProcess.ServiceController ("bits")
    If (bits.Status = ServiceProcess. ServiceControllerStatus.Running) Then
    bits.Stop()
    bits.WaitForStatus( ServiceProcess. ServiceControllerStatus.Stopped)
    End If
    Dim sourceFolder = "C:\Windows\SoftwareDistribution"
    If IO.Directory.Exists(sourceFolder) Then
    Dim destFolder = "C:\Windows\SoftwareDistribution.bak"
    For n = 2 To Integer.MaxValue
    If IO.Directory.Exists(destFolder) = False Then Exit For
    destFolder = "C:\Windows\SoftwareDistribution" & n & ".bak"
    Next
    IO.Directory.Move(sourceFolder, destFolder)
    End If
    wuauserv.Start()
    bits.Start()
    ممنونم از پاسخ شما بسار عالی و آموزنده . فقط من در ابتدا عرض کرده بودم میخواهم فولدر مورد نظر Rename بشه ولی الان با این کدی که شما لطف فرمودید یک فولدر اضافه شد با همون نام و با یک پسوند دیگر و فولدر مورد نظرم هنوز با همان نام موجوده.
    علت اینکه من میخواهم نام این فولدر را تغییر بدهم نصب ناموفق فریمورک 4 بر روی ویندوز 7 و 8 و 10 هست که در حال حاضر در مورد اجرای این کد در ویندوز 7 این اجرا رو دارم. با rename کردن فولدر مذکور فریم ورک 4 براحتی نصب میشه ولی اگر rename نکنم نصب نمیشه . روی ویندوز 7 بدون آپدیت اجرا کردم نشد روی ویندوز 7 بعد از آپدیت هم نصب نشد ولی با تغییر نام فولدر مذکور در هر دو حالت نصب میشه. ممنون میشم راهنمایی بفرمایید سپاسگزارم

  9. #9

    نقل قول: Rename With CMD

    نقل قول نوشته شده توسط پرستو پارسایی مشاهده تاپیک
    ممنونم از پاسخ شما بسار عالی و آموزنده . فقط من در ابتدا عرض کرده بودم میخواهم فولدر مورد نظر Rename بشه ولی الان با این کدی که شما لطف فرمودید یک فولدر اضافه شد با همون نام و با یک پسوند دیگر و فولدر مورد نظرم هنوز با همان نام موجوده.
    نه، ساختن اون فولدر مربوط به کارکرد سرویس ها است، نه درست عمل نکردن IO.Directory.Move.
    اگر فولدر به درستی و کامل به نام جدید bak جابجا نمیشد پیام خطا دریافت می کردید.
    وقتی اون سرویس ها مجددا اجرا میشن اون فولدر سیستمی بصورت خودکار ایجاد میشه. ایجاد مجدد اون فولدر یک روال عادیه و باید اینطوری باشه.

  10. #10
    کاربر دائمی آواتار پرستو پارسایی
    تاریخ عضویت
    آبان 1392
    محل زندگی
    تهران
    پست
    454

    نقل قول: Rename With CMD

    ممنونم از پاسخ شما و اینکه وقت گذاشتید . فقط سوالی که برام حل نشد اینکه چرا وقتی بصورنت دستی Rename میکنم مشکل حل مبشه و فولدر جدیدی هم ساخته نمیشه و دات نت فریم ورک هم نصب میشه ولی در این حالت که شما لطف فرمودید دات نت 4 نصب نمیشه . آیا راه دیگری برای نصب دات نت 4 بر روی ویندوز 7 هم هست . با اینکه خیلی وقت گذاشتم و جستجو کردم نتیجه مطلوبی نگرفتم از راهنمایی شما سپاسگزارم

  11. #11

    نقل قول: Rename With CMD

    نقل قول نوشته شده توسط پرستو پارسایی مشاهده تاپیک
    ممنونم از پاسخ شما و اینکه وقت گذاشتید . فقط سوالی که برام حل نشد اینکه چرا وقتی بصورنت دستی Rename میکنم مشکل حل مبشه و فولدر جدیدی هم ساخته نمیشه و دات نت فریم ورک هم نصب میشه ولی در این حالت که شما لطف فرمودید دات نت 4 نصب نمیشه . آیا راه دیگری برای نصب دات نت 4 بر روی ویندوز 7 هم هست . با اینکه خیلی وقت گذاشتم و جستجو کردم نتیجه مطلوبی نگرفتم از راهنمایی شما سپاسگزارم
    عرض کردم، نتیجه اجرای سرویس ها است.
    اون دو تا سطر انتهایی مربوط به اجرای سرویس ()wuauserv.Start و ()bits.Start رو که حذف کنید و سرویس ها اجرا نشن دیگه فولدر SoftwareDistribution ایجاد نمیشه.
    مشکلات نصب برنامه ها رو باید از طریق پیام خطا و log ئه Setup شون پیگیری کنید.

    ابزار رفع مشکلات عمومی در نصب NET Framework. ها که اینه :
    https://www.microsoft.com/en-us/down....aspx?id=30135

    اما بجز این ابزار جانبی NET Framework Setup Cleanup Utility. هم هست که برای پاک کردن نصب های مشکل دار ئه و فقط برای کسی مناسبه که با روال نصب Framework های پیشفرض ویندوز آشنا است، اگر تخصصش رو نداشته باشید بهتره سراغش نرید.

تاپیک های مشابه

  1. rename نام دادن فایل
    نوشته شده توسط siyn71 در بخش برنامه نویسی مرتبط با بازی و گرافیک در VB6
    پاسخ: 3
    آخرین پست: جمعه 13 اردیبهشت 1392, 07:57 صبح
  2. سوال: rename کردن فایل های pdf
    نوشته شده توسط ashkaseman در بخش VB.NET
    پاسخ: 5
    آخرین پست: یک شنبه 01 آبان 1390, 11:09 صبح
  3. Rename کردن فایل
    نوشته شده توسط debugger در بخش C#‎‎
    پاسخ: 5
    آخرین پست: سه شنبه 20 اردیبهشت 1390, 19:30 عصر
  4. rename
    نوشته شده توسط karmand در بخش Access
    پاسخ: 3
    آخرین پست: شنبه 04 خرداد 1387, 09:28 صبح
  5. rename
    نوشته شده توسط soheil-vb6 در بخش برنامه نویسی در 6 VB
    پاسخ: 1
    آخرین پست: یک شنبه 18 آذر 1386, 20:25 عصر

قوانین ایجاد تاپیک در تالار

  • شما نمی توانید تاپیک جدید ایجاد کنید
  • شما نمی توانید به تاپیک ها پاسخ دهید
  • شما نمی توانید ضمیمه ارسال کنید
  • شما نمی توانید پاسخ هایتان را ویرایش کنید
  •