EXCEL FEED: Re: [ExcelVBA] Excel VBA file transfer via Bluetooth

Senin, 22 Januari 2018

Re: [ExcelVBA] Excel VBA file transfer via Bluetooth

OK.. here's an update:

I was able to install a Bluetooth dongle on my Windows 7 desktop and Share a folder.

(I called my Bluetooth share name "Desktop_Schreiner")

Now, on my laptop, I find a system folder called "Desktop_Schreiner" under "Other".

If I click on it, it shows me the folder:

Computer\Desktop_Schreiner

and I have permissions to read/write/delete from this shared folder.

I can easily drag/drop files to copy onto this folder...

so, SUCCESS!!! (limited)

Now, "logically", what I'd like to do is have my vba code to copy a file from a local folder to this folder on the other device.

LIke:

Datafile = "C:\testdata\File_Test1.txt"

MasterPath = "Computer\Desktop_Schreiner\"

Set fso = CreateObject("Scripting.FileSystemObject")

If (Not fso.fileexists(DataFile)) Then
        MsgBox "Failed to find data file:" & Chr(13) & DataFile
        Exit Sub
    Else
        If (Not fso.folderexists(MasterPath)) Then
            MsgBox "Failed to connect to Master Computer"
            Exit Sub
        Else
            fso.copyfile DataFile, MasterPath
        End If
    End If

But, looking at the FileSystem object, it only includes the local disk drives and mapped network drives.

Not the "Other" locations.

does anyone know how I would change this to work?

thank you,

Paul

__._,_.___

Posted by: schreiner_paul@att.net

Reply via web post

•

Reply to sender

•

Reply to group

•

Start a New Topic

•

Messages in this topic (6)

Have you tried the highest rated email app?

With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.

----------------------------------
Visit our ExcelVBA group home page for more info and support files:
http://groups.yahoo.com/group/ExcelVBA
------------------------------------

Visit Your Group