Alguem sabe como copiar todos os arquivo da unidade D(cdrom) para a unidade C(HD) sem exibir o processo de cópia do windows

olha nao sei como faz?

Mas tenho uma ideia para te dar, a sua soluçao + viavel é atraves de comandos via VB no Registro do Windows.

Ou, mexe com o regedit em alguma chave ou valor do registro, pois este regedit é um editor gráfico do Registro do Windows.

Mas caso tenha fuçado e descobriu, me faz um favor, me manda no meu e-mail, pois isto é interessante, cara!

 

Falô

Existe uma sintaxe, mas está dando esse erro "Path/Flie access error "

Dim ori, des
Dim a As String
ori = ("d:aaATICSUD.exe")
des = ("d:ab")
FileCopy ori, des

Pessoal estou precisando disso urgente

Olá! Está dando erro porque você está tentando copiar o arquivo para a unidade de CD que é somente leitura. Você não queria copiar pro HD? O erro está no destino.

 

Flw!

Veja função CopyFolder usando a API SHFileOperation:

 

Option Explicit

Public Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

Public Type SHFILEOPSTRUCT
    hWnd As Long
    wFunc As Long
    pFrom As String
    pTo As String
    fFlags As Integer
    fAborted As Boolean
    hNameMaps As Long
    sProgress As String
End Type

Public Const FO_COPY = &H2
Public Const FOF_CONFIRMMOUSE = &H2
Public Const FOF_SILENT = &H4
Public Const FOF_NOCONFIRMATION = &H10
Public Const FOF_NOCONFIRMMKDIR = &H200

Public Function CopyFolder(FromFolder As String, ToFolder As String) As Boolean

   Dim SHDirOp As SHFILEOPSTRUCT
  
   With SHDirOp
      .wFunc = FO_COPY
      .pFrom = FromFolder
      .pTo = ToFolder
      .fFlags = FOF_SILENT Or FOF_NOCONFIRMATION Or FOF_NOCONFIRMMKDIR Or FOF_CONFIRMMOUSE
   End With
  
   CopyFolder = (SHFileOperation(SHDirOp) = 0)

End Function

 

Public Sub Main()
   CopyFolder "d:\Artigos", "c:\CopiaArtigos"
End Sub

mesmo quando copia da unidade c para c dá o problema. eu tenho 2 hds