CRIAR UM DIRETORIO NO DISCO

USUARIO.EXCLUIDOS 13/12/2003 19:02:15
#908 Resposta escolhida

E se por exemplo :
Pra eu criar um Diretório
ex: c:\windows\desktop    este000
como eu uso o MkDir?
Valeu!!!

USUARIO.EXCLUIDOS 13/12/2003 19:57:54
#912

vlew!!!
Mas estou c/ uma dúdida! e Pra eu Copiar Arquivos?

Private Sub Command1_Click()
FileCopy ("c:\WINDOWS\Desktop\My Shared Folder\*.mp3"), ("c:\windows\desktop\Musicas")
End Sub

assim não está funcionando!
Como é?
Valeu Amigo!

USUARIO.EXCLUIDOS 13/12/2003 20:23:44
#914

Não existe um "meio" de se copiar varios arquivos de mesma extensão
de uma pasta pra outra?
Porque não dá pra prever o nome nem a quantidade (já que é uma pasta de musicas diferentes e conteúdo )
Existe alguma rotina pra isso?
Valew!!!

USUARIO.EXCLUIDOS 13/12/2003 21:25:54
#926

Funciona SIM!! pERFECT!


Private Sub cmdCopia_Click()
MsgBox "Aguarde a Transferência dos Arquivos Musicais!", vbCritical
File1.Path = ("C:\WINDOWS\Desktop\My Shared Folder")
Dim i As Integer
Dim arq1 As String, arq2 As String


For i = 0 To File1.ListCount - 1
arq1 = File1.Path & "\" & File1.List(i)
arq2 = txtCopiarPara & "c:\windows\desktop\Musicas\" & File1.List(i)

Call FileCopy(arq1, arq2)
Next
MsgBox "Arquivos Musicais Transferidos Com Exito!", vbInformation

End Sub

Private Sub cmdSair_Click()
Unload Me
End Sub

Private Sub File1_Click()
Dim i As Integer
Dim arq1 As String, arq2 As String
End Sub

Private Sub Form_Load()
File1.Path = ("C:\WINDOWS\Desktop\My Shared Folder")

End Sub

Valeu!!! Testado e Aprovado!
Mas tem como colocar uma barra de PROGRESSO da Cópia dos Arquivos?
ok