Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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

Frage Entwicklung Visual Studio

Mitglied: Haegar75

Haegar75 (Level 1) - Jetzt verbinden

05.12.2008, aktualisiert 09.12.2008, 5072 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
gelöst Dateipfad ausgeben (2)

Frage von tegwert zum Thema Batch & Shell ...

Visual Studio
Vb.net Datenfelder aus Word 2003 Dokument auslesen (3)

Frage von Herbrich19 zum Thema Visual Studio ...

Visual Studio
Srv records aus dem dns abfragen unter vb.net (14)

Frage von Herbrich19 zum Thema Visual Studio ...

Batch & Shell
gelöst Datei zeilenweise auslesen - es passiert aber nichts (3)

Frage von Nagus zum Thema Batch & Shell ...

Neue Wissensbeiträge
Multimedia

Raspberry Pi als Digital-Signage-Computer

(1)

Information von BassFishFox zum Thema Multimedia ...

Windows Update

Novemberpatches und Nadeldrucker bereiten Kopfschmerzen

(15)

Tipp von MettGurke zum Thema Windows Update ...

Windows 10

Abhilfe für Abstürze von CDPUsersvc auf Win10 1607 und 2016 1607

(7)

Tipp von DerWoWusste zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Router & Routing
Freigabe aus anderem Netz nicht erreichbar (31)

Frage von McLion zum Thema Router & Routing ...

Visual Studio
Vb.net-Tool zum Erzeugen einer Outlook-E-Mail (24)

Frage von ahstax zum Thema Visual Studio ...

Batch & Shell
Batch Programm verhalten bei shoutdown -p (19)

Frage von Michael-ITler zum Thema Batch & Shell ...

Windows Netzwerk
Netzwerk Neustrukturierung (15)

Frage von IT-Dreamer zum Thema Windows Netzwerk ...