Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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

Frage Entwicklung Visual Studio

Mitglied: Haegar75

Haegar75 (Level 1) - Jetzt verbinden

05.12.2008, aktualisiert 09.12.2008, 5040 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 ..
Neuester Wissensbeitrag
Off Topic

"Ich habe nichts zu verbergen"

(2)

Erfahrungsbericht von FA-jka zum Thema Off Topic ...

Ähnliche Inhalte
Basic
gelöst Mit vb.net PDF in Word-Dok einfügen (10)

Frage von ahstax zum Thema Basic ...

PHP
gelöst TXT Datei auslesen und bestimmte Zeilen in Variable setzen (11)

Frage von 126594 zum Thema PHP ...

Visual Studio
gelöst VB.Net - Hilfe bei Regex (8)

Frage von emeriks zum Thema Visual Studio ...

VB for Applications
gelöst Bestimmte Spalten aus CSV-Datei auslesen (VBS) (9)

Frage von Gurkenhobel zum Thema VB for Applications ...

Heiß diskutierte Inhalte
CPU, RAM, Mainboards
Kaufberatung für mind. 8 verschiedene HighEnd-Mainboards (23)

Frage von yperiu zum Thema CPU, RAM, Mainboards ...

Mac OS X
Mac kann nicht im LAN pingen alle anderen schon (19)

Frage von smartino zum Thema Mac OS X ...

Hyper-V
Langsames Netzwerk i210 LAN Karte (10)

Frage von Akcent zum Thema Hyper-V ...

Windows Server
Server 2016 - Kuriositäten (8)

Frage von certifiedit.net zum Thema Windows Server ...