PDA

View Full Version : سوال: عوض کردن نام وپسوند فایل ؟



farzan_219
دوشنبه 18 شهریور 1387, 14:05 عصر
من نام وپسوند یکسری فایل رو که در یک فولدر قراردارند رو داخل یک چک لیست باکس
آوردم وحالامی خوام هر کدوم رو که تیک میزنم بتونم با استفاده از یک تکست باکس نامش رو و با استفاده از یک تکست باکس دیگه پسوندش رو عوض بکنم چیکار باید بکنم؟

HadiVB
دوشنبه 25 شهریور 1387, 13:58 عصر
چی کاره ؟بیشتر توضیح بدین!

shahrdar
دوشنبه 25 شهریور 1387, 15:28 عصر
Dim Filename As String = ""
Private Sub CheckedListBox1_ItemCheck(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs) Handles CheckedListBox1.ItemCheck
Filename = CheckedListBox1.Items(e.Index).ToString
CheckedListBox1.Enabled = False
TextBox1.Enabled = True
TextBox2.Enabled = True
End Sub
Private Sub Cmd_Rename_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmd_Rename.Click
My.Computer.FileSystem.RenameFile(Filename, TextBox1.Text & "." & TextBox2.Text)
End Sub
Private Sub Cmd_Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmd_Cancel.Click
CheckedListBox1.Enabled = True
TextBox1.Enabled = False
TextBox2.Enabled = False
End Sub

shahrdar
دوشنبه 25 شهریور 1387, 15:30 عصر
من نميدونم شما چيکار ميخوای بکنی ولی اين چيزيه که ميخواستی
يه توضيح کلی درباره برنامت بده تا بيشتر کمکت کنم