Hot Fox: Re: ]] XL-mania [[ Mengambil URL folder dari URL file

domingo, 18 de outubro de 2009

Re: ]] XL-mania [[ Mengambil URL folder dari URL file

Alternatif lain (Perhatian! cara ini tidak ilmiah :D)

Function fileName(xx As String) As String
'Fungsi untuk ekstrak nama file
Dim arrP as variant
arrP = Split(xx, "\")
fileName = arrP(UBound(arrP))
End Function

Function FolderName(xx As String) As String
'Fungsi untuk ekstrak nama folder
FolderName = Mid(xx, 1, Len(xx) - Len(fileName(xx)))
End Function

2009/10/18 Puthut Wibowo <puthut_vai@yahoo.com>

Ok oom......untuk menjawab pertanyaan punyaanya omm langkah yang harus dikerjakan :
1. Merubah Path File Penuh Menjadu URL berupa Hiper link
2. Dari File Penuh tersebut di pisah antara Lokasi Folder File Bersangkutan dan Nama File + Ekstensi File tersebut....

Kodingan untuk Nomor (1) oom :
'   --------------------------------------------- *
'   Created By: puthut_vai@ yahoo.com
'   On : 19 Oktober 2009 || Jakarta
'   Nama Modul : ModSolusi
'   --------------------------------------------- *

Option Explicit

Sub SolusiBuatSiOm()
Dim wShitMaster As Worksheet
Dim txttext As String
Set wShitMaster = Worksheets("SolusiSiOOm") ' Set Master
Dim r As Long

r = 2

Do While wShitMaster.Cells(r, 1) <> ""

        txttext = wShitMaster.Cells(r, 1)
        wShitMaster.Cells(r, 2).Hyperlinks.Add wShitMaster.Cells(r, 2), wShitMaster.Cells(r, 1)
        wShitMaster.Cells(r, 3) = fNamaFileDANLokasiFolder(wShitMaster.Cells(r, 1), NamaPath)
        wShitMaster.Cells(r, 4) = fNamaFileDANLokasiFolder(wShitMaster.Cells(r, 1), NamaFile)


r = r + 1
Loop
wShitMaster.Activate
Columns("A:D").EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub

Sedangkan Untuk Nomor ( 2 ) :
'   --------------------------------------------- *
'   Created By: puthut_vai@ yahoo.com
'   On : 19 Oktober 2009 || Jakarta
'   Nama Modul : ModPathdanNamaFile
'   Kegunaan : Modul ini berfungsi untuk
'   Fungsi Untuk Merubah Path suatu File
'   Menjadi Nama File dan Lokasi Folder dari File
'   Tersebut
'   --------------------------------------------- *

Option Explicit

Public Enum EnumTukFungsi
    NamaPath = 1
    NamaFile = 0
End Enum

Public Function fNamaFileDANLokasiFolder(SeluruhPathFile As String, _
                ReturnType As EnumTukFungsi) As String

    Dim sLokasiFolder As String
    sLokasiFolder = Application.PathSeparator

    Dim sPathSementara As String
    sPathSementara = CStr(Empty)

    Dim i As Long
    i = Len(SeluruhPathFile)

    Dim sHasilLokasiFolder As String
    Dim sHasilFile As String

    If i > 0 Then

        Do While sPathSementara <> sLokasiFolder

            sPathSementara = Mid$(SeluruhPathFile, i, 1)

            If sPathSementara = sLokasiFolder Then

                sHasilLokasiFolder = Left$(SeluruhPathFile, i)
                sHasilFile = Right$(SeluruhPathFile, Len(SeluruhPathFile) - i)

            End If

            i = i - 1
        Loop

        Select Case ReturnType
            Case NamaPath
                fNamaFileDANLokasiFolder = sHasilLokasiFolder
            Case NamaFile
                fNamaFileDANLokasiFolder = sHasilFile
        End Select

    Else

        fNamaFileDANLokasiFolder = CStr(Empty)

    End If

End Function

Masalah omm Klir Semuanya semoga sesuai dengan Harapan SI omm

File Terlampir oommm...Jangan Lupa Makro Srikitinya oomm
- ^ Puthut Wibowo ^ - || puthut_vai@yahoo.com

--- On Sun, 10/18/09, masardi83 <masardi83@yahoo.co.id> wrote:

From: masardi83 <masardi83@yahoo.co.id>

Subject: ]] XL-mania [[ Mengambil URL folder dari URL file
To: XL-mania@yahoogroups.com
Date: Sunday, October 18, 2009, 12:57 AM

Dear all,
Langsung aja yah. Gw ada masalah nih. Gw punya tabel sbb:

URL_FILE
------------ --------- ------
C:\DATA\xyz. xls
C:\DATA\abc. doc
C:\DATA\LAMA\ backup.bck
D:\Documents\ secret.doc
D:\BARU\2009\ 10\18\nota. xls

Nah, pada kolom berikutnya saya ingin mendapatkan URL foldernya saja kemudian nama filenya saja. Jadi sbb:

URL_FILE                     |URL_FOLDER          |NAMA_FILE
------------ --------- --------| --------- --------- --|------ -----
C:\DATA\xyz. xls              |C:\DATA             |xyz.xls
C:\DATA\abc. doc              |C:\DATA             |abc.doc
C:\DATA\LAMA\ backup.bck      |C:\DATA\LAMA        |backup.bck
D:\Documents\ secret.doc      |D:\Documents        |secret.doc
D:\BARU\2009\ 10\18\nota. xls |D:\BARU\2009\ 10\18 |nota.xls

Datanya ada ratusan baris dan acak (tidak ada pola lokasi folder dan nama file). Caranya gimana ya?
Mohon bantuannya dari rekan-rekan XL-mania.
Thanx a lot.

__._,_.___

Messages in this topic (4) Reply (via web post) | Start a new topic

Messages

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Moderasi akan lambat minggu ini, momods pergi ke tempat jauh      |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___

Nenhum comentário:

Postar um comentário

Hot Fox

domingo, 18 de outubro de 2009

Re: ]] XL-mania [[ Mengambil URL folder dari URL file

Nenhum comentário:

Arquivo do blog