Hallo Leute,
nach CATScripting muss ich mich jetzt mit VB2008 beschäftigen. Ich muss jetzt eine Abteilung in unser PDM integrieren, dazu werden deren Daten als Zip-File eingecheckt. Nach dem Check-Out muss das Zip-File entpacken werden.
Mein Script erkennt das Zip-File und ich kann es auch entpacken. Im entpackent Zip-File ist eine Ordnerstruktur und ich muss jetzt diesen Ordnername haben damit ich in der Stratroutine des Programmes den Pfad zum PRJ-File zusetzen.
Ich bekomme aber immer nur den Namen des Zip-Files angegeben und ich stehe auf dem Schlauch.
Gruß
Norbert
nach CATScripting muss ich mich jetzt mit VB2008 beschäftigen. Ich muss jetzt eine Abteilung in unser PDM integrieren, dazu werden deren Daten als Zip-File eingecheckt. Nach dem Check-Out muss das Zip-File entpacken werden.
Mein Script erkennt das Zip-File und ich kann es auch entpacken. Im entpackent Zip-File ist eine Ordnerstruktur und ich muss jetzt diesen Ordnername haben damit ich in der Stratroutine des Programmes den Pfad zum PRJ-File zusetzen.
Ich bekomme aber immer nur den Namen des Zip-Files angegeben und ich stehe auf dem Schlauch.
Gruß
Norbert
VB.NET-Quellcode
- Public Class Form1
- Private Sub cmdFinden_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdFinden.Click
- Try
- Dim ContainerName
- ContainerName = (System.IO.Path.GetFileName(System.IO.Directory.GetFiles("D:\vonhier")(0)))
- MessageBox.Show(ContainerName)
- Catch ex As Exception
- MsgBox("Keine Datei vorhanden")
- End Try
- End Sub
- Private Sub cmdOrdnerfinden_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOrdnerfinden.Click
- Dim FolderName
- Dim Pfad = "D:\vonhier\."
- FolderName = (System.IO.Path.GetDirectoryName("D:\vonhier\."))
- 'FolderName = Dir(Pfad)
- MsgBox(FolderName)
- End Sub
- End Class