Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

mappen kopieren in VBA

webspider
4 antwoorden
  • met onderstaande code lukt het me om [b:39ba98fab6]specifieke bestanden [/b:39ba98fab6]te kopieren
    Private Sub Knop3_Click()
    Dim SourceFile, DestinationFile
    SourceFile = "het bronbestand"
    DestinationFile = "het doelbestand"
    FileCopy SourceFile, DestinationFile
    End Sub

    maar hoe kan ik [b:39ba98fab6]een gehele map[/b:39ba98fab6] in een keer van a naar b kopieren?

    bvd PZ
  • [code:1:45f56a0996]Option Compare Database
    Option Explicit
    Private Type SHFILEOPSTRUCT
    hwnd As Long
    wFunc As Long
    pFrom As String
    pTo As String
    fFlags As Integer
    fAnyOperationsAborted As Long
    hNameMappings As Long
    lpszProgressTitle As String
    End Type

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

    Private Const FOF_ALLOWUNDO = &H40
    Private Const FOF_NOCONFIRMATION = &H10
    Private Const FO_COPY = &H2

    Private Sub Knop3_Click()
    ShellFileCopy "C:\zz2\*.*", "C:\zzz"
    End Sub

    Public Function ShellFileCopy(src As String, dest As String, _
    Optional NoConfirm As Boolean = False) As Boolean

    'PURPOSE: COPY FILES VIA SHELL API
    'THIS DISPLAYS THE COPY PROGRESS DIALOG BOX
    'PARAMETERS: src: Source File (FullPath) dest: Destination File (FullPath)
    'NoConfirm (Optional): If set to true, no confirmation box
    'is displayed when overwriting existing files, and no
    'copy progress dialog box is displayed
    'Returns (True if Successful, false otherwise)

    'EXAMPLE:
    'dim bSuccess as boolean
    'bSuccess = ShellFileCopy ("C:\MyFile.txt", "D:\MyFile.txt")

    Dim WinType_SFO As SHFILEOPSTRUCT
    Dim lRet As Long
    Dim lflags As Long

    lflags = FOF_ALLOWUNDO
    If NoConfirm = True Then lflags = lflags & FOF_NOCONFIRMATION
    With WinType_SFO
    .wFunc = FO_COPY
    .pFrom = src
    .pTo = dest
    .fFlags = lflags
    End With

    lRet = SHFileOperation(WinType_SFO)
    ShellFileCopy = (lRet = 0)

    End Function

    [/code:1:45f56a0996]
    Bovenstaande code heb ik ooit een van internet gehaald.
    vervang
    FileCopy SourceFile, DestinationFile
    door
    ShellFileCopy SourceFile\*.*, DestinationFile
  • of simpeler: [code:1:3fd38d9634]x=shell "xcopy "+map$+ "/K"[/code:1:3fd38d9634](niet getest)
  • hmm jah maar komt er dan geen dosbox?

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.