Kopier filer til angivet mappe

en .bat fil?
gem nedenstående i fx kopier.bat - du ska lige oprette c:\db\bmp
c:\
cd\
cd db
cd bmp
a:
xcopy *.bmp c:

that´s it

og ja knappen der kalder bat filen skulle ikke være svært - kan ikke lige huske det, men det er bare at placere en knap i din formular, og så sige den skal kalde x:\kopier.bat

Men hvis nu at jeg skal kunne ændre kilden og destinationen fra en formular
ex. formular settings, field [kilde], field [destination], som så kan ændres, hvordan for jeg dette ind i en bat. fil?

bob bob... godt spørgsmål

Option Compare Database
Option Explicit

Private Sub Kommandoknap0_Click()

  Dim FSO As Scripting.FileSystemObject
  Dim SourceFolder As Scripting.Folder, SubFolder As Scripting.Folder
  Dim FileItem As Scripting.File
 
  Dim souceFile As String
  Dim destFile As String
 
 
  Dim r As Long
    Set FSO = New Scripting.FileSystemObject
    Set SourceFolder = FSO.GetFolder("C:\Niels")

    For Each FileItem In SourceFolder.Files
        souceFile = FileItem.Path
        destFile = "C:\test\" & FileItem.Name
        FSO.CopyFile souceFile, destFile, True
     
    Next FileItem
 
    Set FileItem = Nothing
    Set SourceFolder = Nothing
    Set FSO = Nothing

End Sub

Sæt reference til 'mikrosoft scribting runtime'

copier og OVERSKRIV filer fra c:\niels til c:\test

Niels

Du skifter selvfølgelig de 2 strenge c:\niels og c:\test ud med me.txtbox1 og me.txtbox2 for at gøre koden fleksibel.

Niels

Hej Niels,

Hvad mener du med:

Sæt reference til 'mikrosoft scribting runtime'

Jeg får også en fejl; Compile Error, User-define type not defined.
med markering på linie: FSO As Scripting.FileSystemObject

???
Glenn P

i VBA editoren under funktioner->referencer skal du finde:
            'mikrosoft scribting runtime'
og sætte et hak.

Niels

Glen -> virker det ?????????

Hi Niels,

Det er helt perfekt :)

Glenn P.