[Uzvern]

Всем спасибо. С поиском разобрался, только пока что он работет только в одну сторону :

Код:

Public Class Form1
    Dim FindingString As String = "asdgfsdfgsdfgsdfgStringsdfgsdfgsdfgStringsdfgsdfgsdfgString"
    Dim FindString As String = "String"
    Dim FirstTemp As String = ""
    Dim SecondTemp As String = ""
    Dim ValidateTemp As Integer = 0

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If ValidateTemp = 0 Then
            ValidateTemp = 1
            FirstTemp = FindingString
            SecondTemp = Mid(FirstTemp, InStr(FirstTemp, FindString))
            FirstTemp = SecondTemp
            MsgBox(FirstTemp)
        Else
            SecondTemp = Mid(FirstTemp, InStr(FirstTemp, FindString) + Len(FindString))
            FirstTemp = SecondTemp
            SecondTemp = Mid(FirstTemp, InStr(FirstTemp, FindString))
            FirstTemp = SecondTemp
            MsgBox(FirstTemp)
        End If
    End Sub
End Class

Думал не допру как сделать, но бошка походу варит если сделал.


С созданием папок тоже разобрался (Правда приходится создавать через cmd) :

Код:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Shell("cmd /C MD C:\123", AppWinStyle.Hide)
        End
    End Sub
End Class