Zuviel Werbung? - > Hier kostenlos beim SPS-Forum registrieren

Seite 2 von 5 ErsteErste 1234 ... LetzteLetzte
Ergebnis 11 bis 20 von 50

Thema: Kopieren von .csv Datei

  1. #11
    anze ist offline Benutzer
    Themenstarter
    Registriert seit
    17.11.2015
    Beiträge
    47
    Danke
    0
    Erhielt 0 Danke für 0 Beiträge

    Standard


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    Ja hab ich mir runtergeladen, aber konnte irgendwie nicht angezeigt werden siehe Bild

    Unbenannt.PNG
    Den Beispielcode hab ich gesehen. Aber das ist doch der gleiche Befehl wie ich ihn hab.

  2. #12
    Registriert seit
    06.10.2004
    Ort
    Kopenhagen.
    Beiträge
    4.622
    Danke
    377
    Erhielt 799 Danke für 642 Beiträge

    Standard

    Es heist tatsächlich .CopyFile in Windows, und .FileCopy in Windows CE.

    @anze. In den FAQ unter "Windows" gibt es Beispielcode die du verwenden kannst.
    Hinweis, File System Objekt ist unterschiedlich, abhängig ob in Windows oder Windows CE.
    Jesper M. Pedersen

  3. #13
    anze ist offline Benutzer
    Themenstarter
    Registriert seit
    17.11.2015
    Beiträge
    47
    Danke
    0
    Erhielt 0 Danke für 0 Beiträge

    Standard

    ok. Wo finde ich die FAQ unter Windows? oder meinst du im TIA Portal die Hilfe?

  4. #14
    Registriert seit
    22.06.2009
    Ort
    Sassnitz
    Beiträge
    11.180
    Danke
    923
    Erhielt 3.288 Danke für 2.657 Beiträge

    Standard

    Zitat Zitat von anze Beitrag anzeigen
    Den Beispielcode hab ich gesehen. Aber das ist doch der gleiche Befehl wie ich ihn hab.
    Für mich sieht das irgendwie nicht gleich aus
    Du hast
    Zitat Zitat von anze Beitrag anzeigen
    Code:
    Set filesystem = CreateObject("FileCtl.Filesystem")
    [...]
    filesystem.FileCopy "C:\Users\Desktop\Archiv\test.csv", "C:\Users\Desktop\Archiv2\test &Jahr&"_"&Monat&"_"&Tag&"_"&Stunde&"_"&Minute_&".csv"

    Der Beispielcode zeigt:
    Zitat Zitat von PN/DP Beitrag anzeigen
    Wenn Du mehrere Dateien nach Muster (z.B. "2015*.csv") oder alle Dateien ("*.*") eines Ordners in einen anderen Ordner kopieren willst, dann ist die CopyFile-Methode besser geeignet.
    Code:
    fso.CopyFile Quelle, Ziel[, Überschreiben]

    Daraus solltest Du etwa sowas machen:
    Code:
    Dim fso, t, s
    
    t = Now ' Systemzeit
    s = DatePart("yyyy", t) & Right("0" & DatePart("m", t), 2) & Right("0" & DatePart("d", t), 2) & "_" _
      & Right("0" & DatePart("h", t), 2) & Right("0" & DatePart("n", t), 2)
    
    On Error Resume Next
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.CopyFile "C:\Users\Desktop\Archiv\test.csv", "C:\Users\Desktop\Archiv2\test_" & s &".csv"
    Harald
    Es ist immer wieder überraschend, wie etwas plötzlich funktioniert, sobald man alles richtig macht.

    FAQ: Linkliste SIMATIC-Kommunikation über Ethernet

  5. #15
    Registriert seit
    06.10.2004
    Ort
    Kopenhagen.
    Beiträge
    4.622
    Danke
    377
    Erhielt 799 Danke für 642 Beiträge

    Standard

    Also, ist das Windows (PC) oder Windows CE (Panel) ?
    Das ist bis jetzt nicht beantwortet.

    @Harald.
    "set fso = createobject("Scripting.Filesystemobjekt") ist für Windows CE.
    "fso.copyfile" ist für PC Windows.
    Jesper M. Pedersen

  6. #16
    anze ist offline Benutzer
    Themenstarter
    Registriert seit
    17.11.2015
    Beiträge
    47
    Danke
    0
    Erhielt 0 Danke für 0 Beiträge

    Standard

    Hab das von Harald ausprobiert und es geht leider nicht. Ich nutze Windows (PC).

  7. #17
    Registriert seit
    22.03.2007
    Ort
    Detmold (im Lipperland)
    Beiträge
    11.716
    Danke
    398
    Erhielt 2.398 Danke für 1.998 Beiträge

    Standard

    Code:
    Set fs = CreateObject("Scripting.FileSystemObject")
    fs.CopyFile QuellDatei , ZielDatei
    Der obige Code sollte funktionieren.
    Wenn es bei dir nicht funktioniert - welche Meldung gibt es denn ?
    Existiert die Quelldatei, das Ziel-Verzeichnis ?

    Gruß
    Larry

  8. #18
    anze ist offline Benutzer
    Themenstarter
    Registriert seit
    17.11.2015
    Beiträge
    47
    Danke
    0
    Erhielt 0 Danke für 0 Beiträge

    Standard

    Das funktioniert auch nicht. Es kommen keine Fehlermeldungen.
    Die Quelldatei und das Zielverzeichnis existieren auch.
    Woran kann das noch liegen?

  9. #19
    anze ist offline Benutzer
    Themenstarter
    Registriert seit
    17.11.2015
    Beiträge
    47
    Danke
    0
    Erhielt 0 Danke für 0 Beiträge

    Standard

    das skript sieht so aus (nur nochmal zur sicherheit)

    Code:
    Dim fs
    
    Set fs = CreateObject("Scripting.FileSystemObject")
    fs.CopyFile "C:\Users\Desktop\Archiv\test.csv", "C:\Users\Desktop\Archiv2\test.csv"

  10. #20
    anze ist offline Benutzer
    Themenstarter
    Registriert seit
    17.11.2015
    Beiträge
    47
    Danke
    0
    Erhielt 0 Danke für 0 Beiträge

    Standard


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    Ich bin am verzweifeln. ich hoffe es kann mir noch jemand helfen

Ähnliche Themen

  1. Antworten: 7
    Letzter Beitrag: 27.02.2015, 17:04
  2. Antworten: 5
    Letzter Beitrag: 29.10.2013, 10:57
  3. CSV Datei von MP377 USB Stick auslesen
    Von DJMetro im Forum HMI
    Antworten: 11
    Letzter Beitrag: 23.08.2010, 16:51
  4. Von MMC auf USB die Logs datei kopieren
    Von zvende im Forum HMI
    Antworten: 0
    Letzter Beitrag: 20.05.2010, 16:07
  5. Import per Makro von csv Datei!?
    Von Ide im Forum PC- und Netzwerktechnik
    Antworten: 14
    Letzter Beitrag: 27.01.2009, 14:39

Lesezeichen

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •