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, 5050 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
Visual Studio
Vb.net Datenfelder aus Word 2003 Dokument auslesen (3)

Frage von Herbrich19 zum Thema Visual Studio ...

Batch & Shell
gelöst Zeiten in .txt datei auslesen und Differenz berechnen (14)

Frage von meex87 zum Thema Batch & Shell ...

VB for Applications
VB.net Combobox databinding langsam (4)

Frage von ForgottenRealm zum Thema VB for Applications ...

Visual Studio
gelöst Vb.net: Word-Doc seitenweise durchsuchen nach Textmarke (7)

Frage von ahstax zum Thema Visual Studio ...

Neue Wissensbeiträge
Windows 10

Windows 8.x oder 10 Lizenz-Key aus dem ROM auslesen mit Linux

(6)

Tipp von Lochkartenstanzer zum Thema Windows 10 ...

Tipps & Tricks

Wie Hackt man sich am besten in ein Computernetzwerk ein

(38)

Erfahrungsbericht von Herbrich19 zum Thema Tipps & Tricks ...

Heiß diskutierte Inhalte
Windows 10
gelöst Windows 10 Home "Netzlaufwerk nicht bereit" (19)

Frage von Oggy01 zum Thema Windows 10 ...

Viren und Trojaner
Verschlüsselungstrojaner simulieren (18)

Frage von AlbertMinrich zum Thema Viren und Trojaner ...

SAN, NAS, DAS
+100tb Storagelösung (11)

Frage von Data-Fabi zum Thema SAN, NAS, DAS ...

Exchange Server
Exchange Postfach leeren - nicht löschen (11)

Frage von AndreasOC zum Thema Exchange Server ...