Kopiera fil från diskett
FSO

Att läsa direkt från diskett är vanskligt varför rekommendationen är att först kopiera filen till hårddisk och därefter öppna filen för fortsatt bearbetning.

Här demonstreras en teknik med felhantering för filkopiering från diskett. Tipset kan också användas för filkopiering från andra medie.

Glöm inte av att ange referens till Microsoft Scripting Runtime - Läs mer här»

 

Sub Kopiera_Fil_Diskett()    '© 2002 Alla rättigheter XL-Dennis      Dim fsoObj As Scripting.FileSystemObject    Dim stKallFil As String      Set fsoObj = New Scripting.FileSystemObject    stKallFil = "a:\XLDennis.xls"      With fsoObj       If .Drives("A:").IsReady = True Then          If .FileExists(stKallFil) Then             If .FolderExists("c:\Arbete\") Then                .CopyFile Source:=stKallFil, Destination:="c:\Arbete\", OverWriteFiles:=True                MsgBox "Fil kopierad till mappen."             Else                .CreateFolder ("c:\Arbete")                .CopyFile Source:=stKallFil, Destination:="c:\Arbete\"                MsgBox "Mappen skapad och filen kopierad."             End If          Else             MsgBox "Fel diskett i enhet A:."          End If       Else          MsgBox "Mata in en diskett i enhet A:"       End If    End With     Set fsoObj = Nothing   End Sub