Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Dateipfade aus Datei auslesen mit VB.net

Mitglied: Haegar75

Haegar75 (Level 1) - Jetzt verbinden

05.12.2008, aktualisiert 09.12.2008, 5082 Aufrufe, 6 Kommentare

Hallo Leute,
ich würde gerne mit vb.net eine Datei auslesen in der Dateipfade stehen, die mit Kommas getrennt sind. Die dort angebenen Dateien möchte ich dann vom Netzlaufwerk auf die lokale Platte kopieren. Hat jemand ne Idee?
Vielen Dank im voraus!

Gruß Haegar
Mitglied: bastla
05.12.2008 um 20:05 Uhr
Hallo Haegar75!

Etwa so:
01.
Const Liste As String = "D:\Dateipfade.txt" 
02.
Const Ziel As String = "D:\TEMP" 
03.
 
04.
Dim FS As Object = My.Computer.FileSystem 
05.
Dim Datei As String 
06.
Dim Dateien As String = FS.ReadAllText(Liste) 
07.
 
08.
For Each Datei In Split(Dateien, ",") 
09.
    If FS.FileExists(Datei) Then 
10.
        FS.CopyFile(Datei, Ziel & "\" & FS.GetName(Datei), True) 
11.
    Else 
12.
        MsgBox( _ 
13.
            "Die Datei" & vbCrLf & vbCrLf & _ 
14.
            Datei & _ 
15.
            vbCrLf & vbCrLf & "konnte nicht gefunden werden!", _ 
16.
            MsgBoxStyle.Critical, _ 
17.
            "Datei nicht gefunden ...") 
18.
    End If 
19.
Next
Ev bereits bestehende Zieldateien werden überschrieben.

Grüße
bastla
Bitte warten ..
Mitglied: Haegar75
07.12.2008 um 15:29 Uhr
Danke! Da kann ich erstmal weiterbasteln!
Bitte warten ..
Mitglied: Haegar75
08.12.2008 um 16:30 Uhr
Hi,
paar Tücken haben sich noch aufgetan..
-am Zeilenende steht hinter dem trennenden Komma noch ein & um dem Linker zu sagen, dass es in der nächsten Zeile weitergeht. Wie kann ich das aus dem Filestream filtern um es zu ignorieren?
-der letzte Eintrag ist ,U:\SPK\SPKA0057.lib to XXXXXXXX.LNK wobei alles nach dem .lib nicht dazugehören soll..

Wie kann ich unter vb.net festellen ob ein Netzlaufwerk verbunden (erreichbar) ist?
Bitte warten ..
Mitglied: bastla
09.12.2008 um 01:25 Uhr
Hallo Haegar75!

Mit den entsprechenden Ergänzungen könnte das dann etwa so aussehen:
01.
Const Liste As String = "D:\Dateipfade.txt" 
02.
Const Ziel As String = "D:\TEMP" 
03.
 
04.
Dim FS As Object = My.Computer.FileSystem 
05.
Dim Datei As String 
06.
Dim Dateien As String = FS.ReadAllText(Liste) 
07.
 
08.
Dateien = Replace(Dateien, ",&", ",") 'überflüssige "&" außerhalb eines Dateipfades entfernen 
09.
Dim P As Long = InStrRev(Dateien, ".lib", , CompareMethod.Text)) 
10.
If P > Len(Dateien) - 20 Then 
11.
    'hinter ".lib" abschneiden, falls nahe dem Dateiende (innerhalb der letzten 20 Zeichen) 
12.
    Dateien = Left(Dateien, P + Len(".lib") - 1) 
13.
End If 
14.
 
15.
If Not FS.DirectoryExists(Ziel) Then 'Zielordner vorhanden? 
16.
    MsgBox( _ 
17.
        "Der Ordner" & vbCrLf & vbCrLf & _ 
18.
        Ziel & _ 
19.
        vbCrLf & vbCrLf & "ist nicht verfügbar!", _ 
20.
        MsgBoxStyle.Critical, _ 
21.
        "Ordner nicht gefunden ...") 
22.
Else 
23.
    For Each Datei In Split(Dateien, ",") 
24.
        If FS.FileExists(Datei) Then 
