الوسوم:
  1. м̨я.ǚs̲ǝя

    м̨я.ǚs̲ǝя <div style="border-right: 5px solid; padding: 2px ExpErt DeveloPer

    الأنتساب:
    ‏16 ابريل 2014
    المشاركات:
    437
    الإعجابات المتلقاة:
    13
    نقاط الجائزة:
    18
    الإقامة:
    ★ الكردستان ★
    [​IMG]

    [​IMG]
    [​IMG]
    [YOUTUBE]sbJ_0aTeoJg[/YOUTUBE]
    [​IMG]
    [ كےـۅدُ ]
    [NOTE]Imports System.IO
    Imports System.Drawing
    Imports System.Windows.Forms
    Public Class Form1
    Public status As String

    Private arr As String() = New String(5) {}
    Private Sub Folder_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    status = ""

    arr(0) = ".{2559a1f2-21d7-11d4-bdaf-00c04f60b9f0}"

    arr(1) = ".{21EC2020-3AEA-1069-A2DD-08002B30309D}"

    arr(2) = ".{2559a1f4-21d7-11d4-bdaf-00c04f60b9f0}"

    arr(3) = ".{645FF040-5081-101B-9F08-00AA002F954E}"

    arr(4) = ".{2559a1f1-21d7-11d4-bdaf-00c04f60b9f0}"

    arr(5) = ".{7007ACC7-3202-11D1-AAD2-00805FC1270E}"


    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    status = arr(0)



    If FolderBrowserDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then



    Dim d As DirectoryInfo = New DirectoryInfo(FolderBrowserDialog1.SelectedPath)

    Dim selectedpath As String = d.Parent.FullName + d.Name

    ProgressBar1.Value = 35

    If FolderBrowserDialog1.SelectedPath.LastIndexOf(".{") = -1 Then



    If (Not d.Root.Equals(d.Parent.FullName)) Then

    d.MoveTo(d.Parent.FullName & "\" & d.Name & status)

    Else

    d.MoveTo(d.Parent.FullName + d.Name & status)

    End If

    TextBox1.Text = FolderBrowserDialog1.SelectedPath
    ProgressBar1.Value = 70

    ' PictureBox1.Image = Image.FromFile(Application.StartupPath & "\lock.jpg")
    ProgressBar1.Value = 100
    Else

    status = getstatus(status)



    d.MoveTo(FolderBrowserDialog1.SelectedPath.Substring(0, FolderBrowserDialog1.SelectedPath.LastIndexOf(".")))

    TextBox1.Text = FolderBrowserDialog1.SelectedPath.Substring(0, FolderBrowserDialog1.SelectedPath.LastIndexOf("."))

    ' PictureBox1.Image = Image.FromFile(Application.StartupPath & "\unlock.jpg")



    End If

    End If


    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    status = arr(1)



    If FolderBrowserDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then



    Dim d As DirectoryInfo = New DirectoryInfo(FolderBrowserDialog1.SelectedPath)

    Dim selectedpath As String = d.Parent.FullName + d.Name



    If FolderBrowserDialog1.SelectedPath.LastIndexOf(".{") = -1 Then



    If (Not d.Root.Equals(d.Parent.FullName)) Then

    d.MoveTo(d.Parent.FullName & "\" & d.Name & status)

    Else

    d.MoveTo(d.Parent.FullName + d.Name & status)

    End If

    TextBox1.Text = FolderBrowserDialog1.SelectedPath

    'PictureBox1.Image = Image.FromFile(Application.StartupPath & "\lock.jpg")

    Else

    status = getstatus(status)



    d.MoveTo(FolderBrowserDialog1.SelectedPath.Substring(0, FolderBrowserDialog1.SelectedPath.LastIndexOf(".")))

    TextBox1.Text = FolderBrowserDialog1.SelectedPath.Substring(0, FolderBrowserDialog1.SelectedPath.LastIndexOf("."))

    ' PictureBox1.Image = Image.FromFile(Application.StartupPath & "\unlock.jpg")



    End If

    End If

    End Sub
    Private Function getstatus(ByVal stat As String) As String

    For i As Integer = 0 To 5

    If stat.LastIndexOf(arr(i)) <> -1 Then

    stat = stat.Substring(stat.LastIndexOf("."))

    End If

    Next i

    Return stat

    End Function

    End Class[/NOTE]
    [​IMG]
    Mr.KuRd​
     
  2. яσ¢к нα¢кєя

    яσ¢к нα¢кєя Developer

    الأنتساب:
    ‏24 مارس 2012
    المشاركات:
    67
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    6
    الإقامة:
    Taif
    رد: ♥ [شرح عمل قفل مجلد ] ♥

    الله يعطيك العافيه موضوع مميز ..

    بالتوفيق يابعدي:{1}:
     
  3. ★ قبعة القش ★

    ★ قبعة القش ★ V • I • P

    الأنتساب:
    ‏10 مايو 2014
    المشاركات:
    447
    الإعجابات المتلقاة:
    16
    نقاط الجائزة:
    18
    رد: ♥ [شرح عمل قفل مجلد ] ♥

    تسلم إيدك حبيبي
     
  4. м̨я.ǚs̲ǝя

    м̨я.ǚs̲ǝя <div style="border-right: 5px solid; padding: 2px ExpErt DeveloPer

    الأنتساب:
    ‏16 ابريل 2014
    المشاركات:
    437
    الإعجابات المتلقاة:
    13
    نقاط الجائزة:
    18
    الإقامة:
    ★ الكردستان ★
    رد: ♥ [شرح عمل قفل مجلد ] ♥

    яσ¢к нα¢кєя : شكر أخى عزيزى
    XaY_Tn : شكر أخى عزيزى
     
  5. TuRKiE

    TuRKiE Developer

    الأنتساب:
    ‏11 يونيو 2012
    المشاركات:
    16
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    3
    الإقامة:
    IQ-T34M
    رد: ♥ [شرح عمل قفل مجلد ] ♥

    سلمت يداك اخي الكريم

    )4:"
     
  6. м̨я.ǚs̲ǝя

    м̨я.ǚs̲ǝя <div style="border-right: 5px solid; padding: 2px ExpErt DeveloPer

    الأنتساب:
    ‏16 ابريل 2014
    المشاركات:
    437
    الإعجابات المتلقاة:
    13
    نقاط الجائزة:
    18
    الإقامة:
    ★ الكردستان ★
    رد: ♥ [شرح عمل قفل مجلد ] ♥

    شكر أخى bl"eh"
     
  7. ĸʜɜʟɛɒ

    ĸʜɜʟɛɒ Active DeveloPer

    الأنتساب:
    ‏3 نوفمبر 2012
    المشاركات:
    102
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    18
    الإقامة:
    Gaza
    رد: ♥ [شرح عمل قفل مجلد ] ♥

    :{8}: Good Job Bro :{8}:​
     
  8. м̨я.ǚs̲ǝя

    м̨я.ǚs̲ǝя <div style="border-right: 5px solid; padding: 2px ExpErt DeveloPer

    الأنتساب:
    ‏16 ابريل 2014
    المشاركات:
    437
    الإعجابات المتلقاة:
    13
    نقاط الجائزة:
    18
    الإقامة:
    ★ الكردستان ★
    رد: ♥ [شرح عمل قفل مجلد ] ♥

    thank you
     

مشاركة هذه الصفحة