Jump to content
dio123

[resolvido] criar ficheiro

Recommended Posts

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

Share this post


Link to post
Share on other sites
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"


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
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.

Share this post


Link to post
Share on other sites
Caça

Então apaga esta linha

destino = destino.Substring(6)

e mais abaixo substitui

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


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
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)

Share this post


Link to post
Share on other sites
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


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.