25.
            FS.CopyFile(Datei, Ziel & "\" & FS.GetName(Datei), True) 
26.
        Else 
27.
            MsgBox( _ 
28.
                "Die Datei" & vbCrLf & vbCrLf & _ 
29.
                Datei & _ 
30.
                vbCrLf & vbCrLf & "konnte nicht gefunden werden!", _ 
31.
                MsgBoxStyle.Critical, _ 
32.
                "Datei nicht gefunden ...") 
33.
        End If 
34.
    Next 
35.
End If
Grüße
bastla
Bitte warten ..
Mitglied: Haegar75
09.12.2008 um 13:00 Uhr
1000 Dank! Leider bringt das "FS.FolderExists" eine Exception "Der offentliche Member FolderExists für den Typ FileSystemProxy wurde nicht gefunden." Sollte aber doch das gleiche Objekt sein wie FS.CopyFile oder?
Gruß Haegar
Bitte warten ..
Mitglied: bastla
09.12.2008 um 13:21 Uhr
Hallo Haegar75!

Sorry - da ist mir VBS dazwischengekommen ...

Mit "FS.DirectoryExists" sollte es gehen (ändere ich auch gleich oben).

Grüße
bastla
Bitte warten ..
Ähnliche Inhalte
Batch & Shell

Textdatei mit Dateipfaden auslesen und die Dateien lt. dem Pfad downloaden

gelöst Frage von skiing69Batch & Shell5 Kommentare

Hallo, ich soll von einem Web-Server diverse Dateien automatisiert mit einem Batchprogramm downloaden. Die Dateipfade der einzelnen Dateien stehen ...

Batch & Shell

Dateipfad abgreifen

Frage von Julian2222Batch & Shell4 Kommentare

Hallo, wenn man ja eine Datei öffnet, wird ja der Pfad der Datei dem Standardprogramm welches in Windows hinterlegt ...

VB for Applications

Dateipfad extrahieren

gelöst Frage von Anna2701VB for Applications4 Kommentare

Ich habe folgendes : Filepath = TxtHyperlinkDokument.Hyperlink.Address Nun möchte ich mit Hilfe von Filepath, Filepath_Neu erzeugen, indem nur der ...

Batch & Shell

Dateipfad ausgeben

gelöst Frage von tegwertBatch & Shell2 Kommentare

Hallo zusammen! Ich nutze folgende Zeile zur Ermittlung der Dateipfade einer bestimmten mehrfach vorkommenden Datei: for %%a in (F ...

Neue Wissensbeiträge
Erkennung und -Abwehr

Ups: Einfaches Nullzeichen hebelte den Anti-Malware-Schutzt in Windows 10 aus

Information von kgborn vor 8 StundenErkennung und -Abwehr

Windows 10 ist das sicherste Windows aller Zeiten, wie Microsoft betont. Insidern ist aber klar, das es da Lücken, ...

Windows 10

Windows 10 on ARM: von Microsoft entfernte Info - Klartext, was nicht geht

Information von kgborn vor 10 StundenWindows 10

Windows 10 on ARM ist ja eine neue Variante, die Microsoft im Verbund mit Geräteherstellern am Markt etablieren will. ...

Microsoft
TV-Tipp: Das Microsoft-Dilemma
Information von kgborn vor 11 StundenMicrosoft7 Kommentare

Aktuell gibt es in Behörden und in Firmen eine fatale Abhängigkeit von Microsoft und dessen Produkten. Planlos agieren die ...

Windows 10
Zero-Day-Lücke in Microsoft Edge
Information von kgborn vor 2 TagenWindows 10

In Microsofts Edge-Browser klafft wohl eine nicht geschlossene (0-Day) Sicherheitslücke im Just In Time Compiler (JIT Compiler) für Javascript. ...

Heiß diskutierte Inhalte
Windows 10
Windows 10 (1709) Tastur und Maus wieder einschalten?
Frage von LochkartenstanzerWindows 1026 Kommentare

Moin, Ich habe von einem Kunden einen Win10-Rechner bekommen, bei dem weder Tastatur noch Maus geht. Die Hardware funktioniert ...

Firewall
RB2011 Firewall Rule eine bestimmte Mac oder IP Adresse nicht zu blockieren
Frage von lightmanFirewall15 Kommentare

Hallo liebes Forum mit ihren Spezialisten. Ich habe meine Firewall so konfiguriert das kein Endgerät ohne meine Speziellen Erlaubnis ...

Humor (lol)
Was könnte man mit einem Server machen? Idee gesucht
Frage von 2SeitenHumor (lol)15 Kommentare

Hey Zusammen Ich habe einen alten HP G2 Rackserver zu Hause rumliegen. 28GB Ram, 1xAMD Prozi mit etwa 2GHz. ...

Webbrowser
Welcher Browser ist der Beste?
Frage von justtinWebbrowser13 Kommentare

Hallo Leute Ich habe eine interessante Frage. Mich wurde mal interessieren welcher Browser ist eure meinung nach der beste? ...