Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB .NET > Проверка, может ли textbox.text

Автор: Proxin 21.6.2008, 01:11

Здравствуйте. Надеюсь на вашу помощь.
В общем, ситуация такая: есть текст в текстбоксе. нужно узнать, может ли этот текст служить путём до директории. если нет - выдать соответствующее сообщение. простая проверка на exists не поможет, так как директории ещё не создано. если директории не существует, то нужно её создать.
smile

Автор: Dennnis 21.6.2008, 11:22

Вот такой пример:

Код


namespace ConsoleApplication1
{
    class Program
    {
        static int CreateDir(string path)
        {
            if (path.Trim()[1] != ':') //Только абсолютный путь на локальном компе
            {
                return -1;
            }

            if (System.IO.Directory.Exists(path))
            {
                return 0;
            }

            try
            {
                System.IO.Directory.CreateDirectory(path);
            }
            catch (ArgumentException)
            {
                return -1;
            }

            return 1;
        }

        static void Main(string[] args)
        {
            int result = CreateDir("...");
        }
    }
}

Автор: Proxin 21.6.2008, 11:36

Спасибо, но дайте, пожалуйста, на VB.Net этот код. А то в С# вообще не шарю.

Автор: Dennnis 21.6.2008, 11:47

Цитата(Proxin @ 21.6.2008, 11:36

)

Спасибо, но дайте, пожалуйста, на VB.Net этот код. А то в С# вообще не шарю.

Извини не обратил внимания))
Вот пример на VB.NET:

Код


Public Module Module1

    Function CreateDir(ByVal path As String) As Integer

        If path.Trim()(1) = ":" Then 'Только абс. путь
            CreateDir = -1
            Exit Function
        End If

        If System.IO.Directory.Exists(path) Then
            CreateDir = 0
            Exit Function
        End If

        Try
            System.IO.Directory.CreateDirectory(path)
        Catch ex As ArgumentException
            CreateDir = -1
            Exit Function

        End Try

        CreateDir = 1
    End Function

    Sub Test()
        Dim a
        a = CreateDir("...")
    End Sub

End Module