[resolvido] criar ficheiro

[dio123]

Tenho uma form  registo_empresa,  e tenho um botao onde abre uma janela para escolhermos a imagem que queremos e depois mostra numa picturebox  a imagem que escolhemos. Queria que cria-se uma pasta no  no c:\ para guardar as fotos abertas.

Nao consigo que crie uma pasta no c:\  , apenas consegui criar na pasta bin do programa.

System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase).Replace("c:\", "\imagens\")

agradecia

Dim dialog As New OpenFileDialog
        With dialog
            .Filter = "Tipos de imagens aceites (JPEG, BMP)|*.jpg; *.bmp"
            .CheckFileExists = True
            .CheckPathExists = True
            .Multiselect = False
            .ShowDialog()
        End With
        Dim a = My.Computer.FileSystem.CurrentDirectory
        If dialog.FileName <> String.Empty Then
            Dim destino As String = System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase).Replace("c:\", "\imagens\")
            destino = destino.Substring(6)
            If My.Computer.FileSystem.DirectoryExists(destino) = False Then
                My.Computer.FileSystem.CreateDirectory(destino)
            End If
            destino = destino & dialog.SafeFileName
            IO.File.Copy(dialog.FileName, destino)
            te.Text = dialog.SafeFileName
            Dim Imagem As New Bitmap(dialog.FileName)
            picImagem.Image = Imagem

        End If
        'My.Computer.FileSystem. = a
        dialog.Dispose()


    End Sub

[Caça]

'Substituis
Dim destino As  String = System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase).Replace("c:\", "\imagens\")

'Por
Dim destino As  String = "C:\Imagens"

[dio123]

boas,

trocei por Dim destino As  String = "C:\Imagens" , mas o que acontece e que a pasta imagens e criada na pasta bin do programa.

[Caça]

Então apaga esta linha

destino = destino.Substring(6)

e mais abaixo substitui

destino =  destino & dialog.SafeFileName
'por
destino = destino & "\" & dialog.SafeFileName

[dio123]

boas,

já consegui criar a pasta no c:\  , ja consigo apagar a pasta.

Agora queria apenas apagar o conteúdo de uma pasta.

Andei a procura e só encontrei este, mas apaga a pasta  e o conteudo.

My.Computer.FileSystem.DeleteDirectory("C:\teste", FileIO.DeleteDirectoryOption.DeleteAllContents)

[Caça]

boas,

já consegui criar a pasta no c:\  , ja consigo apagar a pasta.

Agora queria apenas apagar o conteúdo de uma pasta.

Andei a procura e só encontrei este, mas apaga a pasta  e o conteudo.

My.Computer.FileSystem.DeleteDirectory("C:\teste", FileIO.DeleteDirectoryOption.DeleteAllContents)

      For Each f As String In My.Computer.FileSystem.GetFiles("C:\Imagens")
            My.Computer.FileSystem.DeleteFile(f)
      Next

[dio123]

boas,

obrigado caça, pela a ajuda. Vou avançar mais um bocado na pap.

[dio123]

como faço uma condição  para saber se já existe a imagem na pasta de destino?

[Caça]

Faz um FileExists.