Jump to content

[resolvido] criar ficheiro


Recommended Posts

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

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

Link to post
Share on other sites

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

Link to post
Share on other sites

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)

Link to post
Share on other sites

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

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.