1. 3 Tane Button Ekleyin , Textleri : "Kilitle" , "Kilidi Coz" ve "Gozat" Olsun.
2. 2 Tane TextBox Ekleyin ve Textlerini Silin.
3. 2 Tane Label Ekleyin ve Birinin Text'i "Dosya Adı" , Diğerinin Text'i "Dosya Konumu" Olsun. TextBox 'ların Ustune Koyun.
4. 1 Tane Folderbrowser Ekleyin.

Kod Bolumunun En Ustune Şu odları Girin ;

Kod:
Imports System.IO
Kilitle Butonunun Kodu ;

Kod:
Dim text1 as string = "." Shell("cmd /c" & "ren " & TextBox1.Text & " " & TextBox2.Text & Text1) Shell("cmd /c" & "attrib +s +h " & TextBox1.Text & ".*.*" & " /S /D") Shell("cmd /c" & "attrib +s +h " & TextBox1.Text & "." & " /S /D")
Kilidi Coz Butonunun Kodu ;

Kod:
Dim text1 as string = "." Shell("cmd /c" & "attrib -s -h " & TextBox1.Text & "." & " /S /D") Shell("cmd /c" & "attrib -s -h " & TextBox1.Text & ".*.*" & " /S /D") System.Threading.Thread.Sleep(1000) Shell("cmd /c" & "ren " & TextBox1.Text & Text1 & " " & TextBox2.Text)
Gozat Butonunun Kodu ;

Kod:
FolderBrowserDialog1.ShowDialog() TextBox1.Text = FolderBrowserDialog1.SelectedPath Dim last = Path.GetFileName(FolderBrowserDialog1.SelectedPath ) TextBox2.Text = last TextBox1.Text = TextBox1.Text.Replace(".", "") TextBox2.Text = TextBox2.Text.Replace(".", "")

Not : Alıntıdır , Turkce Ceviriyi Kendim Yaptım.
__________________