Acessando pastas padrões do Windows

O VB possui comandos simples para você acessar arquivos em pastas padrões para os usuários do Windows.

1 - Pasta de arquivos temporários

My.Computer.FileSystem.SpecialDirectories.Temp

2 - Pasta meus documentos

My.Computer.FileSystem.SpecialDirectories.MyDocuments

3 - Pasta minhas imagens

My.Computer.FileSystem.SpecialDirectories.MyPictures

4 - Pastas minhas músicas

My.Computer.FileSystem.SpecialDirectories.MyMusic

5 - Pasta desktop

My.Computer.FileSystem.SpecialDirectories.Desktop

6 - Pasta do menu iniciar

My.Computer.FileSystem.SpecialDirectories.Programs

7 - Pasta de instalação dos programas

My.Computer.FileSystem.SpecialDirectories.ProgramFiles

Você pode utilizar estes códigos, por exemplo, no OpenFileDialog.InitialDirectory

Simples, não?

Como obter informações de arquivos

Para obter informações de arquivos como tamanho, data de criação, caminho e outras, temos os códigos abaixo:

Dim DadosArquivo As System.IO.FileInfo = My.Computer.FileSystem.GetFileInfo("Caminho completo e Nome do Arquivo")

Label1.Text = DadosArquivo.DirectoryName 'o diretório do arquivo

Label2.Text = DadosArquivo.Extension 'a extensão do arquivo

Label3.Text = DadosArquivo.FullName 'o caminho e o nome do arquivo

Label4.Text = DadosArquivo.LastAccessTime 'a data e hora do último acesso ao arquivo

Label5.Text = DadosArquivo.LastWriteTime 'a data e hora do última modificação do arquivo

Label6.Text = DadosArquivo.Length 'o tamanho, em bytes, do arquivo

Label7.Text = DadosArquivo.Name 'o nome do arquivo

Label8.Text = DadosArquivo.Exists 'se o arquivo existe

Simples, não?

Como utilizar o OpenFileDialog para abrir determinados tipos de arquivos

Para utilizar o OpenFileDialog para abrir determinados tipos de arquivos utilize os comandos abaixo:

OpenFileDialog1.InitialDirectory() = "Diretório Inicial"

Este comando determina qual diretório será o diretório inicial quando o OpenFileDialog abrir. Você pode colocar os comandos para os diretórios padrões do Windows, exemplos:

OpenFileDialog1.InitialDirectory() = "C:\Windows"
OpenFileDialog1.InitialDirectory() = My.Computer.FileSystem.SpecialDirectories.MyDocuments
OpenFileDialog1.FileName = "Tipo de Arquivo"

Este comando aplica um texto no campo Nome do Arquivo no OpenFileDialog quando este for aberto.

OpenFileDialog1.Filter = "Descrição da Extensão 1(*.Extensão1)|*.Extenção1|Descrição da Extensão2 (*.Extensão2)|*.Extensão2"

Este comando aplica um filtro no OpenFileDialog para abrir somente os arquivos determinados por você. Exemplos:

OpenFileDialog1.InitialDirectory() = My.Computer.FileSystem.SpecialDirectories.MyDocuments
OpenFileDialog1.FileName = "Documentos do Word"
OpenFileDialog1.Filter = "Documentos do Word (*.docx)|*.docx|Documentos do Word 93-2003 (*.doc)|*.doc"

Neste exemplo cada tipo de arquivo é associado a apenas uma extensão.

OpenFileDialog1.InitialDirectory() = My.Computer.FileSystem.SpecialDirectories.MyMusic
OpenFileDialog1.Filter = "Som wave (*.wav,*.wave)|*.wav;*.wave"
OpenFileDialog1.FileName = "Som wave"

Neste exemplo um tipo de arquivo está associado com duas extensões.

OpenFileDialog1.ShowDialog()

Este comando mostra o OpenFileDialog

Simples, não?

Como agregar arquivos no seu aplicativo para utilizá-los a qualquer hora

O VB possui uma parte que você pode agregar qualquer arquivo não executável para utilizá-lo a qualquer hora e de maneira muito prática. Esta parte chama-se Resources. Ela está disponível como uma aba nas Propriedades do seu projeto. Você pode acessá-la dando dois cliques em My Project em Solution Explorer ou em propriedades do seu projeto no menu Project.

Você pode adicionar ao seu projeto frases (Strings), arquivos de áudio, figuras, ícones e outros arquivos.

Para utilizar estes arquivos basta o seguinte comando:

My.Resources.Nome do Arquivo

Exemplos:

My.Computer.Sound.Play(My.Resources.Audio, AudioPlayMode.Background)

Label1.Image = My.Resources.Imagem

Simples, não?