DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" _
(pOpenfilename As MyFile) As Long
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
'
Type MyFile
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type
'
Sub OpenFile()
Dim FileToOpen As MyFile
FileToOpen.lStructSize = Len(FileToOpen)
FileToOpen.hwndOwner = 0
FileToOpen.hInstance = 0
FileToOpen.lpstrFilter = "Text Dosyalari (*.txt)" + Chr$(0) + "*.txt" + _
Chr$(0) + "Bütün Dosyalar (*.*)" + Chr$(0) + "*.*" + Chr$(0)
FileToOpen.lpstrFile = Space$(254)
FileToOpen.nMaxFile = 255
FileToOpen.lpstrFileTitle = Space$(254)
FileToOpen.nMaxFileTitle = 255
FileToOpen.lpstrInitialDir = "C:\"
FileToOpen.lpstrTitle = "Açılacak dosyayı seçiniz ....."
FileToOpen.flags = 0
If GetOpenFileName(FileToOpen) Then
MsgBox "Açılacak dosya: " + Trim$(FileToOpen.lpstrFile)
ShellExecute 0, "Open", Trim$(FileToOpen.lpstrFile), vbNullString, "C:\", 1
Else
MsgBox "Dosya seçilmedi !"
End If
End Sub
Sub Test()
Dim ObjFolder As Object
Dim MyPath As String, MyFile As String
Set ObjFolder = CreateObject("Shell.Application").BrowseForFolder _
(0, "Klasör seçin...", &H4000, "C:\Program Files")
If Not TypeName(ObjFolder) = "Nothing" Then
MyPath = ObjFolder.Items.Item.Path
MyFile = ObjFolder.Items.Item.Name
End If
Set ObjFolder = Nothing
MsgBox "Dosya / Klasör yolu: " & MyPath & vbCrLf & vbCrLf & _
"Dosya / Klasör adı : " & MyFile
End Sub