Yussi Ariefiyono
Archive for April, 2010
File in use Vb
Apr 20th
just found nice code in internet, and i use it in one of my project. works great!
it will return the last user that open the file
Function LastUser(strPath As String) As String
‘// Code by Helen from http://www.xtremevbtalk.com/index.php?s=
‘// This routine gets the Username of the File In Use
‘// Credit goes to Helen for code & Mike for the idea
‘// Amendment 25th June 2004
‘// : Name changes will show old setting
‘// : you need to get the Len of the Name store just before
‘// : the double Padded nullstrings
Dim text As String
Dim strFlag1 As String, strflag2 As String
Dim i As Integer, j As Integer
Dim hdlFile As Long
Dim lNameLen As Byte
strFlag1 = Chr(0) & Chr(0)
strflag2 = Chr(32) & Chr(32)
hdlFile = FreeFile
Open strPath For Binary As #hdlFile
text = Space(LOF(hdlFile))
Get 1, , text
Close #hdlFile
j = InStr(1, text, strflag2)
i = InStrRev(text, strFlag1, j) + Len(strFlag1)
lNameLen = Asc(Mid(text, i – 3, 1))
LastUser = Mid(text, i, lNameLen)
End Function
uploading the latest file to ftp with batch command
Apr 8th
uploading the latest file to ftp, all you need 2 .bat files
fileup.bat
@echo off
echo user USERNAME> ftpcmd.dat
echo PASSWORD>> ftpcmd.dat
echo bin>> ftpcmd.dat
echo cd REMOTEPATH >> ftpcmd.dat
echo put %1>> ftpcmd.dat
echo quit>> ftpcmd.dat
ftp -n -s:ftpcmd.dat FTPADDRESS
del ftpcmd.dat
CALL.bat
@echo off
setlocal
:source directory
set srcDir=SOURCE DIRECTORY
set lastmod=
pushd “%srcDir%”
for /f “tokens=*” %%a in (‘dir /b /od 2^>NUL’) do set lastmod=%%a
if “%lastmod%”==”" echo Could not locate files.&goto :eof
:copy
call YOURPATH\fileup.bat “%lastmod%”
:delete
del “%lastmod%”
You call the CALL.bat, and the fileup.bat is for information
Transfer to FTP using batch command
Apr 8th
there are 2 file you need
1. info of your ftp ( store it in .txt)
in my case i named it info.txt with these code written:
yourusernameyourpasswordbincd yourremotedirectorybye
2. .bat file to connect to ftp and do what you want
in .bat file simply call the info.txt with this code:
ftp -s:log.txt YourFTPAddress
static site to CMS in 15 minutes? yes you can
Apr 8th
You’re probably wondering how you could possibly integrate your entire website with a CMS in just 15 minutes. The truth is, due to the recent trend of “light” content management systems, it’s becoming easier than ever to get small to mid-sized static websites up and running in them.
What is a light CMS? For the sake of this tutorial, I’m defining it as an easy-to-use, unobtrusive content management system that you don’t have to install. The nice thing about these systems is that you don’t even have to host them yourself, which is why integration takes very little time.
There are actually a handful of these CMS products available, including CushyCMS, Pagelime, andSimpleCMS. Most of these systems work off the same basic principle — you add class=”something” to almost any HTML element, link your website up to their system, and you’re done. Best of all, every one of these systems offer a free version.
Although every light CMS product has its pros and cons, I chose to work with Surreal CMS because of their vast feature set and simple interface. You’ll see exactly what I mean in just a moment, but in the meantime, here is the general process of integrating with any light CMS:
- Create your website
- Link it up to the CMS
- Enable webpages
- Add one or more editors
- Begin editing
all in here: http://surrealcms.com/
display list of table from other database with DAO
Apr 8th
this function will display list of table from other database, it come handy if you want to make a tool for inventory of all your db
Sub displayTable()Dim dbs As DatabaseDim otable As DAO.TableDefDim ItemName As StringSet dbs = OpenDatabase(“Db Name”)For Each otable In dbs.TableDefsIf UCase(Left(otable.Name, 3)) <> “MSY” ThenItemName = otable.NameItemName = Replace(ItemName, “,”, “–”)debug.print ItemNameItemName = “”End IfNext otableSet otable = NothingSet dbs = NothingEnd Sub