|
Hallo zusammen,
ich möchte mit Hilfe eines Barcodescanners eine 6 stellige Zahl in die Zelle "A1" einscannen, die gleichzeitig auch der Dateiname ist, der verschoben werden soll (z.B. 601713.prg).
Nach Einlesen der 6 stelligen Zahl, soll die Datei automatisch gesucht und in ein anderes Verzeichnis verschoben werden (von C:\Masterwood\ nach E:\bearbeitet\).
Ich glaube, ich habe etwas passendes im Netz gefunden und auch angepasst. Allerdings passiert überhaupt nichts, es kommt auch keine Fehlermeldung. Könnt Ihr mir helfen?
Sub copyFile()
Dim objFSO As Object
Dim strFileToCopy, strOldPath As String, strNewPath As String
strOldPath = "C:\Masterwood\" 'Verzeichnis in dem die Datei liegt
strNewPath = "E:\bearbeitet\" 'Verzeichnis in welches kopiert werden soll
With ActiveSheet
strFileToCopy = .Range("A1") 'Zelle mit dem Namen
strFileToCopy = strFileToCopy & ".prg" 'Suffix anhängen
If Dir(strOldPath & strFileToCopy, vbNormal) <> "" Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.copyFile strOldPath & strFileToCopy, strNewPath & strFileToCopy
End If
End With
Set objFSO = Nothing
End Sub
|