CRIAR SEQUENCIA DE PASTAS

JEFFERMARTINS 03/01/2013 16:13:33
#416690
Boa Tarde Galera!

Estou precisando realizar a criação de uma sequencia de pastas (0001, 0002,0003 ....)Porém estou com dificuldades.
|Vocês podem me ajudar:

Abaixo, fiz um código que cria as pastas, porém, preciso que elas sejam criadas dessa maneira 0001, 0002, 0003... e nao 1, 2, 3.



Imports System.IO
Public Class Form1


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Inicial As String
Dim Final As String

Dim I As Integer

Inicial = TextBox1.Text
Final = TextBox2.Text

For I = Inicial To Final

Try
If Not Directory.Exists([Ô]c:\Empresas\[Ô] & I) Then
Directory.CreateDirectory([Ô]c:\empresas\[Ô] & I)
End If

Catch ex As Exception
MsgBox([Ô](Erro ao criar)[Ô])
End Try
Next

MsgBox([Ô]Pastas criadas com sucesso[Ô])
End Sub
ALEVALE 03/01/2013 17:09:06
#416694
Tà mas qual o erro ?
JEFFERMARTINS 03/01/2013 17:29:27
#416698
Não ocorre erro.
A dificuldade é em deixar os nomes como 0001, 0002, 0003...
Preciso criar uma numeração de 0001 à 1500, todas com 04 digitos.
ALTAIR148 03/01/2013 17:57:08
#416702 Resposta escolhida
Não testei, mas tente com o código abaixo.

Imports System.IO
Public Class Form1


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Inicial As String
        Dim Final As String

        Dim I As Integer

        Inicial = TextBox1.Text
        Final = TextBox2.Text

        For I = Inicial To Final
Dim Pasta as string = i.ToString.PadLeft(4, [Ô]0[Ô])
            Try
                If Not Directory.Exists([Ô]c:\Empresas\[Ô] & Pasta) Then
                    Directory.CreateDirectory([Ô]c:\empresas\[Ô] & Pasta)
                End If

            Catch ex As Exception
                MsgBox([Ô](Erro ao criar)[Ô])
            End Try
        Next

        MsgBox([Ô]Pastas criadas com sucesso[Ô])
    End Sub
JEFFERMARTINS 04/01/2013 09:03:09
#416722
Excelente.
é isso mesmo que eu precisava.

Muito Obrigado.!

Ótimo 2013 à todos.
Tópico encerrado , respostas não são mais permitidas
Voltar