hej Jag sitter och försöker lägga till en fil i VSS innifrån VB. Får det dock inte att fungera. In- och ut-checkning fungerar finfint. Här är nuvarande kod: Börjar bli sent... börjar bli slö... :-) HejVSSItem(...).add(...) (LÖST)
Private Sub cmdCheckIn_Click()
'Checkar in de markerade filerna
Dim lista As Collection, post As Collection
Dim db As VSSDatabase
Dim item As VSSItem
Dim fil As String, sokvag As String
Set lista = markeradeFiler
Set db = New VSSDatabase
Call db.Open(sDBOpen, uname, pwd)
For Each post In lista
On Error Resume Next
sokvag = post(2)
fil = post(1)
Set item = db.VSSItem("$\" & fil)
If Err.Number <> 0 Then
If vbYes = MsgBox("Filen finns inte, vill du lägga till den?", vbYesNo) Then
Set item = db.VSSItem("$\test\").Add(sokvag & fil)
Else
GoTo nastaFil
End If
Err.Number = 0
End If
If Not item.IsCheckedOut = VSSFILE_NOTCHECKEDOUT Then
item.Checkin
Else
End If
Call MsgBox("Filen är incheckad.", vbInformation)
nastaFil:
Next
End Sub
/Emma Sv: VSSItem(...).add(...)
Hjälper följande länk?
http://www.devx.com/premier/mgznarch/tgvp/1999/fa99/cpfa99/cpfa99.asp
Lycka till i alla fall!
// QezlotSv: VSSItem(...).add(...)
Har inte kollat på länken, men lyckades fixa det precis innan jag skulle
iväg till klätterväggen igår... =)
Ska se ut så här:
<code>
Private Sub cmdCheckIn_Click()
'Checkar in de markerade filerna
Dim lista As Collection, post As Collection
Dim db As VSSDatabase
Dim item As VSSItem
Dim fil As String, sokvag As String
Set lista = markeradeFiler
Set db = New VSSDatabase
Call db.Open(sDBOpen, uname, pwd)
For Each post In lista
On Error Resume Next
sokvag = post(2)
fil = post(1)
Set item = db.VSSItem("$\" & fil)
If Err.Number <> 0 Then
If vbYes = MsgBox("Filen finns inte, vill du lägga till den?", vbYesNo) Then
Set item = db.VSSItem("$\").Add(sokvag & fil) 'ÄNDRAT!!!
Else
GoTo nastaFil
End If
Err.Number = 0
End If
If Not item.IsCheckedOut = VSSFILE_NOTCHECKEDOUT Then
item.Checkin
Else
End If
Call MsgBox("Filen är incheckad.", vbInformation)
Set item = Nothing
nastaFil:
Next
</code>
dvs. jag försökte lägga till filen i en katalog som jag inte skapat i VSS...
/Emma