Lezen, kopieren en usb stick leegmaken.

[MrBob]

helaas werkt dit niet

 

[HSV]

Tja, dat wordt gokken.

.deletefolder DrL & ":\boekhouding_1[COLOR=#ff0000]\Uitkomst[/COLOR]"

 

[MrBob]

ik heb het voor mekaar. :d

Private Sub CommandButton1_Click()
 flpic
 If sFile <> "" Then
    With CreateObject("scripting.filesystemobject")
     .copyfolder DrL & ":\boekhouding_1", sFile & "\"
     .deletefolder DrL & ":[COLOR="#FF0000"]/[/COLOR]boekhouding_1", True
    End With
  CommandButton1.Enabled = False
 End If
End Sub

En het werkt nu zoals we willen :d
Zal het bestandje helemaal klaar maken en hem aan een post hangen, misschien heeft er iemand anders ook nog iets aan.

Enige dat ik nu nog wil is dat de map boekhouding_1 een date en tijd krijgt als prefix op de schijf. Dus in mijn geval :

C:\users\MrBob\desktop\Boekhouding_1_07-04-2019_18:31 nog een tip hiervoor @Hsv

Edit: het bestandje erbij geplaatst.

 

[HSV]

Wat vreemd dat je het scheidingsteken van een MAC moet gebruiken, maar als dat werkt dan vind ik dat prima. :thumb:

Een aanpassing nog voor de naamsverandering.

Private Sub CommandButton1_Click()
 flpic
 If sFile <> "" Then
    With CreateObject("scripting.filesystemobject")
     .copyfolder DrL & ":\Boekhouding_1", sFile & "\"
     .deletefolder DrL & ":/boekhouding_1"
[COLOR=#ff0000]     Name sFile & "\boekhouding_1" As sFile & "\boekhouding_1_" & Format(Now, "dd-mm-yyyy hh_mm_ss")[/COLOR]
    End With
  CommandButton1.Enabled = False
 End If
End Sub

 

[MrBob]

@Hsv

Helemaal super en dit werkt meteen. Hier kan ik verder mee waarvoor mijn dank. :thumb:

Schiet me nog 1 vraag binnen en dan ben ik ermee klaar.

Als ik nu op de knop druk moet ik steeds de locatie kiezen, kan dit ook door mij worden vastgezet waar de file naartoe moet zonder dat dit word gevraagd en wat moet ik hiervoor veranderen als ik wil dat de file word opgeslagen in C:\Users\MrBob\Desktop\Boekhouding\1\ bijvoorbeeld.

 

[HSV]

Private DrL As String


Private Sub CommandButton1_Click()
    With CreateObject("scripting.filesystemobject")
     .copyfolder DrL & ":\Boekhouding_1",[COLOR=#ff0000] "C:\Users\MrBob\Desktop\Boekhouding\1\"[/COLOR]
     .deletefolder DrL & ":\boekhouding_1"
     Name[COLOR=#ff0000] "C:\Users\MrBob\Desktop\Boekhouding\1\boekhouding_1" [/COLOR]As [COLOR=#ff0000]"C:\Users\MrBob\Desktop\Boekhouding\1\boekhouding_1_" & Format(Now, "dd-mm-yyyy hh_mm_ss")[/COLOR]
    End With
  CommandButton1.Enabled = False
End Sub

En verwijder dit:

Function flpic()
With Application.FileDialog(msoFileDialogFolderPicker)
  .InitialFileName = "C:\users\MrBob\desktop\"
  If .Show Then sFile = .SelectedItems(1)
 End With
End Function

 

[MrBob]

@Hsv,

Het werkt, wel heb ik nog wel een paar dingen moeten aanpassen.

Ook heb ik nog een MsgBox toegevoegd met de tekst kopiëren is klaar.

Ik zal de werkende laatste versie van mij hier aan deze post hangen, misschien heeft er iemand nog iets aan in de toekomst.

Ik wil jullie allen hierbij bedanken voor jullie geduld en hulp. Ik heb weer mooie nieuwe dingetjes bijgeleerd aangaande Excel dit weekend. :thumb:

Bij deze kan er voor wat mij betreft een slotje op. Dit doe ik later op de avond omdat misschien iemand nog iets kwijt wil na het zien van mijn laatste file.

Mvg,
MrBob