flashdisk (1 Viewer)

[sandy70]

hi...

is there anyone can help me with my flashdisk problem ??

usually i use this code to back up my client data to falsh disk
Source = "D:\Data\BUBU\Data\DataI.mdb"
Target = "g:\Data\DataI.mdb"
FileCopy Source, Target

the problem is sometime the flashdisk drive change from G to H or to I

is there any way that i can detect automaticlly flashdisk drive ??

 

[VilaRestal]

The only way I can think of is by the quite ugly method of putting a file on the drive with a peculiar name and then using fso to find if the file exists.

Something like:

    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Dim i As Integer
    Dim GotIt As Boolean
    For i = 69 To 90 'Characters E to Z
        If fso.FileExists(Chr(i) & ":\pathtestfile") Then
            GotIt = True
            Exit For
        End If
    Next i
    If GotIt Then
        Source = "D:\Data\BUBU\Data\DataI.mdb"
        Target = Chr(i) & ":\Data\DataI.mdb"
        FileCopy Source, Target
    End If

It's best if paths like that aren't hard coded - look up a field in a settings table - so you don't need to modify code to change a path.

 

[sandy70]

The only way I can think of is by the quite ugly method of putting a file on the drive with a peculiar name and then using fso to find if the file exists.

Something like:

    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Dim i As Integer
    Dim GotIt As Boolean
    For i = 69 To 90 'Characters E to Z
        If fso.FileExists(Chr(i) & ":\pathtestfile") Then
            GotIt = True
            Exit For
        End If
    Next i
    If GotIt Then
        Source = "D:\Data\BUBU\Data\DataI.mdb"
        Target = Chr(i) & ":\Data\DataI.mdb"
        FileCopy Source, Target
    End If

It's best if paths like that aren't hard coded - look up a field in a settings table - so you don't need to modify code to change a path.

its works tq