Sub mit "As List(Of String))" verwenden - Probleme

gfcwfzkm · 25. Februar 2012, 23:41

Hi,

ich möchte Eine Sub zum packen von .cab-Dateien verwenden. Jedoch wird da eine "list" verlangt, womit ich doch etwas probleme habe...
Hier die Sub:

VB.NET-Quellcode

Private Sub Compress(ByVal CabFile As String, ByVal FilesToArchive As List(Of String))
Dim Cab As New CabInfo(CabFile)
Cab.PackFiles(Nothing, FilesToArchive, Nothing)
End Sub

Wie lese ich nun jede Datei/pfad einer datei, um diese aufzulisten?

thx & mfg

gfc

haiyyu · 25. Februar 2012, 23:42

Dass eine List verlangt wird, finde ich komisch.
Was meinst du mit "den Datei/Pfad einer Datei lesen"?
Du bist doch beim Ein-, nicht beim Auspacken, oder?

filmee24 · 25. Februar 2012, 23:43

mit einer For Each schleife

Lukas · 25. Februar 2012, 23:46

Also irgendwie erschliesst sich mir die Frage nicht. Verstehst du nicht, wie du die Pfade zu einer List zusammendröseln sollst oder was du in der Sub machen musst?

Der Code stammt wohl von hier, ich nehme einfach mal an, dass er so funktioniert:
vbarchiv.net/tipps/tipp_2232.html

Nimmt das zweite Argument von PackFiles keine List an?

Wo genau liegt nun das Problem?

gfcwfzkm · 25. Februar 2012, 23:50

Ich weiss net, wie ich die Pfade zu einer liste zusammenklebe, um dieser dann der Sub weiterzugeben.

Lukas · 25. Februar 2012, 23:51

VB.NET-Quellcode

Dim this as New List(Of String)
this.add("1")
this.add("2")

gfcwfzkm · 25. Februar 2012, 23:57

Thx, aber wie übergebe ich nun mehrere Dateien vom OpenFileDialog an die Liste?
Bin mir net mal sicher, ob man mit dem ofd mehrere Dateien auswählen kann...

mfg

gfc

Lukas · 25. Februar 2012, 23:58

VB.NET-Quellcode

Using ofd As New OpenFileDialog
ofd.Multiselect = True
If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
this.AddRange(ofd.filenames)
End If
End Using

Multiselect des OFD muss aber True sein.

gfcwfzkm · 26. Februar 2012, 00:44

aso...

Wie würde es denn aussehen, wenn ich aus einer String-Liste jede Datei in die liste einpacken müsste?
Die dateien sind mit , getrennt.( File1,file2,file3,...)

Da müsste man soviel ich weiss For Each verwenden, jedoch habe ich For Each nie richtig angewendet.

mfg

@Lukas
thx, funzt super, hast :thumbsup:

Myrax · 26. Februar 2012, 00:48

VB.NET-Quellcode

For Each file As String In DateienGetrennt.Split(",")
liste.Add(file)
Next

Oder (ich weiss nicht, ob das geht):

VB.NET-Quellcode

liste.AddRange(DateienGetrennt.Split(","))

Lukas · 26. Februar 2012, 00:53

Kleine Korrektur:

VB.NET-Quellcode

list.AddRange(dateiengetrennt.Split(Convert.ToChar(",")))

bzw.

VB.NET-Quellcode

For Each file As String In dateiengetrennt.Split(Convert.ToChar(","))
liste.Add(file)
Next

RodFromGermany · 26. Februar 2012, 10:33

Ich habe das Gdefühl, dass da lediglich eine Variable den Namen List hat, dort aber nicht List(Of bla) gemeit ist.
Rufst Du eine Prozedur in einer externen DLL auf?
Wenn ja, wie sieht denn die Deklaration dieser Prozedur aus?

Sub mit "As List(Of String))" verwenden - Probleme

Sub mit "As List(Of String))" verwenden - Probleme

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Tags

Ähnliche Themen

6 Benutzer haben hier geschrieben