Jag har två frågor.
Jag håller på med ett program som skall kopiera en massa filer till en bestämd katalog på C:
Om nu dessa katalo(er) redan finns så får jag ett fel. Hur undviker jag det bäst?

Jag försökte med fso.Delete ("C:\AffärssystemDemo") men det fungerar naturligtvis inte..

När allting är klart, så ville jag ha en skrivbords-icon på en mdb fil som ligger på C:\AffärssystemDemo\FLEX_AS_NEW\DemoFLEX_AS.mdb
Hur gör jag det? Registret?

Tacksam för svar.

lite WSH om att skapa shortcuts: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/wsobjwshshortcut.asp

Med FSO kan man kolla om en fil/folder finns, objFSO.FileExist(folderPath)/objFSO(filePath)
returnerar true om den finns, false om den inte finns.

hoppas att detta hjälper dig lite på traven.

cya,
PatrikB

Hej PatrikB.
Här åker jag på patrull, vilken referens skall jag ha?
Det står ingenting om det.

Nu har jag under hela dagen försökt att hitta någonting om detta på nätet, men allt som jag hittar verkar att vara för vb-script.
Kan jag inte göra detta innifrån VB?

"När allting är klart, så ville jag ha en skrivbords-icon på en mdb fil som ligger på C:\AffärssystemDemo\FLEX_AS_NEW\DemoFLEX_AS.mdb
Hur gör jag det? Registret?"

Du kan revidera följande exempel för att passa ditt ändamål

<code>
Sub Create_ShortCut()
Dim oWSS As Object, oSHortCut As Object

Dim stDeskPath As String
Set oWSS = CreateObject("WScript.Shell")

With oWSS
stDeskPath = .SpecialFolders("Desktop")
Set oSHortCut = .CreateShortcut(stDeskPath & _
"\" & ThisWorkbook.Name & ".lnk")
End With

With oSHortCut
.TargetPath = ThisWorkbook.FullName
.IconLocation = ThisWorkbook.Path & "\Staroffice.ico"
.Save
End With

Set oWSS = Nothing

End Sub
</code>

Glömde visst din första fråga...

Ska du ha tillgång till FSO-biblioteket kan du sätta en referens till Microsoft Scripting Runtime.

Hämta hem en fylligare hjälp-dokumentation gör du här:
http://msdn.microsoft.com/library/default.asp?url=/nhp/Default.asp?contentid=28001169

Hej och tack för din hjälp, men jag får problem.
Är det inte så här som det var tänkt?
<code>
With oSHortCut
.TargetPath = "Flexas Affärssystem"
.IconLocation = App.path & "setup.ico"
.Save
End With
</code>
Här får jag fel att det är "invalid call or agrument"
Sen säger han att det inte går att spara.
Vad tror du?

saw,

Hur ser din kod ut i sin helhet för genvägen?

//Dennis

Det är ju ingen större skillnad mot vad du visade mig:
<code>
Dim oWSS As Object, oSHortCut As Object

Dim stDeskPath As String
Set oWSS = CreateObject("WScript.Shell")

With oWSS
stDeskPath = .SpecialFolders("Desktop")
Set oSHortCut = .CreateShortcut(stDeskPath & _
"C:\AffärssystemDemo\FLEX_AS_NEW\DemoFLEX_AS.mdb.lnk.lnk")
End With

With oSHortCut
.TargetPath = "Flexas Affärssystem"
.IconLocation = App.path & "setup.ico"
.Save
End With

Set oWSS = Nothing
</code>
Jag känner mig osäker på vad TargetPath skall vara.