farklı pc deki masaüstü yolu

[zulfuernek]

ChDir "C:\Users\ze59317\Desktop"
Workbooks.OpenText Filename:="C:\Users\ze59317\Desktop\BCH.TXT", Origin:= _
1254, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), _
Array(7, 1), Array(22, 1), Array(30, 1), Array(34, 1), Array(37, 1), Array(40, 1), Array(46 _
, 1), Array(53, 1), Array(60, 1), Array(71, 1), Array(82, 1), Array(85, 1), Array(96, 1), _
Array(117, 1), Array(138, 1), Array(161, 1)), TrailingMinusNumbers:=True
ActiveWindow.SmallScroll Down:=0


tukarıdaki kodla kendi bilgisayarımdaki masa üstünde bulunan txt dosyasını açabiliyorum. ancak farklı bir pc de ki masaüstünü açamıyorum.

açılacak dosya "BCH.txt" bu dosya adı değşmiyor

 

[Zeki Gürsoy]

Herhangi bir pc için masaüstü yolunu şu şekilde bulabilirsiniz:

Sub Test()
    desktop1 = Environ("userprofile") & "\Desktop"
    desktop2 = CreateObject("Wscript.Shell").SpecialFolders("Desktop")
    
    MsgBox desktop1 & vbNewLine & desktop2
End Sub

Örneğin masaüstünde herhangi bir isimle kayıtlı ilk txt dosya adını şu şekilde bulabilirsiniz:

Sub Test2()
    fullpath = Environ("userprofile") & "\Desktop\*.txt"
    
    txtfile = Dir(fullpath)
    
    If txtfile <> "" Then
       [COLOR=DarkGreen] '.
        '.[/COLOR]
    End If
End Sub

.

 

[Necdet]

Merhaba,

1. ilgili bilgisayarın adını bilmelisiniz
2. o bilgisayarda o dizin paylaşıma açık olmalı
3. \\pcAdı\..... gerisi malum dizi (kullanıcı adı ....)

 

[zulfuernek]

hocam amacım zaten hangi bilgisayrdysa bilgisayarın adını kendisi bulması.

ChDir "C:\Users\ze59317\Desktop"
Workbooks.OpenText Filename:="C:\Users\ze59317\Desktop\BCH.TXT"

yani ilk iki satırdaki masaüstü yolunu ayarlaması. ve masaüstündeki BCH.txt dosyası sabit. onu açacak